-
-Resource: $ENV{'form.url'}Username Name Domain View Problem Submissions Action View Submissions for a Student or a Group of Students Resource: $ENV{'form.url'}View Problem: Submissions:
+
+ Select Username Fullname Domain Grade Status
ENDTABLEST
- my (%classlist) = &getclasslist($cdom,$cnum,'0');
- foreach my $student ( sort(@{ $classlist{'allids'} }) ) {
+ if ($ENV{'form.url'}) {
+ $request->print(''."$sname $fullname $sdom ".
- ' ');
-# $request->print('');
+ $request->print("\n".''.
+ ' '.$sname.' '."\n".
+ ' '.$fullname.' '."\n".
+ ' '.$sdom.' '."\n");
+ $request->print(' '.$status.' '."\n");
+
+ $request->print(' ');
}
}
$request->print('
');
+ $request->print('LON-CAPA User Error Reason: '.$reason.'Step: '.($step ne '' ? $step : 'Use your browser back button to correct')
+ .'$username $fullname $domain \n";
foreach my $part (@parts) {
my ($temp,$part,$type)=split(/_/,$part);
- #print "resource.$part.$type = ".$record{"resource.$part.$type"}." \n";
- if ($score =~ /^correct/) {
- $result.="correct \nincorrect \nexcused \nungraded \nnothing \n";
- } elsif ($score =~ /^incorrect/) {
- $result.="correct \nincorrect \nexcused \nungraded \nnothing \n";
- } elsif ($score eq '') {
- $result.="correct \nincorrect \nexcused \nungraded \nnothing \n";
- } elsif ($score =~ /^excused/) {
- $result.="correct \nincorrect \nexcused \nungraded \nnothing \n";
- } elsif ($score =~ /^ungraded/) {
- $result.="correct \nincorrect \nexcused \nungraded \nnothing \n";
- }
+ my $optsel = 'correct incorrect excused '.
+ 'ungraded partial nothing '."\n";
+ $status = 'nothing' if ($status eq '');
+ $optsel =~ s/$status/ $status/;
+ $result.=$optsel;
$result.=" 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) = @_;
-
+ print "set student grade parts=@parts
+ function updateRadio(radioButton,formtextbox,formsel,wgt) {
+ var pts = formtextbox.value;
+ 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 0 && pts < wgt) {
+ formsel[4].selected = true;
+ }
+ if (pts == wgt) {
+ formsel[0].selected = true;
+ }
+ return;
+ }
+
+ function keywords(keyform) {
+ var keywds = keyform.value;
+ var nret = prompt("Keywords list, separate by a space or comma. Add/delete to list if desired.",keywds);
+ if (nret==null) return;
+ keyform.value = nret;
+ return;
+ }
+
+ function addmsg(msgform) {
+ var msg = msgform.value;
+ var nret = prompt("Enter the message you wish to send to the student.",msg);
+ if (nret==null) return;
+ msgform.value = nret;
+ return;
+ }
+
+ function savedmsg(msgform) {
+ var Nmsg = msgform.value;
+ var nret = prompt("Number of saved messages = ",Nmsg);
+ if (nret==null) return;
+ msgform.value = nret;
+ return;
+ }
+
+
+JAVASCRIPT
+}
+ (my $url=$ENV{'form.url'})=~s-^http://($ENV{'SERVER_NAME'}|$ENV{'HTTP_HOST'})--;
+ if ($ENV{'form.student'} eq '') { &moreinfo($request,'Need student login id'); return ''; }
+ my ($uname,$udom) = &finduser($ENV{'form.student'});
+ if ($uname eq '') { &moreinfo($request,'Unable to find student'); 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 ''; }
+ my $last = ($ENV{'form.lastSub'} eq 'last' ? 'last' : '');
+#
+# header info
+ if ($counter == 0) {
+ $request->print('Submission Record Submission Record Username: '.$uname.'Fullname: '.$ENV{'form.fullname'}.'Domain: '.$udom.'Resource: '.$url.'
';
- if ($ENV{'form.vProb'} eq 'yes') {
+#
+# option to display problem, only once else it cause problems with the form later since the problem has a form.
+ if ($ENV{'form.vProb'} eq 'yes' && $counter == 0) {
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.='Student\'s view of the problem: '.$rendered.'';
+ $result.='';
+ $result.='Student\'s view of the problem '.$rendered.'Correct answer:
';
$result.='
$word\<\/font\>/gi;
+ }
+ return $string;
+}
+
+sub processHandGrade {
+ my ($request) = shift;
+ my $url = $ENV{'form.url'};
+ my $symb = $ENV{'form.symb'};
+ my $button = $ENV{'form.gradeOpt'};
+ my $ngrade = $ENV{'form.NCT'};
+ my $ntstu = $ENV{'form.NTSTU'};
+ my $keywords= $ENV{'form.keywords'};
+ my $addmsg = $ENV{'form.addmsg'};
+ print "addmsg=$addmsg Select a Grading Method ';
+ $result.='';
+ $result.='Resource: '.$url.' Type: '.$responsetype.' Handgrade: '.$handgrade.'
';
+
+ $result.=&view_edit_entire_class_form($symb,$url).' Select a Grading Method '."\n";
- $result.=''."\n";
- $result.=' Resource : '.$url.' '."\n";
+ $result.=''."\n";
+ $result.='
'."\n";
+ return $result;
+}
+
+sub upcsvScores_form {
+ my ($symb,$url) = @_;
+ if (!$symb) {return '';}
+ my $result.=''."\n";
+ $result.=''."\n";
+ $result.='
'."\n";
+ return $result;
+}
+
+sub viewGradeaStu_form {
+ my ($symb,$url,$response,$handgrade) = @_;
+ my ($classlist,$sections) = &getclasslist('all','0');
+ my $result.=''."\n";
+ $result.=''."\n";
+ $result.='
'."\n";
+ return $result;
+}
+
+sub verifyReceipt_form {
+ my ($symb,$url) = @_;
+ 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'});
+
+ my $result.=''."\n";
+ $result.=''."\n";
+ $result.=' Verify a Submission Receipt Issued by this Server '."\n";
+ $result.='';
$result.='
'."\n";
$result.='
'."\n";
return $result;
@@ -456,7 +908,7 @@ sub viewgrades {
#get classlist
my ($cdom,$cnum) = split(/_/,$ENV{'request.course.id'});
#print "Found $cdom:$cnum'."\n".
+ ''."\n".
''."\n".
'Username Name Domain
';
+ $result.='
-Specify a file containing the class grades for resource $url
-$upfile_select
-print('Assigning Grades ');
my $courseid=$ENV{'request.course.id'};
- my $cdom=$ENV{"course.$courseid.domain"};
- my $cnum=$ENV{"course.$courseid.num"};
- my (%classlist) = &getclasslist($cdom,$cnum,'1');
+# my $cdom=$ENV{"course.$courseid.domain"};
+# my $cnum=$ENV{"course.$courseid.num"};
+ my ($classlist) = &getclasslist('all','1');
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"})) {
+ if (!exists($$classlist{"$username:$domain"})) {
push(@skipped,"$username:$domain");
next;
}
@@ -837,11 +1273,15 @@ sub handler {
$Apache::grades::viewgrades=&Apache::lonnet::allowed('vgr',$ENV{'request.course.id'});
if ($command eq 'submission') {
&listStudents($request) if ($ENV{'form.student'} eq '');
- $request->print(&submission($request)) if ($ENV{'form.student'} ne '');
+ &submission($request,0,0) if ($ENV{'form.student'} ne '');
+ } elsif ($command eq 'processGroup') {
+ &processGroup($request);
} elsif ($command eq 'gradingmenu') {
$request->print(&gradingmenu($request));
} elsif ($command eq 'viewgrades') {
$request->print(&viewgrades($request));
+ } elsif ($command eq 'handgrade') {
+ $request->print(&processHandGrade($request));
} elsif ($command eq 'editgrades') {
$request->print(&editgrades($request));
} elsif ($command eq 'verify') {
@@ -850,8 +1290,8 @@ sub handler {
$request->print(&csvupload($request));
} elsif ($command eq 'csvuploadmap') {
$request->print(&csvuploadmap($request));
- } elsif ($command eq 'receiptInput') {
- &receiptInput($request);
+# } elsif ($command eq 'receiptInput') {
+# &receiptInput($request);
} elsif ($command eq 'csvuploadassign') {
if ($ENV{'form.associate'} ne 'Reverse Association') {
$request->print(&csvuploadassign($request));