From 81cb7194171fee2537c40a0167910350fe441109 Mon Sep 17 00:00:00 2001
From: Mercier Pierre-Olivier <nemunaire@acu.epita.fr>
Date: Wed, 2 Oct 2013 20:12:45 +0200
Subject: [PATCH] Fix comma position

---
 process/files/intradata_get.pl | 2 +-
 process/projects/get_csv.pl    | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/process/files/intradata_get.pl b/process/files/intradata_get.pl
index fdde9b0..c76621a 100644
--- a/process/files/intradata_get.pl
+++ b/process/files/intradata_get.pl
@@ -151,7 +151,7 @@ sub grades_new_bonus
     my $args = shift;
 
     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;
 
     if (! $project_id) {
diff --git a/process/projects/get_csv.pl b/process/projects/get_csv.pl
index f751391..0172e34 100644
--- a/process/projects/get_csv.pl
+++ b/process/projects/get_csv.pl
@@ -81,8 +81,8 @@ sub process
 	for my $header (@headers)
 	{
 	    my $g = shift @ugrades;
-	    $out .= $g if ($g && $g ne $header);
 	    $out .= ",";
+	    $out .= $g if ($g && $g ne $header);
 	}
 	$out .= "\n";
     }