epita-std/ACU
Archived
1
0
Fork 0
Code Releases Activity

gen_grading: checck if there is a defense or trace before generate

Browse source
This commit is contained in:
Mercier Pierre-Olivier 2013-10-18 18:15:11 +02:00
commit cea68aa7a7
1 changed files with 46 additions and 40 deletions
Download patch file Download diff file Expand all files Collapse all files

6
process/projects/gen_grading.pl
View file

@ -35,6 +35,8 @@ sub process
my $grade = Grading->new(); my $grade = Grading->new();
if (-d "$basedir/$year/$project_id/defenses/")
{
my @defenses; my @defenses;
# Create defenses groups # Create defenses groups
opendir(my $dh, "$basedir/$year/$project_id/defenses/") or croak "can't opendir $basedir/$year/$project_id/defenses/: $!"; opendir(my $dh, "$basedir/$year/$project_id/defenses/") or croak "can't opendir $basedir/$year/$project_id/defenses/: $!";
@ -64,7 +66,10 @@ sub process
$grade->create_from_ids($sid, $ids); $grade->create_from_ids($sid, $ids);
} }
closedir $dh; closedir $dh;
}
if (-d "$basedir/$year/$project_id/traces/")
{
# Create traces groups # Create traces groups
opendir($dh, "$basedir/$year/$project_id/traces/") or croak "can't opendir $basedir/$year/$project_id/traces/: $!"; opendir($dh, "$basedir/$year/$project_id/traces/") or croak "can't opendir $basedir/$year/$project_id/traces/: $!";
for my $dir (grep { ( ! /^\./ ) && -d "$basedir/$year/$project_id/traces/$_" } readdir($dh)) for my $dir (grep { ( ! /^\./ ) && -d "$basedir/$year/$project_id/traces/$_" } readdir($dh))
@ -91,6 +96,7 @@ sub process
$grade->create_from_ids($dir, $ids); $grade->create_from_ids($dir, $ids);
} }
closedir $dh; closedir $dh;
}
return $grade->toString; return $grade->toString;
} }