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