--- loncom/homework/grades.pm 2006/01/27 23:53:11 1.307
+++ loncom/homework/grades.pm 2006/02/06 23:39:44 1.309
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# The LON-CAPA Grading handler
#
-# $Id: grades.pm,v 1.307 2006/01/27 23:53:11 banghart 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 @@ 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);
@@ -4093,11 +4098,11 @@ sub scantron_CODElist {
sub scantron_CODEunique {
my $result='
+ value="yes" checked="checked" /> Yes
+ value="no" /> No
';
return $result;
}