--- loncom/homework/grades.pm 2001/07/26 15:50:25 1.9 +++ loncom/homework/grades.pm 2001/08/06 20:29:37 1.13 @@ -1,6 +1,7 @@ # The LON-CAPA Grading handler # 2/9,2/13 Guy Albertelli # 6/8 Gerd Kortemeyer +# 7/26 H.K. Ng package Apache::grades; use strict; @@ -27,6 +28,37 @@ sub moreinfo { } +sub listStudents { + my ($request) = shift; + my ($cdom,$cnum) = split(/_/,$ENV{'request.course.id'}); + my $chome=$ENV{"course.$ENV{'request.course.id'}.home"}; + $request->print ("Found $cdom:$cnum:$chome
"); + my (%classlist) = &getclasslist($cdom,$cnum,$chome,'0'); + foreach my $student ( sort(@{ $classlist{'allids'} }) ) { + my ($sname,$sdom) = split(/:/,$student); + + my $reply=&Apache::lonnet::reply('get:'.$sdom.':'.$sname. + ':environment:lastname&generation&firstname&middlename', + &Apache::lonnet::homeserver($sname,$sdom)); + print "reply=$reply
"; + my (@nameparts) = split /&/,$reply; +# my $sfullname = $Apache::lonnet::unescape($nameparts[0]); + + if ( $Apache::grades::viewgrades eq 'F' ) { + $request->print('
'."\n"); + $request->print("$sname @nameparts\n"); + $request->print(''."\n"); + $request->print(''."\n"); + $request->print(''."\n"); + $request->print(''."\n"); + $request->print(''."
\n"); + $request->print('
'); + } + } + +} + + #FIXME - needs to handle multiple matches sub finduser { my ($name) = @_; @@ -61,6 +93,7 @@ sub getclasslist { print "Skipping:$name:$end:$now
\n"; next; } + print "record=$record
"; push( @{ $classlist{'allids'} }, $name); } return (%classlist); @@ -81,24 +114,24 @@ sub getpartlist { 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.="$stuname$domain\n"; + $result.="$stuname$domain\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"; + $result.="\n"; } elsif ($type eq 'tries') { my $score=$record{"resource.$part.$type"}; - $result.="\n" + $result.="\n" } elsif ($type eq 'solved') { my $score=$record{"resource.$part.$type"}; - $result.="\n"; if ($score =~ /^correct/) { $result.="\n\n\n\n\n"; } elsif ($score =~ /^incorrect/) { @@ -163,6 +196,7 @@ sub setstudentgrade { 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.
\n"; } return $result; @@ -173,13 +207,14 @@ sub submission { 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=&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="

Submission Record

$uname:$udom for $url".$answer; + my $result="

Submission Record

$uname:$udom for $url
".$answer; return $result; } @@ -199,30 +234,34 @@ sub viewgrades { my $chome=$ENV{"course.$ENV{'request.course.id'}.home"}; #print "Found $cdom:$cnum:$chome
"; my (%classlist) = &getclasslist($cdom,$cnum,$chome,'0'); - + my $headerclr = '"#ccffff"'; + my $cellclr = '"#ffffcc"'; #get list of parts for this problem my (@parts) = &getpartlist($url); + $request->print ("

Manual Grading

"); + #start the form $result = '
'."\n". ''."\n". ''."\n". ''."\n". ''."\n". - ''."\n". - ''."\n"; + '
UserIdDomain
'."\n". + ''."\n". + ''."\n"; foreach my $part (@parts) { my $display=&Apache::lonnet::metadata($url,$part.'.display'); if (!$display) { $display = &Apache::lonnet::metadata($url,$part.'.name'); } - $result.="\n"; + $result.=''."\n"; } $result.=""; #get info for each student foreach my $student ( sort(@{ $classlist{'allids'} }) ) { $result.=&viewstudentgrade($url,$symb,$ENV{'request.course.id'},$student,@parts); } - $result.='
UserIdDomain$display'.$display.'
'; + $result.='
'; return $result; } @@ -296,7 +335,8 @@ sub handler { } else { $Apache::grades::viewgrades=&Apache::lonnet::allowed('vgr',$ENV{'request.course.id'}); if ($command eq 'submission') { - $request->print(&submission($request)); + $request->print(&listStudents($request)) if ($ENV{'form.student'} eq ''); + $request->print(&submission($request)) if ($ENV{'form.student'} ne ''); } elsif ($command eq 'viewgrades') { $request->print(&viewgrades($request)); } elsif ($command eq 'editgrades') {