Archived
1
0

Set a default ID on eval without id

This commit is contained in:
Mercier Pierre-Olivier 2013-12-20 17:35:22 +01:00
parent 5b1382fc71
commit c6352b8897
2 changed files with 2 additions and 2 deletions

View File

@ -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 => {},

View File

@ -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} })