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

Fix substitution

Browse source
This commit is contained in:
Mercier Pierre-Olivier 2013-09-21 16:23:41 +02:00
commit b6b1c02dd0
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
process/files/intradata_get.pl
View file

@ -84,7 +84,7 @@ sub grades_generate
for my $login (grep { ( ! /^\./ ) && -f "$basedir/$year/$project_id/traces/$dir/$_" } readdir($dhm)) for my $login (grep { ( ! /^\./ ) && -f "$basedir/$year/$project_id/traces/$dir/$_" } readdir($dhm))
{ {
$login = s/\.xml$//; $login =~ s/\.xml$//;
if (! grep { /^\Q$login\E$/ } @logins) { if (! grep { /^\Q$login\E$/ } @logins) {
push @logins, $login; push @logins, $login;
} }