--- loncom/homework/grades.pm 2005/09/01 15:23:23 1.282
+++ loncom/homework/grades.pm 2005/09/13 19:05:15 1.284
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# The LON-CAPA Grading handler
#
-# $Id: grades.pm,v 1.282 2005/09/01 15:23:23 www Exp $
+# $Id: grades.pm,v 1.284 2005/09/13 19:05:15 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -3065,10 +3065,7 @@ sub csvuploadmap_footer {
ENDPICK
}
-sub upcsvScores_form {
- my ($request) = shift;
- my ($symb,$url)=&get_symb_and_url($request);
- if (!$symb) {return '';}
+sub checkforfile_js {
my $result =<
function checkUpload(formname) {
@@ -3080,6 +3077,14 @@ sub upcsvScores_form {
}
CSVFORMJS
+ return $result;
+}
+
+sub upcsvScores_form {
+ my ($request) = shift;
+ my ($symb,$url)=&get_symb_and_url($request);
+ if (!$symb) {return '';}
+ my $result=&checkforfile_js();
$env{'form.probTitle'} = &Apache::lonnet::gettitle($symb);
my ($table) = &showResourceInfo($url,$env{'form.probTitle'});
$result.=$table;
@@ -3099,7 +3104,7 @@ CSVFORMJS
$upfile_select
-
-Sequence To be Graded: | $title |
+Sequence to be Graded: | $title |
Data File that will be used: | $env{'form.scantron_selectfile'} |
+$CODElist