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

Fix comma position

Browse source
This commit is contained in:
Mercier Pierre-Olivier 2013-10-02 20:12:45 +02:00
commit 81cb719417
2 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
process/files/intradata_get.pl
View file

@ -151,7 +151,7 @@ sub grades_new_bonus
my $args = shift; my $args = shift;
my $project_id = $args->{param}{id}; my $project_id = $args->{param}{id};
my $delete = $args->{param}{delete} // 0; my $delete = $args->{param}{delete};
my $year = $args->{param}{year} // LDAP::get_year; my $year = $args->{param}{year} // LDAP::get_year;
if (! $project_id) { if (! $project_id) {

2
process/projects/get_csv.pl
View file

@ -81,8 +81,8 @@ sub process
for my $header (@headers) for my $header (@headers)
{ {
my $g = shift @ugrades; my $g = shift @ugrades;
$out .= $g if ($g && $g ne $header);
$out .= ","; $out .= ",";
$out .= $g if ($g && $g ne $header);
} }
$out .= "\n"; $out .= "\n";
} }