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";
     }