Set a default ID on eval without id
This commit is contained in:
parent
5b1382fc71
commit
c6352b8897
@ -354,7 +354,7 @@ sub new ($$;$)
|
|||||||
{
|
{
|
||||||
my $class = shift;
|
my $class = shift;
|
||||||
my $self = {
|
my $self = {
|
||||||
id => shift,
|
id => shift // "",
|
||||||
type => shift // "test",
|
type => shift // "test",
|
||||||
values => {},
|
values => {},
|
||||||
logs => {},
|
logs => {},
|
||||||
|
@ -105,7 +105,7 @@ sub grades_generate
|
|||||||
log DEBUG, "Generating grades for $login";
|
log DEBUG, "Generating grades for $login";
|
||||||
for my $dir (@trace_dirs)
|
for my $dir (@trace_dirs)
|
||||||
{
|
{
|
||||||
log DEBUG, "Fetching identifiers from $dir";
|
log DEBUG, "Will fetch identifiers from $dir";
|
||||||
|
|
||||||
# Looking for a group traces first
|
# Looking for a group traces first
|
||||||
for my $grp (@{ $groups->{groups} })
|
for my $grp (@{ $groups->{groups} })
|
||||||
|
Reference in New Issue
Block a user