version 1.2, 2001/02/09 03:24:45
|
version 1.26, 2002/05/21 02:29:22
|
Line 1
|
Line 1
|
|
# The LearningOnline Network with CAPA |
# The LON-CAPA Grading handler |
# The LON-CAPA Grading handler |
# Guy Albertelli |
# |
# 11/30 Gerd Kortemeyer |
# $Id$ |
# 6/1 Gerd Kortemeyer |
# |
|
# Copyright Michigan State University Board of Trustees |
|
# |
|
# This file is part of the LearningOnline Network with CAPA (LON-CAPA). |
|
# |
|
# LON-CAPA is free software; you can redistribute it and/or modify |
|
# it under the terms of the GNU General Public License as published by |
|
# the Free Software Foundation; either version 2 of the License, or |
|
# (at your option) any later version. |
|
# |
|
# LON-CAPA is distributed in the hope that it will be useful, |
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of |
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
|
# GNU General Public License for more details. |
|
# |
|
# You should have received a copy of the GNU General Public License |
|
# along with LON-CAPA; if not, write to the Free Software |
|
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
|
# |
|
# /home/httpd/html/adm/gpl.txt |
|
# |
|
# http://www.lon-capa.org/ |
|
# |
|
# 2/9,2/13 Guy Albertelli |
|
# 6/8 Gerd Kortemeyer |
|
# 7/26 H.K. Ng |
|
# 8/20 Gerd Kortemeyer |
|
|
package Apache::grades; |
package Apache::grades; |
use strict; |
use strict; |
use Apache::style; |
use Apache::style; |
use Apache::lonxml; |
use Apache::lonxml; |
use Apache::lonnet; |
use Apache::lonnet; |
|
use Apache::loncommon; |
use Apache::lonhomework; |
use Apache::lonhomework; |
use Apache::Constants qw(:common); |
use Apache::Constants qw(:common); |
|
|
sub moreinfo { |
sub moreinfo { |
my ($request,$reason) = @_; |
my ($request,$reason) = @_; |
$request->print("Unable to process request: $reason"); |
$request->print("Unable to process request: $reason"); |
$request->print('<form action="/adm/grades" method="post">'."\n"); |
if ( $Apache::grades::viewgrades eq 'F' ) { |
$request->print('<input type="hidden" name="url" value="'.$ENV{'form.url'}.'"></input>'."\n"); |
$request->print('<form action="/adm/grades" method="post">'."\n"); |
$request->print('<input type="hidden" name="command" value="'.$ENV{'form.command'}.'"></input>'."\n"); |
if ($ENV{'form.url'}) { |
$request->print("Student:".'<input type="text" name="student" value="'.$ENV{'form.student'}.'"></input>'."<br />\n"); |
$request->print('<input type="hidden" name="url" value="'.$ENV{'form.url'}.'" />'."\n"); |
$request->print("Domain:".'<input type="text" name="domain" value="'.$ENV{'user.domain'}.'"></input>'."<br />\n"); |
} |
$request->print('<input type="submit" name="submit" value="ReSubmit"></input>'."<br />\n"); |
if ($ENV{'form.symb'}) { |
$request->print('</form>'); |
$request->print('<input type="hidden" name="symb" value="'.$ENV{'form.symb'}.'" />'."\n"); |
|
} |
|
$request->print('<input type="hidden" name="command" value="'.$ENV{'form.command'}.'" />'."\n"); |
|
$request->print("Student:".'<input type="text" name="student" value="'.$ENV{'form.student'}.'" />'."<br />\n"); |
|
$request->print("Domain:".'<input type="text" name="domain" value="'.$ENV{'user.domain'}.'" />'."<br />\n"); |
|
$request->print('<input type="submit" name="submit" value="ReSubmit" />'."<br />\n"); |
|
$request->print('</form>'); |
|
} |
|
return ''; |
|
} |
|
|
|
sub verifyreceipt { |
|
my $request=shift; |
|
my $courseid=$ENV{'request.course.id'}; |
|
my $cdom=$ENV{"course.$courseid.domain"}; |
|
my $cnum=$ENV{"course.$courseid.num"}; |
|
my $receipt=unpack("%32C*",$Apache::lonnet::perlvar{'lonHostID'}).'-'. |
|
$ENV{'form.receipt'}; |
|
$receipt=~s/[^\-\d]//g; |
|
my $symb=$ENV{'form.symb'}; |
|
unless ($symb) { |
|
$symb=&Apache::lonnet::symbread($ENV{'form.url'}); |
|
} |
|
if ((&Apache::lonnet::allowed('mgr',$courseid)) && ($symb)) { |
|
$request->print('<h1>Verifying Submission Receipt '.$receipt.'</h1>'); |
|
my $matches=0; |
|
my (%classlist) = &getclasslist($cdom,$cnum,'0'); |
|
foreach my $student ( sort(@{ $classlist{'allids'} }) ) { |
|
my ($uname,$udom)=split(/\:/,$student); |
|
if ($receipt eq |
|
&Apache::lonnet::ireceipt($uname,$udom,$courseid,$symb)) { |
|
$request->print('Matching '.$student.'<br>'); |
|
$matches++; |
|
} |
|
} |
|
$request->print('<p>'.$matches.' match(es)</p>'); |
|
} |
|
return ''; |
|
} |
|
|
|
sub listStudents { |
|
my ($request) = shift; |
|
my $cdom=$ENV{"course.$ENV{'request.course.id'}.domain"}; |
|
my $cnum=$ENV{"course.$ENV{'request.course.id'}.num"}; |
|
my $hostver=unpack("%32C*",$Apache::lonnet::perlvar{'lonHostID'}); |
|
$request->print(<<ENDHEADER); |
|
<h1>Verify a Submission Receipt Issued by this Server</h1> |
|
<form action="/adm/grades" method="post"> |
|
<tt>$hostver-<input type="text" name="receipt" size="4"></tt> |
|
<input type="submit" name="submit" value="Verify"> |
|
<input type="hidden" name="command" value="verify"> |
|
ENDHEADER |
|
if ($ENV{'form.url'}) { |
|
$request->print( |
|
'<input type="hidden" name="url" value="'.$ENV{'form.url'}.'" />'); |
|
} |
|
if ($ENV{'form.symb'}) { |
|
$request->print( |
|
'<input type="hidden" name="symb" value="'.$ENV{'form.symb'}.'" />'); |
|
} |
|
$request->print(<<ENDTABLEST); |
|
</form> |
|
<h1>Show Student Submissions on Assessment</h1> |
|
<table border="1"> |
|
<tr><th>Username</th><th>Domain</th><th>Name</th><th> </th></tr> |
|
ENDTABLEST |
|
my (%classlist) = &getclasslist($cdom,$cnum,'0'); |
|
foreach my $student ( sort(@{ $classlist{'allids'} }) ) { |
|
my ($sname,$sdom) = split(/:/,$student); |
|
|
|
my %name=&Apache::lonnet::get('environment', ['lastname','generation', |
|
'firstname','middlename'], |
|
$sdom,$sname); |
|
my $fullname; |
|
my ($tmp) = keys(%name); |
|
if ($tmp !~ /^(con_lost|error|no_such_host)/i) { |
|
$fullname=$name{'lastname'}.$name{'generation'}; |
|
if ($fullname =~ /[^\s]+/) { $fullname.=','; } |
|
$fullname.=$name{'firstname'}.' '.$name{'middlename'}; |
|
} |
|
if ( $Apache::grades::viewgrades eq 'F' ) { |
|
$request->print("\n".'<tr>'."<td>$sname</td><td>$sdom</td><td>$fullname</td><td>". |
|
'<form action="/adm/grades" method="post">'); |
|
if ($ENV{'form.url'}) { |
|
$request->print( |
|
'<input type="hidden" name="url" value="'.$ENV{'form.url'}.'" />'); |
|
} |
|
if ($ENV{'form.symb'}) { |
|
$request->print( |
|
'<input type="hidden" name="symb" value="'.$ENV{'form.symb'}.'" />'); |
|
} |
|
$request->print( |
|
'<input type="hidden" name="command" value="'.$ENV{'form.command'}.'" />'); |
|
$request->print( |
|
'<input type="hidden" name="student" value="'.$sname.'" />'); |
|
$request->print( |
|
'<input type="hidden" name="domain" value="'.$sdom.'" />'); |
|
$request->print( |
|
'<input type="submit" name="submit" value="View" />'); |
|
$request->print('</form></td></tr>'); |
|
} |
|
} |
|
$request->print('</table>'); |
} |
} |
|
|
|
|
|
#FIXME - needs to handle multiple matches |
sub finduser { |
sub finduser { |
my ($name) = @_; |
my ($name) = @_; |
|
my $domain = ''; |
|
|
|
if ( $Apache::grades::viewgrades eq 'F' ) { |
|
#get classlist |
|
my ($cdom,$cnum) = split(/_/,$ENV{'request.course.id'}); |
|
#print "Found $cdom:$cnum<br />"; |
|
my (%classlist) = &getclasslist($cdom,$cnum,'0'); |
|
foreach my $student ( sort(@{ $classlist{'allids'} }) ) { |
|
my ($posname,$posdomain) = split(/:/,$student); |
|
if ($posname =~ $name) { $name=$posname; $domain=$posdomain; last; } |
|
} |
|
return ($name,$domain); |
|
} else { |
|
return ($ENV{'user.name'},$ENV{'user.domain'}); |
|
} |
|
} |
|
|
|
sub getclasslist { |
|
my ($coursedomain,$coursenum,$hideexpired) = @_; |
|
my %classlist=&Apache::lonnet::dump('classlist',$coursedomain,$coursenum); |
|
my $now = time; |
|
foreach my $student (keys(%classlist)) { |
|
my ($end,$start)=split(/:/,$classlist{$student}); |
|
# still a student? |
|
if (($hideexpired) && ($end) && ($end < $now)) { |
|
#print "Skipping:$name:$end:$now<br />\n"; |
|
next; |
|
} |
|
#print "record=$record<br>"; |
|
push( @{ $classlist{'allids'} }, $student); |
|
} |
|
return (%classlist); |
|
} |
|
|
|
sub getpartlist { |
|
my ($url) = @_; |
|
my @parts =(); |
|
my (@metakeys) = split(/,/,&Apache::lonnet::metadata($url,'keys')); |
|
foreach my $key (@metakeys) { |
|
if ( $key =~ m/stores_([0-9]+)_.*/ ) { |
|
push(@parts,$key); |
|
} |
|
} |
|
return @parts; |
|
} |
|
|
|
sub viewstudentgrade { |
|
my ($url,$symb,$courseid,$student,@parts) = @_; |
|
my $result =''; |
|
my $cellclr = '"#ffffdd"'; |
|
my ($stuname,$domain) = split(/:/,$student); |
|
|
|
my %record=&Apache::lonnet::restore($symb,$courseid,$domain,$stuname); |
|
|
|
$result.="<tr><td bgcolor=$cellclr>$stuname</td><td bgcolor=$cellclr align=\"middle\">$domain</td>\n"; |
|
foreach my $part (@parts) { |
|
my ($temp,$part,$type)=split(/_/,$part); |
|
#print "resource.$part.$type = ".$record{"resource.$part.$type"}." <br />\n"; |
|
if ($type eq 'awarded') { |
|
my $score=$record{"resource.$part.$type"}; |
|
$result.="<td bgcolor=$cellclr align=\"middle\"><input type=\"text\" name=\"GRADE.$student.$part.$type\" value=\"$score\" size=\"4\" /></td>\n"; |
|
} elsif ($type eq 'tries') { |
|
my $score=$record{"resource.$part.$type"}; |
|
$result.="<td bgcolor=$cellclr align=\"middle\"><input type=\"text\" name=\"GRADE.$student.$part.$type\" value=\"$score\" size=\"4\" /></td>\n" |
|
} elsif ($type eq 'solved') { |
|
my $score=$record{"resource.$part.$type"}; |
|
$result.="<td bgcolor=$cellclr align=\"middle\"><select name=\"GRADE.$student.$part.$type\">\n"; |
|
if ($score =~ /^correct/) { |
|
$result.="<option selected=\"on\">correct</option>\n<option>incorrect</option>\n<option>excused</option>\n<option>ungraded</option>\n<option>nothing</option>\n"; |
|
} elsif ($score =~ /^incorrect/) { |
|
$result.="<option>correct</option>\n<option selected=\"on\">incorrect</option>\n<option>excused</option>\n<option>ungraded</option>\n<option>nothing</option>\n"; |
|
} elsif ($score eq '') { |
|
$result.="<option>correct</option>\n<option>incorrect</option>\n<option>excused</option>\n<option>ungraded</option>\n<option selected=\"on\">nothing</option>\n"; |
|
} elsif ($score =~ /^excused/) { |
|
$result.="<option>correct</option>\n<option>incorrect</option>\n<option selected=\"on\">excused</option>\n<option>ungraded</option>\n<option>nothing</option>\n"; |
|
} elsif ($score =~ /^ungraded/) { |
|
$result.="<option>correct</option>\n<option>incorrect</option>\n<option>excused</option>\n<option selected=\"on\">ungraded</option>\n<option>nothing</option>\n"; |
|
} |
|
$result.="</select></td>\n"; |
|
} |
|
} |
|
$result.='</tr>'; |
|
return $result; |
|
} |
|
#FIXME need to look at the meatdata <stores> spec on what type of data to accept and provide an |
|
#interface based on that, also do that to above function. |
|
sub setstudentgrade { |
|
my ($url,$symb,$courseid,$student,@parts) = @_; |
|
|
|
my $result =''; |
|
|
|
my ($stuname,$domain) = split(/:/,$student); |
|
|
|
my %record=&Apache::lonnet::restore($symb,$courseid,$domain,$stuname); |
|
|
|
my %newrecord; |
|
|
|
foreach my $part (@parts) { |
|
my ($temp,$part,$type)=split(/_/,$part); |
|
my $oldscore=$record{"resource.$part.$type"}; |
|
my $newscore=$ENV{"form.GRADE.$student.$part.$type"}; |
|
if ($type eq 'solved') { |
|
my $update=0; |
|
if ($newscore eq 'nothing' ) { |
|
if ($oldscore ne '') { |
|
$update=1; |
|
$newscore = ''; |
|
} |
|
} elsif ($oldscore !~ m/^$newscore/) { |
|
$update=1; |
|
$result.="Updating $stuname to $newscore<br />\n"; |
|
if ($newscore eq 'correct') { $newscore = 'correct_by_override'; } |
|
if ($newscore eq 'incorrect') { $newscore = 'incorrect_by_override'; } |
|
if ($newscore eq 'excused') { $newscore = 'excused'; } |
|
if ($newscore eq 'ungraded') { $newscore = 'ungraded_attempted'; } |
|
} else { |
|
#$result.="$stuname:$part:$type:unchanged $oldscore to $newscore:<br />\n"; |
|
} |
|
if ($update) { $newrecord{"resource.$part.$type"}=$newscore; } |
|
} else { |
|
if ($oldscore ne $newscore) { |
|
$newrecord{"resource.$part.$type"}=$newscore; |
|
$result.="Updating $student"."'s status for $part.$type to $newscore<br />\n"; |
|
} else { |
|
#$result.="$stuname:$part:$type:unchanged $oldscore to $newscore:<br />\n"; |
|
} |
|
} |
|
} |
|
if ( scalar(keys(%newrecord)) > 0 ) { |
|
$newrecord{"resource.regrader"}="$ENV{'user.name'}:$ENV{'user.domain'}"; |
|
&Apache::lonnet::cstore(\%newrecord,$symb,$courseid,$domain,$stuname); |
|
|
|
$result.="Stored away ".scalar(keys(%newrecord))." elements.<br />\n"; |
|
} |
|
return $result; |
} |
} |
|
|
sub submission { |
sub submission { |
my ($request) = @_; |
my ($request) = @_; |
|
my $url=$ENV{'form.url'}; |
|
$url=~s-^http://($ENV{'SERVER_NAME'}|$ENV{'HTTP_HOST'})--; |
if ($ENV{'form.student'} eq '') { &moreinfo($request,"Need student login id"); return ''; } |
if ($ENV{'form.student'} eq '') { &moreinfo($request,"Need student login id"); return ''; } |
|
# if ($ENV{'form.student'} eq '') { &listStudents($request); return ''; } |
my ($uname,$udom) = &finduser($ENV{'form.student'}); |
my ($uname,$udom) = &finduser($ENV{'form.student'}); |
if ($uname eq '') { &moreinfo($request,"Unable to find student"); return ''; } |
if ($uname eq '') { &moreinfo($request,"Unable to find student"); return ''; } |
# my $answer=&Apache::lonnet::reply( |
my $symb; |
# "restore:$udom:$uname:". |
if ($ENV{'form.symb'}) { |
# $ENV{'request.course.id'}.':'. |
$symb=$ENV{'form.symb'}; |
# &Apache::lonnet::escape($symb), |
} else { |
# &Apache::lonnet::homeserver($uname,$udom)); |
$symb=&Apache::lonnet::symbread($url); |
|
} |
|
if ($symb eq '') { $request->print("Unable to handle ambiguous references:$url:."); return ''; } |
|
my $answer=&Apache::loncommon::get_previous_attempt($symb,$uname,$udom, |
|
$ENV{'request.course.id'}); |
|
my $result="<h2> Submission Record </h2> $uname:$udom for $url <br />".$answer; |
|
my $rendered=&Apache::loncommon::get_student_view($symb,$uname,$udom, |
|
$ENV{'request.course.id'}); |
|
$result.="Student's view of the problem:<br /> $rendered <br /> Correct answer:<br />"; |
|
|
|
$answer=&Apache::loncommon::get_student_answers($symb,$uname,$udom, |
|
$ENV{'request.course.id'}); |
|
$result.=$answer; |
|
return $result; |
|
} |
|
|
|
sub get_symb_and_url { |
|
my ($request) = @_; |
|
my $url=$ENV{'form.url'}; |
|
$url=~s-^http://($ENV{'SERVER_NAME'}|$ENV{'HTTP_HOST'})--; |
|
my $symb=$ENV{'form.symb'}; |
|
if (!$symb) { $symb=&Apache::lonnet::symbread($url); } |
|
if ($symb eq '') { $request->print("Unable to handle ambiguous references:$url:."); return ''; } |
|
return ($symb,$url); |
|
} |
|
|
|
sub gradingmenu { |
|
my ($request) = @_; |
|
my ($symb,$url)=&get_symb_and_url($request); |
|
if (!$symb) {return '';} |
|
my $result='<h2>Select a grading method</h2><br />'; |
|
$result.='<form action="/adm/grades" method="post">'."\n". |
|
'<input type="hidden" name="symb" value="'.$symb.'" />'."\n". |
|
'<input type="hidden" name="url" value="'.$url.'" />'."\n". |
|
'<input type="hidden" name="command" value="viewgrades" />'."\n". |
|
'<input type="submit" name="submit" value="View/Edit Entire Class" />'."\n". |
|
'</form>'; |
|
$result.='<form action="/adm/grades" method="post">'."\n". |
|
'<input type="hidden" name="symb" value="'.$symb.'" />'."\n". |
|
'<input type="hidden" name="url" value="'.$url.'" />'."\n". |
|
'<input type="hidden" name="command" value="csvupload" />'."\n". |
|
'<input type="submit" name="submit" value="Upload Scores" />'."\n". |
|
'</form>'; |
|
$result.='<form action="/adm/grades" method="post">'."\n". |
|
'<input type="hidden" name="symb" value="'.$symb.'" />'."\n". |
|
'<input type="hidden" name="url" value="'.$url.'" />'."\n". |
|
'<input type="hidden" name="command" value="submission" />'."\n". |
|
'<input type="submit" name="submit" value="View/Edit Student" />'."\n". |
|
'</form>'; |
|
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'}); |
|
#print "Found $cdom:$cnum<br />"; |
|
my (%classlist) = &getclasslist($cdom,$cnum,'0'); |
|
my $headerclr = '"#ccffff"'; |
|
my $cellclr = '"#ffffcc"'; |
|
|
|
#get list of parts for this problem |
|
my (@parts) = &getpartlist($url); |
|
|
|
$request->print ("<h2><font color=\"#339966\">Manual Grading</font></h2>"); |
|
|
|
#start the form |
|
$result = '<form action="/adm/grades" method="post">'."\n". |
|
'<input type="hidden" name="symb" value="'.$symb.'" />'."\n". |
|
'<input type="hidden" name="url" value="'.$url.'" />'."\n". |
|
'<input type="hidden" name="command" value="editgrades" />'."\n". |
|
'<input type="submit" name="submit" value="Submit Changes" />'."\n". |
|
'<table border=0><tr><td bgcolor="#999999">'."\n". |
|
'<table border=0>'."\n". |
|
'<tr><td bgcolor='.$headerclr.'>UserId</td><td bgcolor='.$headerclr.'>Domain</td>'."\n"; |
|
foreach my $part (@parts) { |
|
my $display=&Apache::lonnet::metadata($url,$part.'.display'); |
|
if (!$display) { $display = &Apache::lonnet::metadata($url,$part.'.name'); } |
|
$result.='<td bgcolor='.$headerclr.'>'.$display.'</td>'."\n"; |
|
} |
|
$result.="</tr>"; |
|
#get info for each student |
|
foreach my $student ( sort(@{ $classlist{'allids'} }) ) { |
|
$result.=&viewstudentgrade($url,$symb,$ENV{'request.course.id'},$student,@parts); |
|
} |
|
$result.='</table></td></tr></table><input type="submit" name="submit" value="Submit Changes" /></form>'; |
|
|
|
return $result; |
|
} |
|
|
|
sub editgrades { |
|
my ($request) = @_; |
|
my $result=''; |
|
|
|
my $symb=$ENV{'form.symb'}; |
|
if ($symb eq '') { $request->print("Unable to handle ambiguous references:$symb:$ENV{'form.url'}"); return ''; } |
|
my $url=$ENV{'form.url'}; |
|
#get classlist |
|
my ($cdom,$cnum) = split(/_/,$ENV{'request.course.id'}); |
|
#print "Found $cdom:$cnum<br />"; |
|
my (%classlist) = &getclasslist($cdom,$cnum,'0'); |
|
|
|
#get list of parts for this problem |
|
my (@parts) = &getpartlist($url); |
|
|
|
$result.='<form action="/adm/grades" method="post">'."\n". |
|
'<input type="hidden" name="symb" value="'.$symb.'" />'."\n". |
|
'<input type="hidden" name="url" value="'.$url.'" />'."\n". |
|
'<input type="hidden" name="command" value="viewgrades" />'."\n". |
|
'<input type="submit" name="submit" value="See Grades" /> <br />'."\n"; |
|
|
|
foreach my $student ( sort(@{ $classlist{'allids'} }) ) { |
|
$result.=&setstudentgrade($url,$symb,$ENV{'request.course.id'},$student,@parts); |
|
} |
|
|
|
$result.='<input type="submit" name="submit" value="See Grades" /></table></form>'; |
|
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.=<<ENDUPFORM; |
|
<form method="post" enctype="multipart/form-data" action="/adm/grades" name="gradesupload"> |
|
<input type="hidden" name="symb" value="$symb" /> |
|
<input type="hidden" name="url" value="$url" /> |
|
<input type="hidden" name="command" value="csvuploadmap" /> |
|
<hr /> |
|
<h3>Specify a file containing the class grades for resource $url</h3> |
|
$upfile_select |
|
<p><input type="submit" name="submit" value="Upload Grades" /> |
|
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(<<ENDPICK); |
|
<form method="post" enctype="multipart/form-data" action="/adm/grades" name="gradesupload"> |
|
<h3>Uploading Class Grades for resource $url</h3> |
|
<hr> |
|
<h3>Identify fields</h3> |
|
Total number of records found in file: $distotal <hr /> |
|
Enter as many fields as you can. The system will inform you and bring you back |
|
to this page if the data selected is insufficient to run your class.<hr /> |
|
<input type="button" value="Reverse Association" onClick="javascript:this.form.associate.value='Reverse Association';submit(this.form);" /> |
|
<input type="hidden" name="associate" value="" /> |
|
<input type="hidden" name="phase" value="three" /> |
|
<input type="hidden" name="datatoken" value="$datatoken" /> |
|
<input type="hidden" name="fileupload" value="$ENV{'form.fileupload'}" /> |
|
<input type="hidden" name="upfiletype" value="$ENV{'form.upfiletype'}" /> |
|
<input type="hidden" name="upfile_associate" |
|
value="$ENV{'form.upfile_associate'}" /> |
|
<input type="hidden" name="symb" value="$symb" /> |
|
<input type="hidden" name="url" value="$url" /> |
|
<input type="hidden" name="command" value="csvuploadassign" /> |
|
<hr /> |
|
<script type="text/javascript" language="Javascript"> |
|
$javascript |
|
$javascript_validations |
|
</script> |
|
ENDPICK |
|
return ''; |
|
|
|
} |
|
|
|
sub csvupload_fields { |
|
my ($url) = @_; |
|
my (@parts) = &getpartlist($url); |
|
my @fields; |
|
foreach my $part (@parts) { |
|
my @datum; |
|
my $display=&Apache::lonnet::metadata($url,$part.'.display'); |
|
my $name=&Apache::lonnet::metadata($url,$part.'.name'); |
|
if (!$display) { $display = $name; } |
|
@datum=($name,$display); |
|
push(@fields,\@datum); |
|
} |
|
return (@fields); |
|
} |
|
|
|
sub csvuploadmap_footer { |
|
my ($request,$i,$keyfields) =@_; |
|
$request->print(<<ENDPICK); |
|
</table> |
|
<input type="hidden" name="nfields" value="$i" /> |
|
<input type="hidden" name="keyfields" value="$keyfields" /> |
|
<input type="button" onClick="javascript:verify(this.form)" value="Assign Grades" /><br /> |
|
</form> |
|
ENDPICK |
|
} |
|
|
|
sub csvuploadmap { |
|
my ($request)= @_; |
|
my ($symb,$url)=&get_symb_and_url($request); |
|
if (!$symb) {return '';} |
|
my $datatoken; |
|
if (!$ENV{'form.datatoken'}) { |
|
$datatoken=&Apache::loncommon::upfile_store($request); |
|
} else { |
|
$datatoken=$ENV{'form.datatoken'}; |
|
&Apache::loncommon::load_tmp_file($request); |
|
} |
|
my @records=&Apache::loncommon::upfile_record_sep(); |
|
&csvuploadmap_header($request,$symb,$url,$datatoken,$#records+1); |
|
my $i; |
|
my $keyfields; |
|
if (@records) { |
|
my @fields=&csvupload_fields($url); |
|
if ($ENV{'form.upfile_associate'} eq 'reverse') { |
|
&Apache::loncommon::csv_print_samples($request,\@records); |
|
$i=&Apache::loncommon::csv_print_select_table($request,\@records, |
|
\@fields); |
|
foreach (@fields) { $keyfields.=$_->[0].','; } |
|
chop($keyfields); |
|
} else { |
|
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))); |
|
} |
|
} |
|
&csvuploadmap_footer($request,$i,$keyfields); |
return ''; |
return ''; |
} |
} |
|
|
sub send_header { |
sub send_header { |
my ($request)= @_; |
my ($request)= @_; |
$request->print(&Apache::lontexconvert::header()); |
$request->print(&Apache::lontexconvert::header()); |
|
# $request->print(" |
|
#<script> |
|
#remotewindow=open('','homeworkremote'); |
|
#remotewindow.close(); |
|
#</script>"); |
$request->print('<body bgcolor="#FFFFFF">'); |
$request->print('<body bgcolor="#FFFFFF">'); |
} |
} |
|
|
Line 66 sub handler {
|
Line 578 sub handler {
|
} |
} |
$request->send_http_header; |
$request->send_http_header; |
return OK if $request->header_only; |
return OK if $request->header_only; |
|
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}); |
my $url=$ENV{'form.url'}; |
my $url=$ENV{'form.url'}; |
|
my $symb=$ENV{'form.symb'}; |
my $command=$ENV{'form.command'}; |
my $command=$ENV{'form.command'}; |
|
if (!$url) { |
|
my ($temp1,$temp2); |
|
($temp1,$temp2,$ENV{'form.url'})=split(/___/,$symb); |
|
$url = $ENV{'form.url'}; |
|
} |
&send_header($request); |
&send_header($request); |
if ($url eq '') { |
if ($url eq '' && $symb eq '') { |
$request->print("Non-Contextual Access Unsupported:$command:$url:"); |
if ($ENV{'user.adv'}) { |
|
if (($ENV{'form.codeone'}) && ($ENV{'form.codetwo'}) && |
|
($ENV{'form.codethree'})) { |
|
my $token=$ENV{'form.codeone'}.'*'.$ENV{'form.codetwo'}.'*'. |
|
$ENV{'form.codethree'}; |
|
my ($tsymb,$tuname,$tudom,$tcrsid)= |
|
&Apache::lonnet::checkin($token); |
|
if ($tsymb) { |
|
my ($map,$id,$url)=split(/\_\_\_/,$tsymb); |
|
if (&Apache::lonnet::allowed('mgr',$tcrsid)) { |
|
$request->print( |
|
&Apache::lonnet::ssi('/res/'.$url, |
|
('grade_username' => $tuname, |
|
'grade_domain' => $tudom, |
|
'grade_courseid' => $tcrsid, |
|
'grade_symb' => $tsymb))); |
|
} else { |
|
$request->print('<h1>Not authorized: '.$token.'</h1>'); |
|
} |
|
} else { |
|
$request->print('<h1>Not a valid DocID: '.$token.'</h1>'); |
|
} |
|
} else { |
|
$request->print(&Apache::lonxml::tokeninputfield()); |
|
} |
|
} |
} else { |
} else { |
$Apache::grades::viewgrades=&Apache::lonnet::allowed('vgr',$url); |
&Apache::lonhomework::showhashsubset(\%ENV,'^form'); |
|
$Apache::grades::viewgrades=&Apache::lonnet::allowed('vgr',$ENV{'request.course.id'}); |
if ($command eq 'submission') { |
if ($command eq 'submission') { |
&submission($request); |
&listStudents($request) if ($ENV{'form.student'} eq ''); |
|
$request->print(&submission($request)) if ($ENV{'form.student'} ne ''); |
|
} elsif ($command eq 'gradingmenu') { |
|
$request->print(&gradingmenu($request)); |
|
} elsif ($command eq 'viewgrades') { |
|
$request->print(&viewgrades($request)); |
|
} elsif ($command eq 'editgrades') { |
|
$request->print(&editgrades($request)); |
|
} elsif ($command eq 'verify') { |
|
$request->print(&verifyreceipt($request)); |
|
} elsif ($command eq 'csvupload') { |
|
$request->print(&csvupload($request)); |
|
} elsif ($command eq 'csvuploadmap') { |
|
$request->print(&csvuploadmap($request)); |
|
} elsif ($command eq 'csvuploadassign') { |
|
if ($ENV{'form.associate'} ne 'Reverse Association') { |
|
$request->print(&csvuploadassign($request)); |
|
} else { |
|
if ( $ENV{'form.upfile_associate'} ne 'reverse' ) { |
|
$ENV{'form.upfile_associate'} = 'reverse'; |
|
} else { |
|
$ENV{'form.upfile_associate'} = 'forward'; |
|
} |
|
$request->print(&csvuploadmap($request)); |
|
} |
} else { |
} else { |
$request->print("Unknown action:$command:"); |
$request->print("Unknown action: $command:"); |
} |
} |
} |
} |
&send_footer($request); |
&send_footer($request); |