[LON-CAPA-cvs] cvs: loncom /homework grades.pm
albertel
lon-capa-cvs@mail.lon-capa.org
Mon, 06 Feb 2006 23:39:44 -0000
albertel Mon Feb 6 18:39:44 2006 EDT
Modified files:
/loncom/homework grades.pm
Log:
- forward port 1.302.2.3
Index: loncom/homework/grades.pm
diff -u loncom/homework/grades.pm:1.308 loncom/homework/grades.pm:1.309
--- loncom/homework/grades.pm:1.308 Tue Jan 31 12:47:53 2006
+++ loncom/homework/grades.pm Mon Feb 6 18:39:44 2006
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# The LON-CAPA Grading handler
#
-# $Id: grades.pm,v 1.308 2006/01/31 17:47:53 albertel Exp $
+# $Id: grades.pm,v 1.309 2006/02/06 23:39:44 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -3326,8 +3326,13 @@
unshift(@fields,['none','']);
$i=&Apache::loncommon::csv_samples_select_table($request,\@records,
\@fields);
- my %sone=&Apache::loncommon::record_sep($records[0]);
- $keyfields=join(',',sort(keys(%sone)));
+ foreach my $rec (@records) {
+ my %temp = &Apache::loncommon::record_sep($rec);
+ if (%temp) {
+ $keyfields=join(',',sort(keys(%temp)));
+ last;
+ }
+ }
}
}
&csvuploadmap_footer($request,$i,$keyfields);