--- loncom/homework/grades.pm 2005/09/01 15:23:23 1.282 +++ loncom/homework/grades.pm 2005/09/12 20:27:25 1.283 @@ -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.283 2005/09/12 20:27:25 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
-