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

Fix get_csv

Browse Source
This commit is contained in:
Charlie Noyce Root 2013-11-13 02:33:27 +01:00
parent 4a66e85060
commit ca2c0e8f13
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
process/projects/get_csv.pl
View File

@ -49,7 +49,7 @@ sub process
my $i; my $i;
for ($i = 0; $i <= $#ugrades; $i++) for ($i = 0; $i <= $#ugrades; $i++)
{ {
if ($ugrades[$i] == $grade->getAttribute("name")) if ($ugrades[$i] eq $grade->getAttribute("name"))
{ {
$ugrades[$i] = $grade->getAttribute("value"); $ugrades[$i] = $grade->getAttribute("value");
last; last;
@ -75,7 +75,8 @@ sub process
} }
$out .= "\n"; $out .= "\n";
for my $login (keys %grades) { for my $login (keys %grades)
{
$out .= "$login"; $out .= "$login";
my @ugrades = @{ $grades{$login} }; my @ugrades = @{ $grades{$login} };
for my $header (@headers) for my $header (@headers)