--- loncom/homework/grades.pm 2006/01/25 22:58:26 1.302.2.1
+++ loncom/homework/grades.pm 2006/02/06 23:36:20 1.302.2.3
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# The LON-CAPA Grading handler
#
-# $Id: grades.pm,v 1.302.2.1 2006/01/25 22:58:26 albertel Exp $
+# $Id: grades.pm,v 1.302.2.3 2006/02/06 23:36:20 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -3291,8 +3291,13 @@ sub csvuploadmap {
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);
@@ -4058,11 +4063,11 @@ sub scantron_CODElist {
sub scantron_CODEunique {
my $result='
+ value="yes" checked="checked" /> Yes
+ value="no" /> No
';
return $result;
}