diff --git a/Kinza/lib/Kinza/Reports.pm b/Kinza/lib/Kinza/Reports.pm index 9d3cdd5..61d48ab 100644 --- 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"; }