--- loncom/interface/loncommon.pm 2009/06/16 15:17:12 1.844 +++ loncom/interface/loncommon.pm 2009/06/17 15:27:14 1.845 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common routines # -# $Id: loncommon.pm,v 1.844 2009/06/16 15:17:12 bisitz Exp $ +# $Id: loncommon.pm,v 1.845 2009/06/17 15:27:14 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -8523,7 +8523,7 @@ sub csv_print_samples { $r->print(&mt('Samples').'
'.&start_data_table(). &start_data_table_header_row()); foreach my $sample (sort({$a <=> $b} keys(%{ $samples->[0] }))) { - $r->print(''.&mt('Column [_1]',($sample+1)).''); } + $r->print(''.&mt('Column [_1]',($sample+1)).''); } $r->print(&end_data_table_header_row()); foreach my $hash (@$samples) { $r->print(&start_data_table_row());