--- loncom/homework/grades.pm 2002/06/24 21:05:12 1.30 +++ loncom/homework/grades.pm 2002/06/26 21:25:31 1.32 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # The LON-CAPA Grading handler # -# $Id: grades.pm,v 1.30 2002/06/24 21:05:12 ng Exp $ +# $Id: grades.pm,v 1.32 2002/06/26 21:25:31 ng Exp $ # # Copyright Michigan State University Board of Trustees # @@ -116,6 +116,21 @@ ENDHEADER return ''; } +sub student_gradeStatus { + my ($url,$udom,$uname) = @_; + my $symb=($ENV{'form.symb'} ne '' ? $ENV{'form.symb'} : (&Apache::lonnet::symbread($url))); + my %record= &Apache::lonnet::restore($symb,$ENV{'request.course.id'},$udom,$uname); + foreach my $part (&getpartlist($url)) { + my ($temp,$part,$type)=split(/_/,$part); + if ($type eq 'solved') { + my ($status,$foo)=split(/_/,$record{"resource.$part.$type"},2); + $status = 'nothing' if ($status eq ''); + return $type,$status; + } + } + return ''; +} + sub listStudents { my ($request) = shift; my $cdom=$ENV{"course.$ENV{'request.course.id'}.domain"}; @@ -124,11 +139,12 @@ sub listStudents { $request->print(<Show Student Submissions on Assessment -
+
- + - + + ENDTABLEST my (%classlist) = &getclasslist($cdom,$cnum,'0'); foreach my $student ( sort(@{ $classlist{'allids'} }) ) { @@ -145,7 +161,7 @@ ENDTABLEST $fullname.=$name{'firstname'}.' '.$name{'middlename'}; } if ( $Apache::grades::viewgrades eq 'F' ) { - $request->print("\n".''."". + $request->print("\n".''."". ''); if ($ENV{'form.url'}) { $request->print( @@ -169,6 +185,9 @@ ENDTABLEST $request->print(''); + my ($type,$status) = &student_gradeStatus($ENV{'form.url'},$cdom,$sname); + $request->print( + ''); $request->print( ''); @@ -237,6 +256,7 @@ sub viewstudentgrade { my (@requests) = ('lastname','firstname','middlename','generation'); my (%name) = &Apache::lonnet::get('environment',\@requests,$domain,$username); my %record=&Apache::lonnet::restore($symb,$courseid,$domain,$username); + my $fullname=$name{'lastname'}.$name{'generation'}; if ($fullname =~ /[^\s]+/) { $fullname.=', '; } $fullname.=$name{'firstname'}.' '.$name{'middlename'}; @@ -244,50 +264,40 @@ sub viewstudentgrade { $result.="\n"; foreach my $part (@parts) { my ($temp,$part,$type)=split(/_/,$part); - #print "resource.$part.$type = ".$record{"resource.$part.$type"}."
\n"; - if ($type eq 'awarded') { - my $score=$record{"resource.$part.$type"}; - $result.="\n"; - } elsif ($type eq 'tries') { - my $score=$record{"resource.$part.$type"}; - $result.="\n" + my $score=$record{"resource.$part.$type"}; + if ($type eq 'awarded' || $type eq 'tries') { + $result.=''."\n"; } elsif ($type eq 'solved') { - my $score=$record{"resource.$part.$type"}; + my ($status,$foo)=split(/_/,$score,2); $result.="\n"; } } $result.=''; return $result; } -#FIXME need to look at the meatdata spec on what type of data to accept and provide an + +#FIXME need to look at the metadata 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"}; + print "old=$oldscore:new=$newscore:
"; if ($type eq 'solved') { my $update=0; if ($newscore eq 'nothing' ) { @@ -316,7 +326,11 @@ sub setstudentgrade { } } if ( scalar(keys(%newrecord)) > 0 ) { - $newrecord{"resource.regrader"}="$ENV{'user.name'}:$ENV{'user.domain'}"; + $newrecord{'resource.regrader'}="$ENV{'user.name'}:$ENV{'user.domain'}"; + print "grader=$newrecord{'resource.regrader'}:
records
"; + while (my ($k,$v) = each %newrecord) { + print "k=$k:v=$v:
\n"; + } &Apache::lonnet::cstore(\%newrecord,$symb,$courseid,$domain,$stuname); $result.="Stored away ".scalar(keys(%newrecord))." elements.
\n"; @@ -324,33 +338,65 @@ sub setstudentgrade { return $result; } +# --------------------------- show submissions of a student, option to grade -------- +# sub submission { my ($request) = @_; + $request->print(< + function updateRadio() { + var pts = document.SCORE.GRADE_BOX.value; + var radioButton = document.SCORE.radval; + var checked =true; + var unchecked=false; + var resetbox =false; + if (isNaN(pts) || pts < 0) { + alert("A number equal or greater than 0 is expected. Entered value = "+pts); + for (var i=0; i +JAVASCRIPT 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 '') { &listStudents($request); return ''; } my ($uname,$udom) = &finduser($ENV{'form.student'}); if ($uname eq '') { &moreinfo($request,"Unable to find student"); return ''; } - my $symb; - if ($ENV{'form.symb'}) { - $symb=$ENV{'form.symb'}; - } else { - $symb=&Apache::lonnet::symbread($url); - } - if ($symb eq '') { $request->print("Unable to handle ambiguous references:$url:."); return ''; } + my $symb=($ENV{'form.symb'} ne '' ? $ENV{'form.symb'} : (&Apache::lonnet::symbread($url))); + if ($symb eq '') { $request->print("Unable to handle ambiguous references:$url:."); return ''; } +# +# header info my $result='

Submission Record

'; $result.='
Resource: $ENV{'form.url'}
Resource: $ENV{'form.url'}
UsernameNameDomainView ProblemSubmissionsAction
View ProblemSubmissionsGrade StatusAction
$sname$fullname$sdom
$sname$fullname$sdom
'. ' last '. ' all '.$status.' '); $request->print('
$username$fullname$domain
'; $result.='
Username: '.$uname.'Fullname: '.$ENV{'form.fullname'}.'Domain: '.$udom.'
Resource: '.$url.'
'; +# +# option to display problem if ($ENV{'form.vProb'} eq 'yes') { my $rendered=&Apache::loncommon::get_student_view($symb,$uname,$udom, $ENV{'request.course.id'}); my $companswer=&Apache::loncommon::get_student_answers($symb,$uname,$udom, $ENV{'request.course.id'}); - $result.='
'; + $result.='
'; $result.='
'; - $result.='Student\'s view of the problem:
'.$rendered.'
'; + $result.='Student\'s view of the problem
'.$rendered.'
'; $result.='Correct answer:
'.$companswer; $result.='
'; $result.='

'; @@ -359,33 +405,90 @@ sub submission { $last = 'last' if ($ENV{'form.submission'} eq 'last'); my $answer=&Apache::loncommon::get_previous_attempt($symb,$uname,$udom, $ENV{'request.course.id'},$last); - $result.=$answer.'
Needs an interface for inputting scores'; + $result.=$answer; - my (@parts) = sort(&getpartlist($url)); + my $wgt = &Apache::lonnet::EXT('resource.partid.weight',$symb,$udom,$uname); + my %record= &Apache::lonnet::restore($symb,$ENV{'request.course.id'},$udom,$uname); + my $score = $record{'resource.0.awarded'}*$wgt; - #start the form - $result.= '
'."\n". + $result.= ''."\n". ''."\n". ''."\n". - ''."\n". - '
'."\n". - ''."\n". - ''; - #get info for each student - $result.=&viewstudentgrade($url,$symb,$ENV{'request.course.id'},$uname,@parts); + ''."\n"; - $result.='
'."\n"; - - $result.='
'; + $result.=''; + $result.=''."\n"; + $result.=''; + + $result.=''."\n"; + $result.='
Points'; + my $ctr = 0; + while ($ctr<=$wgt) { + $result.= ' '.$ctr."\n"; + $ctr++; + } + $result.=' or /'.$wgt.' (problem weight)
 '; + $result.=' '; + $result.=' '; + $result.='
'; return $result; } +sub processHandGrade { + my ($url,$symb,$courseid,$student,@parts) = @_; + + 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_BOX'} ne '' ? $ENV{"form.GRADE_BOX"} : $ENV{'form.radval'}); + if ($type eq 'solved') { + my $update=0; + if ($newscore eq 'nothing' ) { + if ($oldscore ne '') { + $update=1; + $newscore = ''; + } + } elsif ($oldscore !~ m/^$newscore/) { + $update=1; + 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'; } + if ($newscore eq 'handgraded') { $newscore = 'handgraded_by_grader'; } + } + if ($update) { $newrecord{"resource.$part.$type"}=$newscore; } + } else { + if ($oldscore ne $newscore) { + $newrecord{"resource.$part.$type"}=$newscore; + } + } + if ( scalar(keys(%newrecord)) > 0 ) { + $newrecord{'resource.regrader'}="$ENV{'user.name'}:$ENV{'user.domain'}"; + print "grader=$newrecord{'resource.regrader'}:
records
"; + while (my ($k,$v) = each %newrecord) { + print "k=$k:v=$v:
\n"; + } + &Apache::lonnet::cstore(\%newrecord,$symb,$courseid,$domain,$stuname); + } + return ''; +} + 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); } +# my $symb=$ENV{'form.symb'}; +# if (!$symb) { $symb=&Apache::lonnet::symbread($url); } + my $symb=($ENV{'form.symb'} ne '' ? $ENV{'form.symb'} : (&Apache::lonnet::symbread($url))); if ($symb eq '') { $request->print("Unable to handle ambiguous references:$url:."); return ''; } return ($symb,$url); } @@ -418,7 +521,7 @@ sub gradingmenu { if (!$symb) {return '';} my $result='

 Select a Grading Method


'; - $result.='
'."\n"; + $result.='
'."\n"; $result.=''."\n"; $result.='
'."\n"; $result.=' Resource : '.$url.'
'."\n"; @@ -471,20 +574,24 @@ sub viewgrades { ''."\n". ''."\n". ''."\n". - '
'."\n". + '
'."\n". ''."\n". ''."\n"; foreach my $part (@parts) { my $display=&Apache::lonnet::metadata($url,$part.'.display'); if (!$display) { $display = &Apache::lonnet::metadata($url,$part.'.name'); } + print "Manual grading:$url:$part:$display:
"; $result.=''."\n"; } $result.=''; #get info for each student foreach my $student ( sort(@{ $classlist{'allids'} }) ) { + my $display=&viewstudentgrade($url,$symb,$ENV{'request.course.id'},$student,@parts); +# print "ID=$ENV{'request.course.id'}:STU=$student:DIS=$display:
\n"; $result.=&viewstudentgrade($url,$symb,$ENV{'request.course.id'},$student,@parts); } - $result.='
UsernameNameDomain'.$display.'
'; + $result.='
'; + $result.=''; $result.=&show_grading_menu_form($symb,$url); return $result; }