Fix display of multi-term presentations in the form CSV

davorg · Dec 29, 2015 · 4e4062c · 4e4062c
1 parent 25eb0a8
commit 4e4062c
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/Kinza/lib/Kinza/Reports.pm b/Kinza/lib/Kinza/Reports.pm
@@ -41,7 +41,9 @@ get '/form' => sub {
       foreach my $s ($f->students->search({}, { order_by => 'name' })) {
         $csv .= $s->name;
         foreach my $a ($s->sorted_attendances) {
-          $csv .= ',"' . $a->presentation->course->title . '"';
+          for (1 .. $a->presentation->number_of_terms) {
+            $csv .= ',"' . $a->presentation->course->title . '"';
+          }
         }
         $csv .= "\n";
       }