-
-Username Name Domain
+
+
+Resource: $ENV{'form.url'}
+Username Name Domain
+View Problem Submissions Action
ENDTABLEST
my (%classlist) = &getclasslist($cdom,$cnum,'0');
foreach my $student ( sort(@{ $classlist{'allids'} }) ) {
@@ -131,26 +145,32 @@ ENDTABLEST
$fullname.=$name{'firstname'}.' '.$name{'middlename'};
}
if ( $Apache::grades::viewgrades eq 'F' ) {
- $request->print("\n".''."$sname $fullname $sdom ".
+ $request->print("\n".' '."$sname $fullname $sdom ".
' ');
# $request->print('');
}
@@ -201,7 +221,7 @@ sub getpartlist {
my @parts =();
my (@metakeys) = split(/,/,&Apache::lonnet::metadata($url,'keys'));
foreach my $key (@metakeys) {
- if ( $key =~ m/stores_([0-9]+)_.*/ ) {
+ if ( $key =~ m/stores_([0-9]+)_.*/) {
push(@parts,$key);
}
}
@@ -248,7 +268,7 @@ sub viewstudentgrade {
$result.="\n";
}
}
- $result.='';
+ $result.=' ';
return $result;
}
#FIXME need to look at the meatdata spec on what type of data to accept and provide an
@@ -319,17 +339,44 @@ sub submission {
$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 ';
- $result.='Username : '.$uname.'Fullname : '.$ENV{'form.fullname'}.'Domain : '.$udom.'Resource : '.$url.' '.$answer;
- my $rendered=&Apache::loncommon::get_student_view($symb,$uname,$udom,
+ $result.='Username: '.$uname.'Fullname: '.$ENV{'form.fullname'}.'Domain: '.$udom.' ';
+ $result.='Resource: '.$url.'
';
+ if ($ENV{'form.vProb'} eq 'yes') {
+ my $rendered=&Apache::loncommon::get_student_view($symb,$uname,$udom,
$ENV{'request.course.id'});
- $result.="Student's view of the problem: $rendered Correct answer: ";
+ my $companswer=&Apache::loncommon::get_student_answers($symb,$uname,$udom,
+ $ENV{'request.course.id'});
+ $result.='';
+ $result.='';
+ $result.='Student\'s view of the problem: '.$rendered.' ';
+ $result.='Correct answer: '.$companswer;
+ $result.='
';
+ $result.='
';
+ }
+ my $last = '';
+ $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';
+
+ my (@parts) = sort(&getpartlist($url));
+
+ #start the form
+ $result.= '';
return $result;
}
@@ -343,33 +390,56 @@ sub get_symb_and_url {
return ($symb,$url);
}
+sub view_edit_entire_class_form {
+ my ($symb,$url)=@_;
+ my $result.=''."\n";
+ return $result;
+}
+
+sub show_grading_menu_form {
+ my ($symb,$url)=@_;
+ my $result.=''."\n";
+ return $result;
+}
+
sub gradingmenu {
my ($request) = @_;
my ($symb,$url)=&get_symb_and_url($request);
if (!$symb) {return '';}
my $result=' Select a Grading Method ';
- $result.=''."\n";
+ $result.=''."\n";
$result.=''."\n";
$result.=' Resource : '.$url.' '."\n";
$result.=''."\n";
+ $result.=&view_edit_entire_class_form($symb,$url);
$result.=''."\n";
$result.=''."\n";
$result.=''."\n";
$result.='
'."\n";
$result.='
'."\n";
@@ -391,7 +461,7 @@ sub viewgrades {
my $cellclr = '"#ffffcc"';
#get list of parts for this problem
- my (@parts) = &getpartlist($url);
+ my (@parts) = sort(&getpartlist($url));
$request->print ("Manual Grading ");
@@ -401,21 +471,21 @@ sub viewgrades {
' '."\n".
' '."\n".
' '."\n".
- ''."\n".
+ ''."\n".
''."\n".
'Username Name Domain '."\n";
- foreach my $part (sort(@parts)) {
+ foreach my $part (@parts) {
my $display=&Apache::lonnet::metadata($url,$part.'.display');
if (!$display) { $display = &Apache::lonnet::metadata($url,$part.'.name'); }
$result.=''.$display.' '."\n";
- }
+ }
$result.=' ';
#get info for each student
foreach my $student ( sort(@{ $classlist{'allids'} }) ) {
$result.=&viewstudentgrade($url,$symb,$ENV{'request.course.id'},$student,@parts);
}
$result.='
';
-
+ $result.=&show_grading_menu_form($symb,$url);
return $result;
}
@@ -658,21 +728,44 @@ sub csvuploadassign {
}
}
$request->print('Assigning Grades ');
- &Apache::lonhomework::showhash(('1'=>\@keyfields));
- &Apache::lonhomework::showhash(%fields);
my $courseid=$ENV{'request.course.id'};
my $cdom=$ENV{"course.$courseid.domain"};
my $cnum=$ENV{"course.$courseid.num"};
my (%classlist) = &getclasslist($cdom,$cnum,'1');
- foreach my $student ( sort(@{ $classlist{'allids'} }) ) {
- my %newhash;
- foreach my $grade (@gradedata) {
- my %entries=&Apache::loncommon::record_sep($grade);
- foreach my $dest (keys(%fields)) {
-
- }
+ my @skipped;
+ my $countdone=0;
+ foreach my $grade (@gradedata) {
+ my %entries=&Apache::loncommon::record_sep($grade);
+ my $username=$entries{$fields{'username'}};
+ my $domain=$entries{$fields{'domain'}};
+ if (!exists($classlist{"$username:$domain"})) {
+ push(@skipped,"$username:$domain");
+ next;
}
+ my %grades;
+ foreach my $dest (keys(%fields)) {
+ if ($dest eq 'username' || $dest eq 'domain') { next; }
+ if ($entries{$fields{$dest}} eq '') { next; }
+ my $store_key=$dest;
+ $store_key=~s/^stores/resource/;
+ $store_key=~s/_/\./g;
+ $grades{$store_key}=$entries{$fields{$dest}};
+ }
+ $grades{"resource.regrader"}="$ENV{'user.name'}:$ENV{'user.domain'}";
+ &Apache::lonnet::cstore(\%grades,$symb,$ENV{'request.course.id'},
+ $domain,$username);
+ $request->print('.');
+ $request->rflush();
+ $countdone++;
+ }
+ $request->print(" Stored $countdone students\n");
+ if (@skipped) {
+ $request->print('Skipped Students ');
+ foreach my $student (@skipped) { $request->print(" $student"); }
}
+ $request->print(&view_edit_entire_class_form($symb,$url));
+ $request->print(&show_grading_menu_form($symb,$url));
+ return '';
}
sub send_header {
@@ -695,8 +788,6 @@ sub send_footer {
sub handler {
my $request=$_[0];
- if ( $ENV{'user.name'} eq 'albertel' ) {$Apache::lonxml::debug=1;} else {$Apache::lonxml::debug=0;}
-
if ($ENV{'browser.mathml'}) {
$request->content_type('text/xml');
} else {
@@ -742,7 +833,7 @@ sub handler {
}
}
} else {
- &Apache::lonhomework::showhashsubset(\%ENV,'^form');
+ #&Apache::lonhomework::showhashsubset(\%ENV,'^form');
$Apache::grades::viewgrades=&Apache::lonnet::allowed('vgr',$ENV{'request.course.id'});
if ($command eq 'submission') {
&listStudents($request) if ($ENV{'form.student'} eq '');
@@ -759,6 +850,8 @@ sub handler {
$request->print(&csvupload($request));
} elsif ($command eq 'csvuploadmap') {
$request->print(&csvuploadmap($request));
+ } elsif ($command eq 'receiptInput') {
+ &receiptInput($request);
} elsif ($command eq 'csvuploadassign') {
if ($ENV{'form.associate'} ne 'Reverse Association') {
$request->print(&csvuploadassign($request));