--- loncom/homework/grades.pm 2002/05/08 18:59:37 1.23 +++ loncom/homework/grades.pm 2002/05/21 02:29:22 1.26 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # The LON-CAPA Grading handler # -# $Id: grades.pm,v 1.23 2002/05/08 18:59:37 www Exp $ +# $Id: grades.pm,v 1.26 2002/05/21 02:29:22 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -62,7 +62,6 @@ sub moreinfo { sub verifyreceipt { my $request=shift; my $courseid=$ENV{'request.course.id'}; - my $chome=$ENV{"course.$courseid.home"}; my $cdom=$ENV{"course.$courseid.domain"}; my $cnum=$ENV{"course.$courseid.num"}; my $receipt=unpack("%32C*",$Apache::lonnet::perlvar{'lonHostID'}).'-'. @@ -75,7 +74,7 @@ sub verifyreceipt { if ((&Apache::lonnet::allowed('mgr',$courseid)) && ($symb)) { $request->print('
Username | Domain | Name | |
---|---|---|---|
$sname | $sdom | @nameparts | ". + $request->print("\n".' |
$sname | $sdom | $fullname | ".
'';
+ $result.='';
+ $result.='';
+ return $result;
+}
+sub viewgrades {
+ my ($request) = @_;
+ my $result='';
+
+ #get resource reference
+ my ($symb,$url)=&get_symb_and_url($request);
+ if (!$symb) {return '';}
#get classlist
my ($cdom,$cnum) = split(/_/,$ENV{'request.course.id'});
- my $chome=$ENV{"course.$ENV{'request.course.id'}.home"};
- #print "Found $cdom:$cnum:$chome "; - my (%classlist) = &getclasslist($cdom,$cnum,$chome,'0'); + #print "Found $cdom:$cnum "; + my (%classlist) = &getclasslist($cdom,$cnum,'0'); my $headerclr = '"#ccffff"'; my $cellclr = '"#ffffcc"'; @@ -381,9 +410,8 @@ sub editgrades { my $url=$ENV{'form.url'}; #get classlist my ($cdom,$cnum) = split(/_/,$ENV{'request.course.id'}); - my $chome=$ENV{"course.$ENV{'request.course.id'}.home"}; - #print "Found $cdom:$cnum:$chome "; - my (%classlist) = &getclasslist($cdom,$cnum,$chome,'0'); + #print "Found $cdom:$cnum "; + my (%classlist) = &getclasslist($cdom,$cnum,'0'); #get list of parts for this problem my (@parts) = &getpartlist($url); @@ -402,6 +430,125 @@ sub editgrades { return $result; } +sub csvupload { + my ($request)= @_; + my $result; + my ($symb,$url)=&get_symb_and_url($request); + if (!$symb) {return '';} + my $upfile_select=&Apache::loncommon::upfile_select_html(); + $result.=< + Specify a file containing the class grades for resource $url+$upfile_select +
+ENDUPFORM
+ return $result;
+}
+
+sub csvuploadmap_header {
+ my ($request,$symb,$url,$datatoken,$distotal)= @_;
+ my $result;
+ my $javascript;
+ if ($ENV{'form.upfile_associate'} eq 'reverse') {
+# $javascript=&csv_upload_javascript_reverse_associate();
+ } else {
+# $javascript=&csv_upload_javascript_forward_associate();
+ }
+ my $javascript_validations;#=&javascript_validations($krbdefdom);
+ $request->print(< |