--- loncom/homework/grades.pm 2007/06/13 15:22:38 1.402
+++ loncom/homework/grades.pm 2007/06/14 21:36:12 1.404
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# The LON-CAPA Grading handler
#
-# $Id: grades.pm,v 1.402 2007/06/13 15:22:38 www Exp $
+# $Id: grades.pm,v 1.404 2007/06/14 21:36:12 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1959,8 +1959,8 @@ KEYWORDS
($env{'form.lastSub'} eq 'hdgrade' &&
$$handgrade{$$part[0].'_'.$$part[1]} eq 'yes')) {
my $display_part=&get_display_part($partid,$symb);
- $lastsubonly.='
Debug -'.'Part: '.
- $display_part.' ( hhhh ID '.$respid.
+ $lastsubonly.='Part: '.
+ $display_part.' ( ID '.$respid.
' ) ';
my $files=&get_submitted_files($udom,$uname,$partid,$respid,\%record);
if (@$files) {
@@ -6078,9 +6078,9 @@ GRADINGMENUJS
''.
' '.&mt('scores from file').' | '."\n";
-# $result.=''.
-# ''.
-# ' '.&mt('clicker file').' | '."\n";
+ $result.=''.
+ ''.
+ ' '.&mt('clicker file').' | '."\n";
$result.=''.
''.&mt('You need to specify a clicker ID for the correct answer').'';
+ return $result.&show_grading_menu_form($symb);
+ }
my %clickerids=&gather_clicker_ids();
- foreach my $key (keys %clickerids) {
- $result.=' '.$key.' - '.$clickerids{$key};
+ my %correctids=();
+ if ($env{'form.gradingmechanism'} eq 'personnel') {
+ %correctids=&gather_adv_clicker_ids();
+ }
+ if ($env{'form.gradingmechanism'} eq 'specific') {
+ my $correctid=$env{'form.specificid'};
+ $correctid=~tr/a-z/A-Z/;
+ $correctid=~s/\s//gs;
+ $correctids{$correctid}='specified';
}
- return $result;
+ if ($env{'form.gradingmechanism'} eq 'attendance') {
+ $result.=&mt('Score based on attendance only');
+ } else {
+ my $number=0;
+ $result.=''.&mt('Correctness determined by the following IDs').'';
+ foreach my $id (sort(keys(%correctids))) {
+ $result.=''.$id.' - ';
+ if ($correctids{$id} eq 'specified') {
+ $result.=&mt('specified');
+ } else {
+ my ($uname,$udom)=split(/\:/,$correctids{$id});
+ $result.=&Apache::loncommon::plainname($uname,$udom);
+ }
+ $result.=' ';
+ $number++;
+ }
+ if ($number==0) {
+ $result.=''.&mt('No IDs found to determine correct answer').'';
+ return $result.&show_grading_menu_form($symb);
+ }
+ }
+ return $result.&show_grading_menu_form($symb);
}
sub handler {
| |