loncom/homework/grades.pm - view

File: [LON-CAPA] / loncom / homework / grades.pm
Revision 1.123: download - view: text, annotated - select for diffs
Wed Jul 23 17:33:59 2003 UTC (20 years, 10 months ago) by ng
Branches: MAIN
CVS tags: HEAD

fix bug 1315 - encode the following characters (<,>,&,") in message box (essay grading)
Test the script on following browsers: IE 5.5 on windows, IE ?? on mac, mozilla 5,
netscape 4.76 and konqueror on linux, and netscape 4.7 on windows.

1: # The LearningOnline Network with CAPA 2: # The LON-CAPA Grading handler 3: # 4: # $Id: grades.pm,v 1.123 2003/07/23 17:33:59 ng Exp $ 5: # 6: # Copyright Michigan State University Board of Trustees 7: # 8: # This file is part of the LearningOnline Network with CAPA (LON-CAPA). 9: # 10: # LON-CAPA is free software; you can redistribute it and/or modify 11: # it under the terms of the GNU General Public License as published by 12: # the Free Software Foundation; either version 2 of the License, or 13: # (at your option) any later version. 14: # 15: # LON-CAPA is distributed in the hope that it will be useful, 16: # but WITHOUT ANY WARRANTY; without even the implied warranty of 17: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 18: # GNU General Public License for more details. 19: # 20: # You should have received a copy of the GNU General Public License 21: # along with LON-CAPA; if not, write to the Free Software 22: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA 23: # 24: # /home/httpd/html/adm/gpl.txt 25: # 26: # http://www.lon-capa.org/ 27: # 28: # 2/9,2/13 Guy Albertelli 29: # 6/8 Gerd Kortemeyer 30: # 7/26 H.K. Ng 31: # 8/20 Gerd Kortemeyer 32: # Year 2002 33: # June-August H.K. Ng 34: # Year 2003 35: # February, March H.K. Ng 36: # 37: 38: package Apache::grades; 39: use strict; 40: use Apache::style; 41: use Apache::lonxml; 42: use Apache::lonnet; 43: use Apache::loncommon; 44: use Apache::lonhtmlcommon; 45: use Apache::lonnavmaps; 46: use Apache::lonhomework; 47: use Apache::loncoursedata; 48: use Apache::lonmsg qw(:user_normal_msg); 49: use Apache::Constants qw(:common); 50: use String::Similarity; 51: 52: my %oldessays=(); 53: my %perm=(); 54: 55: # ----- These first few routines are general use routines.---- 56: # 57: # --- Retrieve the parts that matches stores_\d+ from the metadata file.--- 58: sub getpartlist { 59: my ($url) = @_; 60: my @parts =(); 61: my (@metakeys) = split(/,/,&Apache::lonnet::metadata($url,'keys')); 62: foreach my $key (@metakeys) { 63: if ( $key =~ m/stores_(\w+)_.*/) { 64: push(@parts,$key); 65: } 66: } 67: return @parts; 68: } 69: 70: # --- Get the symbolic name of a problem and the url 71: sub get_symb_and_url { 72: my ($request) = @_; 73: (my $url=$ENV{'form.url'}) =~ s-^http://($ENV{'SERVER_NAME'}|$ENV{'HTTP_HOST'})--; 74: my $symb=($ENV{'form.symb'} ne '' ? $ENV{'form.symb'} : (&Apache::lonnet::symbread($url))); 75: if ($symb eq '') { $request->print("Unable to handle ambiguous references:$url:."); return ''; } 76: return ($symb,$url); 77: } 78: 79: # --- Retrieve the fullname for a user. Return lastname, first middle --- 80: # --- Generation is attached next to the lastname if it exists. --- 81: sub get_fullname { 82: my ($uname,$udom) = @_; 83: my %name=&Apache::lonnet::get('environment', ['lastname','generation', 84: 'firstname','middlename'], 85: $udom,$uname); 86: my $fullname; 87: my ($tmp) = keys(%name); 88: if ($tmp !~ /^(con_lost|error|no_such_host)/i) { 89: $fullname = &Apache::loncoursedata::ProcessFullName 90: (@name{qw/lastname generation firstname middlename/}); 91: } else { 92: &Apache::lonnet::logthis('grades.pm: no name data for '.$uname. 93: '@'.$udom.':'.$tmp); 94: } 95: return $fullname; 96: } 97: 98: #--- Get the partlist and the response type for a given problem. --- 99: #--- Indicate if a response type is coded handgraded or not. --- 100: sub response_type { 101: my ($url) = shift; 102: my $allkeys = &Apache::lonnet::metadata($url,'keys'); 103: my %seen = (); 104: my (@partlist,%handgrade); 105: foreach (split(/,/,&Apache::lonnet::metadata($url,'packages'))) { 106: if (/^\w+response_\w+.*/) { 107: my ($responsetype,$part) = split(/_/,$_,2); 108: my ($partid,$respid) = split(/_/,$part); 109: $responsetype =~ s/response$//; # make it compatible w/ navmaps - should move to that!! 110: $handgrade{$part} = $responsetype.':'.($allkeys =~ /parameter_$part\_handgrade/ ? 'yes' : 'no'); 111: next if ($seen{$partid} > 0); 112: $seen{$partid}++; 113: push @partlist,$partid; 114: } 115: } 116: return \@partlist,\%handgrade; 117: } 118: 119: #--- Show resource title 120: #--- and parts and response type 121: sub showResourceInfo { 122: my ($url,$probTitle) = @_; 123: my $result ='<table border="0">'. 124: '<tr><td colspan=3><font size=+1><b>Current Resource: </b>'.$probTitle.'</font></td></tr>'."\n"; 125: my ($partlist,$handgrade) = &response_type($url); 126: my %resptype = (); #,$hdgrade)=('','no'); 127: my $hdgrade='no'; 128: for (sort keys(%$handgrade)) { 129: my ($responsetype,$handgrade)=split(/:/,$$handgrade{$_}); 130: my $partID = (split(/_/))[0]; 131: $resptype{$partID} = $responsetype; 132: $hdgrade = $handgrade if ($handgrade eq 'yes'); 133: $result.='<tr><td><b>Part </b>'.$partID.'</td>'. 134: '<td><b>Type: </b>'.$responsetype.'</td></tr>'; 135: # '<td><b>Handgrade: </b>'.$handgrade.'</td></tr>'; 136: } 137: $result.='</table>'."\n"; 138: return $result,\%resptype,$hdgrade,$partlist,$handgrade; 139: } 140: 141: #--- Clean response type for display 142: #--- Currently filters option response type only. 143: sub cleanRecord { 144: my ($answer,$response,$symb) = @_; 145: if ($response eq 'option') { 146: my (@IDs,@ans); 147: foreach (split(/\&/,&Apache::lonnet::unescape($answer))) { 148: my ($optionID,$ans) = split(/=/); 149: push @IDs,$optionID.'</font>'; 150: push @ans,$ans; 151: } 152: my $grayFont = '<font color="#999999">'; 153: return '<table border="1">'. 154: '<tr valign="top"><td>Answer</td><td>'. 155: (join '</td><td>',@ans).'</td></tr>'. 156: '<tr valign="top"><td>'.$grayFont.'Option ID</font></td><td>'.$grayFont. 157: (join '</td><td>'.$grayFont,@IDs).'</font></td></tr>'. 158: '</table>'; 159: } 160: if ($response eq 'essay') { 161: if (! exists ($ENV{'form.'.$symb})) { 162: my (%keyhash) = &Apache::lonnet::dump('nohist_handgrade', 163: $ENV{'course.'.$ENV{'request.course.id'}.'.domain'}, 164: $ENV{'course.'.$ENV{'request.course.id'}.'.num'}); 165: 166: my $loginuser = $ENV{'user.name'}.':'.$ENV{'user.domain'}; 167: $ENV{'form.keywords'} = $keyhash{$symb.'_keywords'} ne '' ? $keyhash{$symb.'_keywords'} : ''; 168: $ENV{'form.kwclr'} = $keyhash{$loginuser.'_kwclr'} ne '' ? $keyhash{$loginuser.'_kwclr'} : 'red'; 169: $ENV{'form.kwsize'} = $keyhash{$loginuser.'_kwsize'} ne '' ? $keyhash{$loginuser.'_kwsize'} : '0'; 170: $ENV{'form.kwstyle'} = $keyhash{$loginuser.'_kwstyle'} ne '' ? $keyhash{$loginuser.'_kwstyle'} : ''; 171: $ENV{'form.'.$symb} = 1; # so that we don't have to read it from disk for multiple sub of the same prob. 172: } 173: return &keywords_highlight($answer); 174: } 175: return $answer; 176: } 177: 178: #-- A couple of common js functions 179: sub commonJSfunctions { 180: my $request = shift; 181: $request->print(<<COMMONJSFUNCTIONS); 182: <script type="text/javascript" language="javascript"> 183: function radioSelection(radioButton) { 184: var selection=null; 185: if (radioButton.length > 1) { 186: for (var i=0; i<radioButton.length; i++) { 187: if (radioButton[i].checked) { 188: return radioButton[i].value; 189: } 190: } 191: } else { 192: if (radioButton.checked) return radioButton.value; 193: } 194: return selection; 195: } 196: 197: function pullDownSelection(selectOne) { 198: var selection=""; 199: if (selectOne.length > 1) { 200: for (var i=0; i<selectOne.length; i++) { 201: if (selectOne[i].selected) { 202: return selectOne[i].value; 203: } 204: } 205: } else { 206: if (selectOne.selected) return selectOne.value; 207: } 208: } 209: </script> 210: COMMONJSFUNCTIONS 211: } 212: 213: #--- Dumps the class list with usernames,list of sections, 214: #--- section, ids and fullnames for each user. 215: sub getclasslist { 216: my ($getsec,$filterlist) = @_; 217: $getsec = $getsec eq '' ? 'all' : $getsec; 218: my $classlist=&Apache::loncoursedata::get_classlist(); 219: # Bail out if we were unable to get the classlist 220: return if (! defined($classlist)); 221: # 222: my %sections; 223: my %fullnames; 224: foreach (keys(%$classlist)) { 225: # the following undefs are for 'domain', and 'username' respectively. 226: my (undef,undef,$end,$start,$id,$section,$fullname,$status)= 227: @{$classlist->{$_}}; 228: # filter students according to status selected 229: if ($filterlist && $ENV{'form.Status'} ne 'Any') { 230: if ($ENV{'form.Status'} ne $status) { 231: delete ($classlist->{$_}); 232: next; 233: } 234: } 235: $section = ($section ne '' ? $section : 'no'); 236: if (&canview($section)) { 237: if ($getsec eq 'all' || $getsec eq $section) { 238: $sections{$section}++; 239: $fullnames{$_}=$fullname; 240: } else { 241: delete($classlist->{$_}); 242: } 243: } else { 244: delete($classlist->{$_}); 245: } 246: } 247: my %seen = (); 248: my @sections = sort(keys(%sections)); 249: return ($classlist,\@sections,\%fullnames); 250: } 251: 252: sub canmodify { 253: my ($sec)=@_; 254: if ($perm{'mgr'}) { 255: if (!defined($perm{'mgr_section'})) { 256: # can modify whole class 257: return 1; 258: } else { 259: if ($sec eq $perm{'mgr_section'}) { 260: #can modify the requested section 261: return 1; 262: } else { 263: # can't modify the request section 264: return 0; 265: } 266: } 267: } 268: #can't modify 269: return 0; 270: } 271: 272: sub canview { 273: my ($sec)=@_; 274: if ($perm{'vgr'}) { 275: if (!defined($perm{'vgr_section'})) { 276: # can modify whole class 277: return 1; 278: } else { 279: if ($sec eq $perm{'vgr_section'}) { 280: #can modify the requested section 281: return 1; 282: } else { 283: # can't modify the request section 284: return 0; 285: } 286: } 287: } 288: #can't modify 289: return 0; 290: } 291: 292: #--- Retrieve the grade status of a student for all the parts 293: sub student_gradeStatus { 294: my ($url,$symb,$udom,$uname,$partlist) = @_; 295: my %record = &Apache::lonnet::restore($symb,$ENV{'request.course.id'},$udom,$uname); 296: my %partstatus = (); 297: foreach (@$partlist) { 298: my ($status,$foo) = split(/_/,$record{"resource.$_.solved"},2); 299: $status = 'nothing' if ($status eq ''); 300: $partstatus{$_} = $status; 301: my $subkey = "resource.$_.submitted_by"; 302: $partstatus{$subkey} = $record{$subkey} if ($record{$subkey} ne ''); 303: } 304: return %partstatus; 305: } 306: 307: # hidden form and javascript that calls the form 308: # Use by verifyscript and viewgrades 309: # Shows a student's view of problem and submission 310: sub jscriptNform { 311: my ($url,$symb) = @_; 312: my $jscript='<script type="text/javascript" language="javascript">'."\n". 313: ' function viewOneStudent(user,domain) {'."\n". 314: ' document.onestudent.student.value = user;'."\n". 315: ' document.onestudent.userdom.value = domain;'."\n". 316: ' document.onestudent.submit();'."\n". 317: ' }'."\n". 318: '</script>'."\n"; 319: $jscript.= '<form action="/adm/grades" method="post" name="onestudent">'."\n". 320: '<input type="hidden" name="symb" value="'.$symb.'" />'."\n". 321: '<input type="hidden" name="url" value="'.$url.'" />'."\n". 322: '<input type="hidden" name="saveState" value="'.$ENV{'form.saveState'}.'" />'."\n". 323: '<input type="hidden" name="probTitle" value="'.$ENV{'form.probTitle'}.'" />'."\n". 324: '<input type="hidden" name="command" value="submission" />'."\n". 325: '<input type="hidden" name="student" value="" />'."\n". 326: '<input type="hidden" name="userdom" value="" />'."\n". 327: '</form>'."\n"; 328: return $jscript; 329: } 330: 331: #------------------ End of general use routines -------------------- 332: 333: # 334: # Find most similar essay 335: # 336: 337: sub most_similar { 338: my ($uname,$udom,$uessay)=@_; 339: 340: # ignore spaces and punctuation 341: 342: $uessay=~s/\W+/ /gs; 343: 344: # these will be returned. Do not care if not at least 50 percent similar 345: my $limit=0.6; 346: my $sname=''; 347: my $sdom=''; 348: my $scrsid=''; 349: my $sessay=''; 350: # go through all essays ... 351: foreach my $tkey (keys %oldessays) { 352: my ($tname,$tdom,$tcrsid)=split(/\./,$tkey); 353: # ... except the same student 354: if (($tname ne $uname) || ($tdom ne $udom)) { 355: my $tessay=$oldessays{$tkey}; 356: $tessay=~s/\W+/ /gs; 357: # String similarity gives up if not even limit 358: my $tsimilar=&String::Similarity::similarity($uessay,$tessay,$limit); 359: # Found one 360: if ($tsimilar>$limit) { 361: $limit=$tsimilar; 362: $sname=$tname; 363: $sdom=$tdom; 364: $scrsid=$tcrsid; 365: $sessay=$oldessays{$tkey}; 366: } 367: } 368: } 369: if ($limit>0.6) { 370: return ($sname,$sdom,$scrsid,$sessay,$limit); 371: } else { 372: return ('','','','',0); 373: } 374: } 375: 376: #------------------------------------------------------------------- 377: 378: #------------------------------------ Receipt Verification Routines 379: # 380: #--- Check whether a receipt number is valid.--- 381: sub verifyreceipt { 382: my $request = shift; 383: 384: my $courseid = $ENV{'request.course.id'}; 385: my $receipt = unpack("%32C*",$Apache::lonnet::perlvar{'lonHostID'}).'-'. 386: $ENV{'form.receipt'}; 387: $receipt =~ s/[^\-\d]//g; 388: my $url = $ENV{'form.url'}; 389: my $symb = $ENV{'form.symb'}; 390: unless ($symb) { 391: $symb = &Apache::lonnet::symbread($url); 392: } 393: 394: my $title.='<h3><font color="#339933">Verifying Submission Receipt '. 395: $receipt.'</h3></font>'."\n". 396: '<font size=+1><b>Resource: </b>'.$ENV{'form.probTitle'}.'</font><br><br>'."\n"; 397: 398: my ($string,$contents,$matches) = ('','',0); 399: my (undef,undef,$fullname) = &getclasslist('all','0'); 400: 401: foreach (sort {lc($$fullname{$a}) cmp lc($$fullname{$b}) } keys %$fullname) { 402: my ($uname,$udom)=split(/\:/); 403: if ($receipt eq 404: &Apache::lonnet::ireceipt($uname,$udom,$courseid,$symb)) { 405: $contents.='<tr bgcolor="#ffffe6"><td> '."\n". 406: '<a href="javascript:viewOneStudent(\''.$uname.'\',\''.$udom. 407: '\')"; TARGET=_self>'.$$fullname{$_}.'</a> </td>'."\n". 408: '<td> '.$uname.' </td>'. 409: '<td> '.$udom.' </td></tr>'."\n"; 410: 411: $matches++; 412: } 413: } 414: if ($matches == 0) { 415: $string = $title.'No match found for the above receipt.'; 416: } else { 417: $string = &jscriptNform($url,$symb).$title. 418: 'The above receipt matches the following student'. 419: ($matches <= 1 ? '.' : 's.')."\n". 420: '<table border="0"><tr><td bgcolor="#777777">'."\n". 421: '<table border="0"><tr bgcolor="#e6ffff">'."\n". 422: '<td><b> Fullname </b></td>'."\n". 423: '<td><b> Username </b></td>'."\n". 424: '<td><b> Domain </b></td></tr>'."\n". 425: $contents. 426: '</table></td></tr></table>'."\n"; 427: } 428: return $string.&show_grading_menu_form($symb,$url); 429: } 430: 431: #--- This is called by a number of programs. 432: #--- Called from the Grading Menu - View/Grade an individual student 433: #--- Also called directly when one clicks on the subm button 434: # on the problem page. 435: sub listStudents { 436: my ($request) = shift; 437: 438: my ($symb,$url) = &get_symb_and_url($request); 439: my $cdom = $ENV{"course.$ENV{'request.course.id'}.domain"}; 440: my $cnum = $ENV{"course.$ENV{'request.course.id'}.num"}; 441: my $getsec = $ENV{'form.section'} eq '' ? 'all' : $ENV{'form.section'}; 442: my $submitonly= $ENV{'form.submitonly'} eq '' ? 'all' : $ENV{'form.submitonly'}; 443: 444: my $viewgrade = $ENV{'form.showgrading'} eq 'yes' ? 'View/Grade/Regrade' : 'View'; 445: $ENV{'form.probTitle'} = $ENV{'form.probTitle'} eq '' ? 446: &Apache::lonnet::gettitle($symb) : $ENV{'form.probTitle'}; 447: 448: my $result='<h3><font color="#339933"> '.$viewgrade. 449: ' Submissions for a Student or a Group of Students</font></h3>'; 450: 451: my ($table,undef,$hdgrade,$partlist,$handgrade) = &showResourceInfo($url,$ENV{'form.probTitle'}); 452: $result.=$table; 453: 454: $request->print(<<LISTJAVASCRIPT); 455: <script type="text/javascript" language="javascript"> 456: function checkSelect(checkBox) { 457: var ctr=0; 458: var sense=""; 459: if (checkBox.length > 1) { 460: for (var i=0; i<checkBox.length; i++) { 461: if (checkBox[i].checked) { 462: ctr++; 463: } 464: } 465: sense = "a student or group of students"; 466: } else { 467: if (checkBox.checked) { 468: ctr = 1; 469: } 470: sense = "the student"; 471: } 472: if (ctr == 0) { 473: alert("Please select "+sense+" before clicking on the $viewgrade button."); 474: return false; 475: } 476: document.gradesub.submit(); 477: } 478: 479: function reLoadList(formname) { 480: if (formname.saveStatusOld.value == pullDownSelection(formname.Status)) {return;} 481: formname.command.value = 'submission'; 482: formname.submit(); 483: } 484: </script> 485: LISTJAVASCRIPT 486: 487: &commonJSfunctions($request); 488: $request->print($result); 489: 490: my $checkhdgrade = ($ENV{'form.handgrade'} eq 'yes' && scalar(@$partlist) > 1 ) ? 'checked' : ''; 491: my $checklastsub = $checkhdgrade eq '' ? 'checked' : ''; 492: my $gradeTable='<form action="/adm/grades" method="post" name="gradesub">'."\n". 493: ' <b>View Problem Text: </b><input type="radio" name="vProb" value="no" checked /> no '."\n". 494: '<input type="radio" name="vProb" value="yes" /> one student '."\n". 495: '<input type="radio" name="vProb" value="all" /> all students <br />'."\n". 496: ' <b>Submissions: </b>'."\n"; 497: if ($ENV{'form.handgrade'} eq 'yes' && scalar(@$partlist) > 1) { 498: $gradeTable.='<input type="radio" name="lastSub" value="hdgrade" '.$checkhdgrade.' /> essay part only'."\n"; 499: } 500: 501: my $saveStatus = $ENV{'form.Status'} eq '' ? 'Active' : $ENV{'form.Status'}; 502: $ENV{'form.Status'} = $saveStatus; 503: 504: $gradeTable.='<input type="radio" name="lastSub" value="lastonly" '.$checklastsub.' /> last sub only'."\n". 505: '<input type="radio" name="lastSub" value="last" /> last sub & parts info'."\n". 506: '<input type="radio" name="lastSub" value="datesub" /> by dates and submissions'."\n". 507: '<input type="radio" name="lastSub" value="all" /> all details'."\n". 508: '<input type="hidden" name="section" value="'.$getsec.'" />'."\n". 509: '<input type="hidden" name="submitonly" value="'.$submitonly.'" />'."\n". 510: '<input type="hidden" name="handgrade" value="'.$ENV{'form.handgrade'}.'" /><br />'."\n". 511: '<input type="hidden" name="showgrading" value="'.$ENV{'form.showgrading'}.'" /><br />'."\n". 512: '<input type="hidden" name="saveState" value="'.$ENV{'form.saveState'}.'" />'."\n". 513: '<input type="hidden" name="probTitle" value="'.$ENV{'form.probTitle'}.'" />'."\n". 514: '<input type="hidden" name="url" value="'.$url.'" />'."\n". 515: '<input type="hidden" name="symb" value="'.$symb.'" />'."\n". 516: '<input type="hidden" name="saveStatusOld" value="'.$saveStatus.'" />'."\n"; 517: 518: $gradeTable.='<b>Student Status:</b> '. 519: &Apache::lonhtmlcommon::StatusOptions($saveStatus,undef,1,'javascript:reLoadList(this.form);').'<br />'; 520: 521: $gradeTable.='To '.lc($viewgrade).' a submission, click on the check box next to the student\'s name. Then '."\n". 522: 'click on the '.$viewgrade.' button. To view the submissions for a group of students, click'."\n". 523: ' on the check boxes for the group of students.<br />'."\n". 524: '<input type="hidden" name="command" value="processGroup" />'."\n"; 525: $gradeTable.='<input type="button" '."\n". 526: 'onClick="javascript:checkSelect(this.form.stuinfo);" '."\n". 527: 'value="'.$viewgrade.'" />'."\n"; 528: 529: my (undef, undef, $fullname) = &getclasslist($getsec,'1'); 530: $gradeTable.='<table border="0"><tr><td bgcolor="#777777">'. 531: '<table border="0"><tr bgcolor="#e6ffff">'; 532: my $loop = 0; 533: while ($loop < 2) { 534: $gradeTable.='<td><b> Select </b></td><td><b> Fullname </b>'. 535: '<font color="#999999">(Username)</font> </td>'; 536: if ($ENV{'form.showgrading'} eq 'yes' && $submitonly ne 'all') { 537: foreach (sort(@$partlist)) { 538: $gradeTable.='<td><b> Part '.(split(/_/))[0].' Status </b></td>'; 539: } 540: } 541: $loop++; 542: } 543: $gradeTable.='</tr>'."\n"; 544: 545: my $ctr = 0; 546: foreach my $student (sort {lc($$fullname{$a}) cmp lc($$fullname{$b}) } keys %$fullname) { 547: my ($uname,$udom) = split(/:/,$student); 548: my %status = (); 549: if ($ENV{'form.showgrading'} eq 'yes' && $submitonly ne 'all') { 550: (%status) =&student_gradeStatus($url,$symb,$udom,$uname,$partlist); 551: my $statusflg = ''; 552: foreach (keys(%status)) { 553: $statusflg = 1 if ($status{$_} ne 'nothing'); 554: my ($foo,$partid,$foo1) = split(/\./,$_); 555: if ($status{'resource.'.$partid.'.submitted_by'} ne '') { 556: $statusflg = ''; 557: $gradeTable.='<input type="hidden" name="'. 558: $student.':submitted_by" value="'. 559: $status{'resource.'.$partid.'.submitted_by'}.'" />'; 560: } 561: } 562: next if ($statusflg eq '' && $submitonly eq 'yes'); 563: } 564: 565: $ctr++; 566: if ( $perm{'vgr'} eq 'F' ) { 567: $gradeTable.='<tr bgcolor="#ffffe6">' if ($ctr%2 ==1); 568: $gradeTable.='<td align="center"><input type=checkbox name="stuinfo" value="'. 569: $student.':'.$$fullname{$student}.' "></td>'."\n". 570: '<td> '.$$fullname{$student}.' '."\n". 571: '<font color="#999999">('.$uname.')</font></td>'."\n"; 572: 573: if ($ENV{'form.showgrading'} eq 'yes' && $submitonly ne 'all') { 574: foreach (sort keys(%status)) { 575: next if (/^resource.*?submitted_by$/); 576: $gradeTable.='<td align="middle"> '.$status{$_}.' </td>'."\n"; 577: } 578: } 579: $gradeTable.='</tr>'."\n" if ($ctr%2 ==0); 580: } 581: } 582: if ($ctr%2 ==1) { 583: $gradeTable.='<td> </td><td> </td>'; 584: if ($ENV{'form.showgrading'} eq 'yes' && $submitonly ne 'all') { 585: foreach (@$partlist) { 586: $gradeTable.='<td> </td>'; 587: } 588: } 589: $gradeTable.='</tr>'; 590: } 591: 592: $gradeTable.='</table></td></tr></table>'. 593: '<input type="button" '. 594: 'onClick="javascript:checkSelect(this.form.stuinfo);" '. 595: 'value="'.$viewgrade.'" /></form>'."\n"; 596: if ($ctr == 0) { 597: my $num_students=(scalar(keys(%$fullname))); 598: if ($num_students eq 0) { 599: $gradeTable='<br /> <font color="red">There are no students currently enrolled.</font>'; 600: } else { 601: $gradeTable='<br /> <font color="red">'. 602: 'No submissions found for this resource for any students. ('.$num_students. 603: ' checked for submissions</font><br />'; 604: } 605: } elsif ($ctr == 1) { 606: $gradeTable =~ s/type=checkbox/type=checkbox checked/; 607: } 608: $gradeTable.=&show_grading_menu_form($symb,$url); 609: $request->print($gradeTable); 610: return ''; 611: } 612: 613: #---- Called from the listStudents routine 614: # Displays the submissions for one student or a group of students 615: sub processGroup { 616: my ($request) = shift; 617: my $ctr = 0; 618: my @stuchecked = (ref($ENV{'form.stuinfo'}) ? @{$ENV{'form.stuinfo'}} 619: : ($ENV{'form.stuinfo'})); 620: my $total = scalar(@stuchecked)-1; 621: 622: foreach (@stuchecked) { 623: my ($uname,$udom,$fullname) = split(/:/); 624: $ENV{'form.student'} = $uname; 625: $ENV{'form.userdom'} = $udom; 626: $ENV{'form.fullname'} = $fullname; 627: &submission($request,$ctr,$total); 628: $ctr++; 629: } 630: return ''; 631: } 632: 633: #------------------------------------------------------------------------------------ 634: # 635: #-------------------------- Next few routines handles grading by student, essentially 636: # handles essay response type problem/part 637: # 638: #--- Javascript to handle the submission page functionality --- 639: sub sub_page_js { 640: my $request = shift; 641: $request->print(<<SUBJAVASCRIPT); 642: <script type="text/javascript" language="javascript"> 643: function updateRadio(formname,id,weight) { 644: var gradeBox = eval("formname.GD_BOX"+id); 645: var radioButton = eval("formname.RADVAL"+id); 646: var oldpts = eval("formname.oldpts"+id+".value"); 647: var pts = checkSolved(formname,id) == 'update' ? gradeBox.value : oldpts; 648: gradeBox.value = pts; 649: var resetbox = false; 650: if (isNaN(pts) || pts < 0) { 651: alert("A number equal or greater than 0 is expected. Entered value = "+pts); 652: for (var i=0; i<radioButton.length; i++) { 653: if (radioButton[i].checked) { 654: gradeBox.value = i; 655: resetbox = true; 656: } 657: } 658: if (!resetbox) { 659: formtextbox.value = ""; 660: } 661: return; 662: } 663: 664: if (pts > weight) { 665: var resp = confirm("You entered a value ("+pts+ 666: ") greater than the weight for the part. Accept?"); 667: if (resp == false) { 668: gradeBox.value = ""; 669: return; 670: } 671: } 672: 673: for (var i=0; i<radioButton.length; i++) { 674: radioButton[i].checked=false; 675: if (pts == i && pts != "") { 676: radioButton[i].checked=true; 677: } 678: } 679: updateSelect(formname,id); 680: var stores = eval("formname.stores"+id); 681: stores.value = "0"; 682: } 683: 684: function writeBox(formname,id,pts) { 685: var gradeBox = eval("formname.GD_BOX"+id); 686: if (checkSolved(formname,id) == 'update') { 687: gradeBox.value = pts; 688: } else { 689: var oldpts = eval("formname.oldpts"+id+".value"); 690: gradeBox.value = oldpts; 691: var radioButton = eval("formname.RADVAL"+id); 692: for (var i=0; i<radioButton.length; i++) { 693: radioButton[i].checked=false; 694: if (i == oldpts) { 695: radioButton[i].checked=true; 696: } 697: } 698: } 699: var stores = eval("formname.stores"+id); 700: stores.value = "0"; 701: updateSelect(formname,id); 702: return; 703: } 704: 705: function clearRadBox(formname,id) { 706: if (checkSolved(formname,id) == 'noupdate') { 707: updateSelect(formname,id); 708: return; 709: } 710: gradeSelect = eval("formname.GD_SEL"+id); 711: for (var i=0; i<gradeSelect.length; i++) { 712: if (gradeSelect[i].selected) { 713: var selectx=i; 714: } 715: } 716: var stores = eval("formname.stores"+id); 717: if (selectx == stores.value) { return }; 718: var gradeBox = eval("formname.GD_BOX"+id); 719: gradeBox.value = ""; 720: var radioButton = eval("formname.RADVAL"+id); 721: for (var i=0; i<radioButton.length; i++) { 722: radioButton[i].checked=false; 723: } 724: stores.value = selectx; 725: } 726: 727: function checkSolved(formname,id) { 728: if (eval("formname.solved"+id+".value") == "correct_by_student" && formname.overRideScore.value == 'no') { 729: var reply = confirm("This problem has been graded correct by the computer. Do you want to change the score?"); 730: if (!reply) {return "noupdate";} 731: formname.overRideScore.value = 'yes'; 732: } 733: return "update"; 734: } 735: 736: function updateSelect(formname,id) { 737: var gradeSelect = eval("formname.GD_SEL"+id); 738: gradeSelect[0].selected = true; 739: return; 740: } 741: 742: //=========== Check that a point is assigned for all the parts ============ 743: function checksubmit(formname,val,total,parttot) { 744: formname.gradeOpt.value = val; 745: if (val == "Save & Next") { 746: for (i=0;i<=total;i++) { 747: for (j=0;j<parttot;j++) { 748: var partid = eval("formname.partid"+i+"_"+j+".value"); 749: var selopt = eval("formname.GD_SEL"+i+"_"+partid); 750: if (selopt[0].selected) { 751: var points = eval("formname.GD_BOX"+i+"_"+partid+".value"); 752: if (points == "") { 753: var name = eval("formname.name"+i+".value"); 754: var resp = confirm("You did not assign a score for "+name+", part "+partid+". Continue?"); 755: if (resp == false) { 756: eval("formname.GD_BOX"+i+"_"+partid+".focus()"); 757: return false; 758: } 759: } 760: } 761: 762: } 763: } 764: 765: } 766: if (val == "Grade Student") { 767: formname.showgrading.value = "yes"; 768: if (formname.Status.value == "") { 769: formname.Status.value = "Active"; 770: } 771: formname.studentNo.value = total; 772: } 773: formname.submit(); 774: } 775: 776: //======= Check that a score is assigned for all the problems (page/sequence grading only) ========= 777: function checkSubmitPage(formname,total) { 778: noscore = new Array(100); 779: var ptr = 0; 780: for (i=1;i<total;i++) { 781: var partid = eval("formname.q_"+i+".value"); 782: var selopt = eval("formname.GD_SEL"+i+"_"+partid); 783: if (selopt[0].selected) { 784: var points = eval("formname.GD_BOX"+i+"_"+partid+".value"); 785: var status = eval("formname.solved"+i+"_"+partid+".value"); 786: if (points == "" && status != "correct_by_student") { 787: noscore[ptr] = i; 788: ptr++; 789: } 790: } 791: } 792: if (ptr != 0) { 793: var sense = ptr == 1 ? ": " : "s: "; 794: var prolist = ""; 795: if (ptr == 1) { 796: prolist = noscore[0]; 797: } else { 798: var i = 0; 799: while (i < ptr-1) { 800: prolist += noscore[i]+", "; 801: i++; 802: } 803: prolist += "and "+noscore[i]; 804: } 805: var resp = confirm("You did not assign any score for the following problem"+sense+prolist+". Continue?"); 806: if (resp == false) { 807: return false; 808: } 809: } 810: 811: formname.submit(); 812: } 813: </script> 814: SUBJAVASCRIPT 815: } 816: 817: #--- javascript for essay type problem -- 818: sub sub_page_kw_js { 819: my $request = shift; 820: my $iconpath = $request->dir_config('lonIconsURL'); 821: &commonJSfunctions($request); 822: $request->print(<<SUBJAVASCRIPT); 823: <script type="text/javascript" language="javascript"> 824: 825: //===================== Show list of keywords ==================== 826: function keywords(formname) { 827: var nret = prompt("Keywords list, separated by a space. Add/delete to list if desired.",formname.keywords.value); 828: if (nret==null) return; 829: formname.keywords.value = nret; 830: 831: formname.refresh.value = "on"; 832: if (formname.keywords.value != "") { 833: formname.submit(); 834: } 835: return; 836: } 837: 838: //===================== Script to view submitted by ================== 839: function viewSubmitter(submitter) { 840: document.SCORE.refresh.value = "on"; 841: document.SCORE.NCT.value = "1"; 842: document.SCORE.unamedom0.value = submitter; 843: document.SCORE.submit(); 844: return; 845: } 846: 847: //===================== Script to add keyword(s) ================== 848: function getSel() { 849: if (document.getSelection) txt = document.getSelection(); 850: else if (document.selection) txt = document.selection.createRange().text; 851: else return; 852: var cleantxt = txt.replace(new RegExp('([\\f\\n\\r\\t\\v ])+', 'g')," "); 853: if (cleantxt=="") { 854: alert("Please select a word or group of words from document and then click this link."); 855: return; 856: } 857: var nret = prompt("Add selection to keyword list? Edit if desired.",cleantxt); 858: if (nret==null) return; 859: var curlist = document.SCORE.keywords.value; 860: document.SCORE.keywords.value = curlist+" "+nret; 861: document.SCORE.refresh.value = "on"; 862: if (document.SCORE.keywords.value != "") { 863: document.SCORE.submit(); 864: } 865: return; 866: } 867: 868: //====================== Script for composing message ============== 869: // preload images 870: img1 = new Image(); 871: img1.src = "$iconpath/mailbkgrd.gif"; 872: img2 = new Image(); 873: img2.src = "$iconpath/mailto.gif"; 874: 875: function msgCenter(msgform,usrctr,fullname) { 876: var Nmsg = msgform.savemsgN.value; 877: savedMsgHeader(Nmsg,usrctr,fullname); 878: var subject = msgform.msgsub.value; 879: var rtrchk = eval("document.SCORE.includemsg"+usrctr); 880: var msgchk = rtrchk.value; 881: re = /msgsub/; 882: var shwsel = ""; 883: if (re.test(msgchk)) { shwsel = "checked" } 884: subject = (document.SCORE.shownSub.value == 0 ? checkEntities(subject) : subject); 885: displaySubject(checkEntities(subject),shwsel); 886: for (var i=1; i<=Nmsg; i++) { 887: var testmsg = "savemsg"+i+","; 888: re = new RegExp(testmsg,"g"); 889: shwsel = ""; 890: if (re.test(msgchk)) { shwsel = "checked" } 891: var message = eval("document.SCORE.savemsg"+i+".value"); 892: var shownOnce = eval("document.SCORE.shownOnce"+i+".value"); 893: message = (shownOnce == 0 ? checkEntities(message) : message); 894: displaySavedMsg(i,message,shwsel); //I do not get it. w/o checkEntities on saved messages, 895: //any < is already converted to <, etc. However, only once!! 896: } 897: newmsg = eval("document.SCORE.newmsg"+usrctr+".value"); 898: shwsel = ""; 899: re = /newmsg/; 900: if (re.test(msgchk)) { shwsel = "checked" } 901: newMsg(newmsg,shwsel); 902: msgTail(); 903: return; 904: } 905: 906: function checkEntities(strx) { 907: if (strx.length == 0) return strx; 908: var orgStr = ["&", "<", ">", '"']; 909: var newStr = ["&", "<", ">", """]; 910: var counter = 0; 911: while (counter < 4) { 912: strx = strReplace(strx,orgStr[counter],newStr[counter]); 913: counter++; 914: } 915: return strx; 916: } 917: 918: function strReplace(strx, orgStr, newStr) { 919: return strx.split(orgStr).join(newStr); 920: } 921: 922: function savedMsgHeader(Nmsg,usrctr,fullname) { 923: var height = 70*Nmsg+250; 924: var scrollbar = "no"; 925: if (height > 600) { 926: height = 600; 927: scrollbar = "yes"; 928: } 929: // if (window.pWin) {window.pWin.close(); window.pWin=null} 930: var xpos = (screen.width-600)/2; 931: xpos = (xpos < 0) ? '0' : xpos; 932: var ypos = (screen.height-height)/2-30; 933: ypos = (ypos < 0) ? '0' : ypos; 934: 935: pWin = window.open('', 'MessageCenter', 'toolbar=no,location=no,scrollbars='+scrollbar+',screenx='+xpos+',screeny='+ypos+',width=600,height='+height); 936: pWin.focus(); 937: pDoc = pWin.document; 938: pDoc.write("<html><head>"); 939: pDoc.write("<title>Message Central</title>"); 940: 941: pDoc.write("<script language=javascript>"); 942: pDoc.write("function checkInput() {"); 943: pDoc.write(" opener.document.SCORE.msgsub.value = opener.checkEntities(document.msgcenter.msgsub.value);"); 944: pDoc.write(" var nmsg = opener.document.SCORE.savemsgN.value;"); 945: pDoc.write(" var usrctr = document.msgcenter.usrctr.value;"); 946: pDoc.write(" var newval = eval(\\"opener.document.SCORE.newmsg\\"+usrctr);"); 947: pDoc.write(" newval.value = opener.checkEntities(document.msgcenter.newmsg.value);"); 948: 949: pDoc.write(" var msgchk = \\"\\";"); 950: pDoc.write(" if (document.msgcenter.subchk.checked) {"); 951: pDoc.write(" msgchk = \\"msgsub,\\";"); 952: pDoc.write(" }"); 953: pDoc.write(" var includemsg = 0;"); 954: pDoc.write(" for (var i=1; i<=nmsg; i++) {"); 955: pDoc.write(" var opnmsg = eval(\\"opener.document.SCORE.savemsg\\"+i);"); 956: pDoc.write(" var frmmsg = eval(\\"document.msgcenter.msg\\"+i);"); 957: pDoc.write(" opnmsg.value = opener.checkEntities(frmmsg.value);"); 958: pDoc.write(" var showflg = eval(\\"opener.document.SCORE.shownOnce\\"+i);"); 959: pDoc.write(" showflg.value = \\"1\\";"); 960: pDoc.write(" var chkbox = eval(\\"document.msgcenter.msgn\\"+i);"); 961: pDoc.write(" if (chkbox.checked) {"); 962: pDoc.write(" msgchk += \\"savemsg\\"+i+\\",\\";"); 963: pDoc.write(" includemsg = 1;"); 964: pDoc.write(" }"); 965: pDoc.write(" }"); 966: pDoc.write(" if (document.msgcenter.newmsgchk.checked) {"); 967: pDoc.write(" msgchk += \\"newmsg\\"+usrctr;"); 968: pDoc.write(" includemsg = 1;"); 969: pDoc.write(" }"); 970: pDoc.write(" imgformname = eval(\\"opener.document.SCORE.mailicon\\"+usrctr);"); 971: pDoc.write(" imgformname.src = \\"$iconpath/\\"+((includemsg) ? \\"mailto.gif\\" : \\"mailbkgrd.gif\\");"); 972: pDoc.write(" var includemsg = eval(\\"opener.document.SCORE.includemsg\\"+usrctr);"); 973: pDoc.write(" includemsg.value = msgchk;"); 974: 975: pDoc.write(" self.close()"); 976: 977: pDoc.write("}"); 978: 979: pDoc.write("<"); 980: pDoc.write("/script>"); 981: 982: pDoc.write("</head><body bgcolor=white>"); 983: 984: pDoc.write("<form action=\\"inactive\\" name=\\"msgcenter\\">"); 985: pDoc.write("<input value=\\""+usrctr+"\\" name=\\"usrctr\\" type=\\"hidden\\">"); 986: pDoc.write("<font color=\\"green\\" size=+1> Compose Message for \"+fullname+\"</font><br><br>"); 987: 988: pDoc.write("<table border=0 width=100%><tr><td bgcolor=\\"#777777\\">"); 989: pDoc.write("<table border=0 width=100%><tr bgcolor=\\"#ddffff\\">"); 990: pDoc.write("<td><b>Type</b></td><td><b>Include</b></td><td><b>Message</td></tr>"); 991: } 992: function displaySubject(msg,shwsel) { 993: pDoc = pWin.document; 994: pDoc.write("<tr bgcolor=\\"#ffffdd\\">"); 995: pDoc.write("<td>Subject</td>"); 996: pDoc.write("<td align=\\"center\\"><input name=\\"subchk\\" type=\\"checkbox\\"" +shwsel+"></td>"); 997: pDoc.write("<td><input name=\\"msgsub\\" type=\\"text\\" value=\\""+msg+"\\"size=\\"60\\" maxlength=\\"80\\"></td></tr>"); 998: } 999: 1000: function displaySavedMsg(ctr,msg,shwsel) { 1001: pDoc = pWin.document; 1002: pDoc.write("<tr bgcolor=\\"#ffffdd\\">"); 1003: pDoc.write("<td align=\\"center\\">"+ctr+"</td>"); 1004: pDoc.write("<td align=\\"center\\"><input name=\\"msgn"+ctr+"\\" type=\\"checkbox\\"" +shwsel+"></td>"); 1005: pDoc.write("<td><textarea name=\\"msg"+ctr+"\\" cols=\\"60\\" rows=\\"3\\">"+msg+"</textarea></td></tr>"); 1006: } 1007: 1008: function newMsg(newmsg,shwsel) { 1009: pDoc = pWin.document; 1010: pDoc.write("<tr bgcolor=\\"#ffffdd\\">"); 1011: pDoc.write("<td align=\\"center\\">New</td>"); 1012: pDoc.write("<td align=\\"center\\"><input name=\\"newmsgchk\\" type=\\"checkbox\\"" +shwsel+"></td>"); 1013: pDoc.write("<td><textarea name=\\"newmsg\\" cols=\\"60\\" rows=\\"3\\" onchange=\\"javascript:this.form.newmsgchk.checked=true\\" >"+newmsg+"</textarea></td></tr>"); 1014: } 1015: 1016: function msgTail() { 1017: pDoc = pWin.document; 1018: pDoc.write("</table>"); 1019: pDoc.write("</td></tr></table> "); 1020: pDoc.write("<input type=\\"button\\" value=\\"Save\\" onClick=\\"javascript:checkInput()\\">  "); 1021: pDoc.write("<input type=\\"button\\" value=\\"Cancel\\" onClick=\\"self.close()\\"><br><br>"); 1022: pDoc.write("</form>"); 1023: pDoc.write("</body></html>"); 1024: } 1025: 1026: //====================== Script for keyword highlight options ============== 1027: function kwhighlight() { 1028: var kwclr = document.SCORE.kwclr.value; 1029: var kwsize = document.SCORE.kwsize.value; 1030: var kwstyle = document.SCORE.kwstyle.value; 1031: var redsel = ""; 1032: var grnsel = ""; 1033: var blusel = ""; 1034: if (kwclr=="red") {var redsel="checked"}; 1035: if (kwclr=="green") {var grnsel="checked"}; 1036: if (kwclr=="blue") {var blusel="checked"}; 1037: var sznsel = ""; 1038: var sz1sel = ""; 1039: var sz2sel = ""; 1040: if (kwsize=="0") {var sznsel="checked"}; 1041: if (kwsize=="+1") {var sz1sel="checked"}; 1042: if (kwsize=="+2") {var sz2sel="checked"}; 1043: var synsel = ""; 1044: var syisel = ""; 1045: var sybsel = ""; 1046: if (kwstyle=="") {var synsel="checked"}; 1047: if (kwstyle=="<i>") {var syisel="checked"}; 1048: if (kwstyle=="<b>") {var sybsel="checked"}; 1049: highlightCentral(); 1050: highlightbody('red','red',redsel,'0','normal',sznsel,'','normal',synsel); 1051: highlightbody('green','green',grnsel,'+1','+1',sz1sel,'<i>','italic',syisel); 1052: highlightbody('blue','blue',blusel,'+2','+2',sz2sel,'<b>','bold',sybsel); 1053: highlightend(); 1054: return; 1055: } 1056: 1057: function highlightCentral() { 1058: // if (window.hwdWin) window.hwdWin.close(); 1059: var xpos = (screen.width-400)/2; 1060: xpos = (xpos < 0) ? '0' : xpos; 1061: var ypos = (screen.height-330)/2-30; 1062: ypos = (ypos < 0) ? '0' : ypos; 1063: 1064: hwdWin = window.open('', 'KeywordHighlightCentral', 'toolbar=no,location=no,scrollbars=no,width=400,height=300,screenx='+xpos+',screeny='+ypos); 1065: hwdWin.focus(); 1066: var hDoc = hwdWin.document; 1067: hDoc.write("<html><head>"); 1068: hDoc.write("<title>Highlight Central</title>"); 1069: 1070: hDoc.write("<script language=javascript>"); 1071: hDoc.write("function updateChoice(flag) {"); 1072: hDoc.write(" opener.document.SCORE.kwclr.value = opener.radioSelection(document.hlCenter.kwdclr);"); 1073: hDoc.write(" opener.document.SCORE.kwsize.value = opener.radioSelection(document.hlCenter.kwdsize);"); 1074: hDoc.write(" opener.document.SCORE.kwstyle.value = opener.radioSelection(document.hlCenter.kwdstyle);"); 1075: hDoc.write(" opener.document.SCORE.refresh.value = \\"on\\";"); 1076: hDoc.write(" if (opener.document.SCORE.keywords.value!=\\"\\"){"); 1077: hDoc.write(" opener.document.SCORE.submit();"); 1078: hDoc.write(" }"); 1079: hDoc.write(" self.close()"); 1080: hDoc.write("}"); 1081: 1082: hDoc.write("<"); 1083: hDoc.write("/script>"); 1084: 1085: hDoc.write("</head><body bgcolor=white>"); 1086: 1087: hDoc.write("<form action=\\"inactive\\" name=\\"hlCenter\\">"); 1088: hDoc.write("<font color=\\"green\\" size=+1> Keyword Highlight Options</font><br><br>"); 1089: 1090: hDoc.write("<table border=0 width=100%><tr><td bgcolor=\\"#777777\\">"); 1091: hDoc.write("<table border=0 width=100%><tr bgcolor=\\"#ddffff\\">"); 1092: hDoc.write("<td><b>Text Color</b></td><td><b>Font Size</b></td><td><b>Font Style</td></tr>"); 1093: } 1094: 1095: function highlightbody(clrval,clrtxt,clrsel,szval,sztxt,szsel,syval,sytxt,sysel) { 1096: var hDoc = hwdWin.document; 1097: hDoc.write("<tr bgcolor=\\"#ffffdd\\">"); 1098: hDoc.write("<td align=\\"left\\">"); 1099: hDoc.write("<input name=\\"kwdclr\\" type=\\"radio\\" value=\\""+clrval+"\\" "+clrsel+"> "+clrtxt+"</td>"); 1100: hDoc.write("<td align=\\"left\\">"); 1101: hDoc.write("<input name=\\"kwdsize\\" type=\\"radio\\" value=\\""+szval+"\\" "+szsel+"> "+sztxt+"</td>"); 1102: hDoc.write("<td align=\\"left\\">"); 1103: hDoc.write("<input name=\\"kwdstyle\\" type=\\"radio\\" value=\\""+syval+"\\" "+sysel+"> "+sytxt+"</td>"); 1104: hDoc.write("</tr>"); 1105: } 1106: 1107: function highlightend() { 1108: var hDoc = hwdWin.document; 1109: hDoc.write("</table>"); 1110: hDoc.write("</td></tr></table> "); 1111: hDoc.write("<input type=\\"button\\" value=\\"Save\\" onClick=\\"javascript:updateChoice(1)\\">  "); 1112: hDoc.write("<input type=\\"button\\" value=\\"Cancel\\" onClick=\\"self.close()\\"><br><br>"); 1113: hDoc.write("</form>"); 1114: hDoc.write("</body></html>"); 1115: } 1116: 1117: </script> 1118: SUBJAVASCRIPT 1119: } 1120: 1121: #--- displays the grading box, used in essay type problem and grading by page/sequence 1122: sub gradeBox { 1123: my ($request,$symb,$uname,$udom,$counter,$partid,$record) = @_; 1124: 1125: my $checkIcon = '<img src="'.$request->dir_config('lonIconsURL'). 1126: '/check.gif" height="16" border="0" />'; 1127: 1128: my $wgt = &Apache::lonnet::EXT('resource.'.$partid.'.weight',$symb,$udom,$uname); 1129: my $wgtmsg = ($wgt > 0 ? '(problem weight)' : 1130: '<font color="red">problem weight assigned by computer</font>'); 1131: $wgt = ($wgt > 0 ? $wgt : '1'); 1132: my $score = ($$record{'resource.'.$partid.'.awarded'} eq '' ? 1133: '' : $$record{'resource.'.$partid.'.awarded'}*$wgt); 1134: my $result='<input type="hidden" name="WGT'.$counter.'_'.$partid.'" value="'.$wgt.'" />'."\n"; 1135: 1136: $result.='<table border="0"><tr><td>'. 1137: '<b>Part </b>'.$partid.' <b>Points: </b></td><td>'."\n"; 1138: 1139: my $ctr = 0; 1140: $result.='<table border="0"><tr>'."\n"; # display radio buttons in a nice table 10 across 1141: while ($ctr<=$wgt) { 1142: $result.= '<td><input type="radio" name="RADVAL'.$counter.'_'.$partid.'" '. 1143: 'onclick="javascript:writeBox(this.form,\''.$counter.'_'.$partid.'\','. 1144: $ctr.')" value="'.$ctr.'" '. 1145: ($score eq $ctr ? 'checked':'').' /> '.$ctr."</td>\n"; 1146: $result.=(($ctr+1)%10 == 0 ? '</tr><tr>' : ''); 1147: $ctr++; 1148: } 1149: $result.='</tr></table>'; 1150: 1151: $result.='</td><td> <b>or</b> </td>'."\n"; 1152: $result.='<td><input type="text" name="GD_BOX'.$counter.'_'.$partid.'"'. 1153: ($score ne ''? ' value = "'.$score.'"':'').' size="4" '. 1154: 'onChange="javascript:updateRadio(this.form,\''.$counter.'_'.$partid.'\','. 1155: $wgt.')" /></td>'."\n"; 1156: $result.='<td>/'.$wgt.' '.$wgtmsg. 1157: ($$record{'resource.'.$partid.'.solved'} eq 'correct_by_student' ? ' '.$checkIcon : ''). 1158: ' </td><td>'."\n"; 1159: 1160: $result.='<select name="GD_SEL'.$counter.'_'.$partid.'" '. 1161: 'onChange="javascript:clearRadBox(this.form,\''.$counter.'_'.$partid.'\')" >'."\n"; 1162: if ($$record{'resource.'.$partid.'.solved'} eq 'excused') { 1163: $result.='<option> </option>'. 1164: '<option selected="on">excused</option></select>'."\n"; 1165: } else { 1166: $result.='<option selected="on"> </option>'. 1167: '<option>excused</option></select>'."\n"; 1168: } 1169: $result.="&nbsp&nbsp\n"; 1170: $result.='<input type="hidden" name="stores'.$counter.'_'.$partid.'" value="" />'."\n". 1171: '<input type="hidden" name="oldpts'.$counter.'_'.$partid.'" value="'.$score.'" />'."\n". 1172: '<input type="hidden" name="solved'.$counter.'_'.$partid.'" value="'. 1173: $$record{'resource.'.$partid.'.solved'}.'" />'."\n"; 1174: $result.='</td></tr></table>'."\n"; 1175: return $result; 1176: } 1177: 1178: sub show_problem { 1179: my ($request,$symb,$uname,$udom,$removeform,$viewon) = @_; 1180: my $rendered=&Apache::loncommon::get_student_view($symb,$uname,$udom, 1181: $ENV{'request.course.id'}); 1182: if ($removeform) { 1183: $rendered=~s|<form(.*?)>||g; 1184: $rendered=~s|</form>||g; 1185: $rendered=~s|name="submit"|name="would_have_been_submit"|g; 1186: } 1187: my $companswer=&Apache::loncommon::get_student_answers($symb,$uname,$udom, 1188: $ENV{'request.course.id'}); 1189: if ($removeform) { 1190: $companswer=~s|<form(.*?)>||g; 1191: $companswer=~s|</form>||g; 1192: $rendered=~s|name="submit"|name="would_have_been_submit"|g; 1193: } 1194: my $result.='<table border="0" width="100%"><tr><td bgcolor="#777777">'; 1195: $result.='<table border="0" width="100%">'; 1196: $result.='<tr><td bgcolor="#e6ffff"><b> View of the problem - '.$ENV{'form.fullname'}. 1197: '</b></td></tr>' if ($viewon); 1198: $result.='<tr><td bgcolor="#ffffff">'.$rendered.'<br />'; 1199: $result.='<b>Correct answer:</b><br />'.$companswer; 1200: $result.='</td></tr></table>'; 1201: $result.='</td></tr></table><br />'; 1202: return $result; 1203: } 1204: 1205: # --------------------------- show submissions of a student, option to grade 1206: sub submission { 1207: my ($request,$counter,$total) = @_; 1208: 1209: (my $url=$ENV{'form.url'})=~s-^http://($ENV{'SERVER_NAME'}|$ENV{'HTTP_HOST'})--; 1210: my ($uname,$udom) = ($ENV{'form.student'},$ENV{'form.userdom'}); 1211: $udom = ($udom eq '' ? $ENV{'user.domain'} : $udom); #has form.userdom changed for a student? 1212: my $usec = &Apache::lonnet::getsection($udom,$uname,$ENV{'request.course.id'}); 1213: $ENV{'form.fullname'} = &get_fullname ($uname,$udom) if $ENV{'form.fullname'} eq ''; 1214: 1215: my $symb=($ENV{'form.symb'} ne '' ? $ENV{'form.symb'} : (&Apache::lonnet::symbread($url))); 1216: if ($symb eq '') { $request->print("Unable to handle ambiguous references:$url:."); return ''; } 1217: 1218: if (!&canview($usec)) { 1219: $request->print('<font color="red">Unable to view requested student.('. 1220: $uname.$udom.$usec.$ENV{'request.course.id'}.')</font>'); 1221: $request->print(&show_grading_menu_form($symb,$url)); 1222: return; 1223: } 1224: 1225: $ENV{'form.lastSub'} = ($ENV{'form.lastSub'} eq '' ? 'datesub' : $ENV{'form.lastSub'}); 1226: my $last = ($ENV{'form.lastSub'} eq 'last' ? 'last' : ''); 1227: my $checkIcon = '<img src="'.$request->dir_config('lonIconsURL'). 1228: '/check.gif" height="16" border="0" />'; 1229: 1230: # header info 1231: if ($counter == 0) { 1232: &sub_page_js($request); 1233: &sub_page_kw_js($request) if ($ENV{'form.handgrade'} eq 'yes'); 1234: $ENV{'form.probTitle'} = $ENV{'form.probTitle'} eq '' ? 1235: &Apache::lonnet::gettitle($symb) : $ENV{'form.probTitle'}; 1236: 1237: $request->print('<h3> <font color="#339933">Submission Record</font></h3>'."\n". 1238: '<font size=+1> <b>Resource: </b>'.$ENV{'form.probTitle'}.'</font>'."\n"); 1239: 1240: if ($ENV{'form.handgrade'} eq 'no') { 1241: my $checkMark='<br /><br /> <b>Note:</b> Part(s) graded correct by the computer is marked with a '. 1242: $checkIcon.' symbol.'."\n"; 1243: $request->print($checkMark); 1244: } 1245: 1246: # option to display problem, only once else it cause problems 1247: # with the form later since the problem has a form. 1248: if ($ENV{'form.vProb'} eq 'yes' or !$ENV{'form.vProb'}) { 1249: $request->print(&show_problem($request,$symb,$uname,$udom,0,1)); 1250: } 1251: 1252: # kwclr is the only variable that is guaranteed to be non blank 1253: # if this subroutine has been called once. 1254: my %keyhash = (); 1255: if ($ENV{'form.kwclr'} eq '' && $ENV{'form.handgrade'} eq 'yes') { 1256: %keyhash = &Apache::lonnet::dump('nohist_handgrade', 1257: $ENV{'course.'.$ENV{'request.course.id'}.'.domain'}, 1258: $ENV{'course.'.$ENV{'request.course.id'}.'.num'}); 1259: 1260: my $loginuser = $ENV{'user.name'}.':'.$ENV{'user.domain'}; 1261: $ENV{'form.keywords'} = $keyhash{$symb.'_keywords'} ne '' ? $keyhash{$symb.'_keywords'} : ''; 1262: $ENV{'form.kwclr'} = $keyhash{$loginuser.'_kwclr'} ne '' ? $keyhash{$loginuser.'_kwclr'} : 'red'; 1263: $ENV{'form.kwsize'} = $keyhash{$loginuser.'_kwsize'} ne '' ? $keyhash{$loginuser.'_kwsize'} : '0'; 1264: $ENV{'form.kwstyle'} = $keyhash{$loginuser.'_kwstyle'} ne '' ? $keyhash{$loginuser.'_kwstyle'} : ''; 1265: $ENV{'form.msgsub'} = $keyhash{$symb.'_subject'} ne '' ? 1266: $keyhash{$symb.'_subject'} : $ENV{'form.probTitle'}; 1267: $ENV{'form.savemsgN'} = $keyhash{$symb.'_savemsgN'} ne '' ? $keyhash{$symb.'_savemsgN'} : '0'; 1268: } 1269: my $overRideScore = $ENV{'form.overRideScore'} eq '' ? 'no' : $ENV{'form.overRideScore'}; 1270: 1271: $request->print('<form action="/adm/grades" method="post" name="SCORE">'."\n". 1272: '<input type="hidden" name="command" value="handgrade" />'."\n". 1273: '<input type="hidden" name="saveState" value="'.$ENV{'form.saveState'}.'" />'."\n". 1274: '<input type="hidden" name="Status" value="'.$ENV{'form.Status'}.'" />'."\n". 1275: '<input type="hidden" name="overRideScore" value="'.$overRideScore.'" />'."\n". 1276: '<input type="hidden" name="probTitle" value="'.$ENV{'form.probTitle'}.'" />'."\n". 1277: '<input type="hidden" name="refresh" value="off" />'."\n". 1278: '<input type="hidden" name="studentNo" value="" />'."\n". 1279: '<input type="hidden" name="gradeOpt" value="" />'."\n". 1280: '<input type="hidden" name="symb" value="'.$symb.'" />'."\n". 1281: '<input type="hidden" name="url" value="'.$url.'" />'."\n". 1282: '<input type="hidden" name="showgrading" value="'.$ENV{'form.showgrading'}.'" />'."\n". 1283: '<input type="hidden" name="vProb" value="'.$ENV{'form.vProb'}.'" />'."\n". 1284: '<input type="hidden" name="lastSub" value="'.$ENV{'form.lastSub'}.'" />'."\n". 1285: '<input type="hidden" name="section" value="'.$ENV{'form.section'}.'">'."\n". 1286: '<input type="hidden" name="submitonly" value="'.$ENV{'form.submitonly'}.'">'."\n". 1287: '<input type="hidden" name="handgrade" value="'.$ENV{'form.handgrade'}.'">'."\n". 1288: '<input type="hidden" name="NCT"'. 1289: ' value="'.($ENV{'form.NTSTU'} ne '' ? $ENV{'form.NTSTU'} : $total+1).'" />'."\n"); 1290: if ($ENV{'form.handgrade'} eq 'yes') { 1291: $request->print('<input type="hidden" name="keywords" value="'.$ENV{'form.keywords'}.'" />'."\n". 1292: '<input type="hidden" name="kwclr" value="'.$ENV{'form.kwclr'}.'" />'."\n". 1293: '<input type="hidden" name="kwsize" value="'.$ENV{'form.kwsize'}.'" />'."\n". 1294: '<input type="hidden" name="kwstyle" value="'.$ENV{'form.kwstyle'}.'" />'."\n". 1295: '<input type="hidden" name="msgsub" value="'.$ENV{'form.msgsub'}.'" />'."\n". 1296: '<input type="hidden" name="shownSub" value="0" />'."\n". 1297: '<input type="hidden" name="savemsgN" value="'.$ENV{'form.savemsgN'}.'" />'."\n"); 1298: } 1299: 1300: my ($cts,$prnmsg) = (1,''); 1301: while ($cts <= $ENV{'form.savemsgN'}) { 1302: $prnmsg.='<input type="hidden" name="savemsg'.$cts.'" value="'. 1303: (!exists($keyhash{$symb.'_savemsg'.$cts}) ? 1304: &Apache::lonfeedback::clear_out_html($ENV{'form.savemsg'.$cts}) : 1305: &Apache::lonfeedback::clear_out_html($keyhash{$symb.'_savemsg'.$cts})). 1306: '" />'."\n". 1307: '<input type="hidden" name="shownOnce'.$cts.'" value="0" />'."\n"; 1308: $cts++; 1309: } 1310: $request->print($prnmsg); 1311: 1312: if ($ENV{'form.handgrade'} eq 'yes' && $ENV{'form.showgrading'} eq 'yes') { 1313: # 1314: # Print out the keyword options line 1315: # 1316: $request->print(<<KEYWORDS); 1317:  <b>Keyword Options:</b>  1318: <a href="javascript:keywords(document.SCORE)"; TARGET=_self>List</a>    1319: <a href="#" onMouseDown="javascript:getSel(); return false" 1320: CLASS="page">Paste Selection to List</a>    1321: <a href="javascript:kwhighlight()"; TARGET=_self>Highlight Attribute</a><br /><br /> 1322: KEYWORDS 1323: # 1324: # Load the other essays for similarity check 1325: # 1326: my $essayurl=&Apache::lonnet::declutter($url); 1327: my ($adom,$aname,$apath)=($essayurl=~/^(\w+)\/(\w+)\/(.*)$/); 1328: $apath=&Apache::lonnet::escape($apath); 1329: $apath=~s/\W/\_/gs; 1330: %oldessays=&Apache::lonnet::dump('nohist_essay_'.$apath,$adom,$aname); 1331: } 1332: } 1333: 1334: if ($ENV{'form.vProb'} eq 'all') { 1335: $request->print('<br /><br /><br />') if ($counter > 0); 1336: $request->print(&show_problem($request,$symb,$uname,$udom,1,1)); 1337: } 1338: my %record = &Apache::lonnet::restore($symb,$ENV{'request.course.id'},$udom,$uname); 1339: my ($partlist,$handgrade) = &response_type($url); 1340: 1341: # Display student info 1342: $request->print(($counter == 0 ? '' : '<br />')); 1343: my $result='<table border="0" width=100%><tr><td bgcolor="#777777">'."\n". 1344: '<table border="0" width=100%><tr bgcolor="#edffff"><td>'."\n"; 1345: 1346: $result.='<b>Fullname: </b>'.$ENV{'form.fullname'}. 1347: '<font color="#999999">   Username: '.$uname. 1348: ($ENV{'user.domain'} eq $udom ? '' : ' ('.$udom.')').'</font><br />'."\n"; 1349: $result.='<input type="hidden" name="name'.$counter. 1350: '" value="'.$ENV{'form.fullname'}.'" />'."\n"; 1351: 1352: # If any part of the problem is an essay-response (handgraded), then check for collaborators 1353: my @col_fullnames; 1354: my ($classlist,$fullname); 1355: if ($ENV{'form.handgrade'} eq 'yes') { 1356: ($classlist,undef,$fullname) = &getclasslist('all','0'); 1357: for (keys (%$handgrade)) { 1358: my $ncol = &Apache::lonnet::EXT('resource.'.$_. 1359: '.maxcollaborators', 1360: $symb,$udom,$uname); 1361: next if ($ncol <= 0); 1362: s/\_/\./g; 1363: next if ($record{'resource.'.$_.'.collaborators'} eq ''); 1364: my @goodcollaborators = (); 1365: my @badcollaborators = (); 1366: foreach (split(/,?\s+/,$record{'resource.'.$_.'.collaborators'})) { 1367: $_ =~ s/[\$\^]//g; 1368: next if ($_ eq ''); 1369: my ($co_name,$co_dom) = split /\@|:/,$_; 1370: $co_dom = $udom if (! defined($co_dom) || $co_dom =~ /^domain$/i); 1371: next if ($co_name eq $uname && $co_dom eq $udom); 1372: # Doing this grep allows 'fuzzy' specification 1373: my @Matches = grep /^$co_name:$co_dom$/i,keys %$classlist; 1374: if (! scalar(@Matches)) { 1375: push @badcollaborators,$_; 1376: } else { 1377: push @goodcollaborators, @Matches; 1378: } 1379: } 1380: if (scalar(@goodcollaborators) != 0) { 1381: $result.='<b>Collaborators: </b>'; 1382: foreach (@goodcollaborators) { 1383: my ($lastname,$givenn) = split(/,/,$$fullname{$_}); 1384: push @col_fullnames, $givenn.' '.$lastname; 1385: $result.=$$fullname{$_}.'     '; 1386: } 1387: $result.='<br />'."\n"; 1388: $result.='<input type="hidden" name="collaborator'.$counter. 1389: '" value="'.(join ':',@goodcollaborators).'" />'."\n"; 1390: } 1391: if (scalar(@badcollaborators) > 0) { 1392: $result.='<table border="0"><tr bgcolor="#ffbbbb"><td>'; 1393: $result.='This student has submitted '; 1394: $result.=(scalar(@badcollaborators) == 1) ? 'an invalid collaborator' : 'invalid collaborators'; 1395: $result .= ': '.join(', ',@badcollaborators); 1396: $result .= '</td></tr></table>'; 1397: } 1398: if (scalar(@badcollaborators > $ncol)) { 1399: $result .= '<table border="0"><tr bgcolor="#ffbbbb"><td>'; 1400: $result .= 'This student has submitted too many '. 1401: 'collaborators. Maximum is '.$ncol.'.'; 1402: $result .= '</td></tr></table>'; 1403: } 1404: } 1405: } 1406: $request->print($result."\n"); 1407: 1408: # print student answer/submission 1409: # Options are (1) Handgaded submission only 1410: # (2) Last submission, includes submission that is not handgraded 1411: # (for multi-response type part) 1412: # (3) Last submission plus the parts info 1413: # (4) The whole record for this student 1414: if ($ENV{'form.lastSub'} =~ /^(lastonly|hdgrade)$/) { 1415: if ($ENV{'form.'.$uname.':'.$udom.':submitted_by'}) { 1416: my $submitby=''. 1417: '<b>Collaborative submission by: </b>'. 1418: '<a href="javascript:viewSubmitter(\''. 1419: $ENV{'form.'.$uname.':'.$udom.':submitted_by'}. 1420: '\')"; TARGET=_self>'. 1421: $$fullname{$ENV{'form.'.$uname.':'.$udom.':submitted_by'}}.'</a>'; 1422: $request->print($submitby); 1423: } else { 1424: my ($string,$timestamp)= &get_last_submission (\%record); 1425: my $lastsubonly=''. 1426: ($$timestamp eq '' ? '' : '<b>Date Submitted:</b> '. 1427: $$timestamp)."</td></tr>\n"; 1428: if ($$timestamp eq '') { 1429: $lastsubonly.='<tr><td bgcolor="#ffffe6">'.$$string[0]; 1430: } else { 1431: for my $part (sort keys(%$handgrade)) { 1432: my ($responsetype,$foo) = split(/:/,$$handgrade{$part}); 1433: my ($partid,$respid) = split(/_/,$part); 1434: if (!exists($record{'resource.'.$partid.'.'.$respid.'.submission'})) { 1435: $lastsubonly.='<tr><td bgcolor="#ffffe6"><b>Part '. 1436: $partid.'</b> <font color="#999999">( ID '.$respid. 1437: ' )</font>   Nothing submitted - no attempts<br /><br />'; 1438: } else { 1439: foreach (@$string) { 1440: my ($partid,$respid) = /^resource\.(\w+)\.(\w+)\.submission/; 1441: if ($part eq ($partid.'_'.$respid)) { 1442: my ($ressub,$subval) = split(/:/,$_,2); 1443: # Similarity check 1444: my $similar=''; 1445: my ($oname,$odom,$ocrsid,$oessay,$osim)=&most_similar($uname,$udom,$subval); 1446: if ($osim) { 1447: $osim=int($osim*100.0); 1448: $similar='<hr /><h3><font color="#FF0000">Essay is '.$osim. 1449: '% similar to an essay by '.&Apache::loncommon::plainname($oname,$odom). 1450: '</font></h3><blockquote><i>'. 1451: &keywords_highlight($oessay).'</i></blockquote><hr />'; 1452: } 1453: $lastsubonly.='<tr><td bgcolor="#ffffe6"><b>Part '. 1454: $partid.'</b> <font color="#999999">( ID '.$respid. 1455: ' )</font>   '. 1456: ($record{"resource.$partid.$respid.uploadedurl"}? 1457: '<a href="'. 1458: &Apache::lonnet::tokenwrapper($record{"resource.$partid.$respid.uploadedurl"}). 1459: '"><img src="/adm/lonIcons/unknown.gif" border=0"> File uploaded by student</a> '. 1460: '<font color="red" size="1">Like all files provided by users, '. 1461: 'this file may contain virusses</font><br />':''). 1462: '<b>Submitted Answer: </b>'.($responsetype =~ /^(essay|option)$/ ? 1463: '<blockquote>' : ''). 1464: # &cleanRecord(&keywords_highlight($subval),$responsetype). 1465: &cleanRecord($subval,$responsetype,$symb). 1466: ($responsetype =~ /^(essay|option)$/ ? '</blockquote><br />' : 1467: '<br /><br />').$similar."\n" 1468: if ($ENV{'form.lastSub'} eq 'lastonly' || 1469: ($ENV{'form.lastSub'} eq 'hdgrade' && 1470: $$handgrade{$part} =~ /:yes$/)); 1471: } 1472: } 1473: } 1474: } 1475: } 1476: $lastsubonly.='</td></tr><tr bgcolor="#ffffff"><td>'."\n"; 1477: $request->print($lastsubonly); 1478: } 1479: } elsif ($ENV{'form.lastSub'} eq 'datesub') { 1480: my (undef,$responseType,undef,$parts) = &showResourceInfo($url); 1481: $request->print(&displaySubByDates(\$symb,\%record,$parts,$responseType,$checkIcon)); 1482: } elsif ($ENV{'form.lastSub'} =~ /^(last|all)$/) { 1483: $request->print(&Apache::loncommon::get_previous_attempt($symb,$uname,$udom, 1484: $ENV{'request.course.id'}, 1485: $last,'.submission', 1486: 'Apache::grades::keywords_highlight')); 1487: } 1488: 1489: $request->print('<input type="hidden" name="unamedom'.$counter.'" value="'.$uname.':' 1490: .$udom.'" />'."\n"); 1491: 1492: # return if view submission with no grading option 1493: if ($ENV{'form.showgrading'} eq '' || (!&canmodify($usec))) { 1494: my $toGrade.='<input type="button" value="Grade Student" '. 1495: 'onClick="javascript:checksubmit(this.form,\'Grade Student\',\'' 1496: .$counter.'\');" TARGET=_self>  '."\n" if (&canmodify($usec)); 1497: $toGrade.='</td></tr></table></td></tr></table></form>'."\n"; 1498: $toGrade.=&show_grading_menu_form($symb,$url) 1499: if (($ENV{'form.command'} eq 'submission') || 1500: ($ENV{'form.command'} eq 'processGroup' && $counter == $total)); 1501: $request = print($toGrade); 1502: return; 1503: } 1504: 1505: # essay grading message center 1506: if ($ENV{'form.handgrade'} eq 'yes') { 1507: my ($lastname,$givenn) = split(/,/,$ENV{'form.fullname'}); 1508: my $msgfor = $givenn.' '.$lastname; 1509: if (scalar(@col_fullnames) > 0) { 1510: my $lastone = pop @col_fullnames; 1511: $msgfor .= ', '.(join ', ',@col_fullnames).' and '.$lastone.'.'; 1512: } 1513: $msgfor =~ s/\'/\\'/g; #' stupid emacs - no! javascript 1514: # $result.='<tr><td bgcolor="#ffffff">'."\n". 1515: $result='<input type="hidden" name="includemsg'.$counter.'" value="" />'."\n". 1516: '<input type="hidden" name="newmsg'.$counter.'" value="" />'."\n"; 1517: $result.=' <a href="javascript:msgCenter(document.SCORE,'.$counter. 1518: ',\''.$msgfor.'\')"; TARGET=_self>'. 1519: 'Compose Message to student'.(scalar(@col_fullnames) >= 1 ? 's' : '').'</a>  '. 1520: '<img src="'.$request->dir_config('lonIconsURL'). 1521: '/mailbkgrd.gif" width="14" height="10" name="mailicon'.$counter.'" />'."\n". 1522: '<br /> (Message will be sent when you click on Save & Next below.)'."\n" 1523: if ($ENV{'form.handgrade'} eq 'yes'); 1524: $request->print($result); 1525: } 1526: 1527: my %seen = (); 1528: my @partlist; 1529: for (sort keys(%$handgrade)) { 1530: my ($partid,$respid) = split(/_/); 1531: next if ($seen{$partid} > 0); 1532: $seen{$partid}++; 1533: next if ($$handgrade{$_} =~ /:no$/ && $ENV{'form.lastSub'} =~ /^(hdgrade)$/); 1534: push @partlist,$partid; 1535: 1536: $request->print(&gradeBox($request,$symb,$uname,$udom,$counter,$partid,\%record)); 1537: } 1538: $result='<input type="hidden" name="partlist'.$counter. 1539: '" value="'.(join ":",@partlist).'" />'."\n"; 1540: my $ctr = 0; 1541: while ($ctr < scalar(@partlist)) { 1542: $result.='<input type="hidden" name="partid'.$counter.'_'.$ctr.'" value="'. 1543: $partlist[$ctr].'" />'."\n"; 1544: $ctr++; 1545: } 1546: $request->print($result.'</td></tr></table></td></tr></table>'."\n"); 1547: 1548: # print end of form 1549: if ($counter == $total) { 1550: my $endform='<table border="0"><tr><td>'."\n"; 1551: $endform.='<input type="button" value="Save & Next" '. 1552: 'onClick="javascript:checksubmit(this.form,\'Save & Next\','. 1553: $total.','.scalar(@partlist).');" TARGET=_self>  '."\n"; 1554: my $ntstu ='<select name="NTSTU">'. 1555: '<option>1</option><option>2</option>'. 1556: '<option>3</option><option>5</option>'. 1557: '<option>7</option><option>10</option></select>'."\n"; 1558: my $nsel = ($ENV{'form.NTSTU'} ne '' ? $ENV{'form.NTSTU'} : '1'); 1559: $ntstu =~ s/<option>$nsel</<option selected="on">$nsel</; 1560: $endform.=$ntstu.'student(s)   '; 1561: $endform.='<input type="button" value="Next" '. 1562: 'onClick="javascript:checksubmit(this.form,\'Next\');" TARGET=_self>  '."\n". 1563: '<input type="button" value="Previous" '. 1564: 'onClick="javascript:checksubmit(this.form,\'Previous\');" TARGET=_self>  '; 1565: $endform.='(Next and Previous do not save the scores.)'."\n" ; 1566: $endform.='</td><tr></table></form>'; 1567: $endform.=&show_grading_menu_form($symb,$url); 1568: $request->print($endform); 1569: } 1570: return ''; 1571: } 1572: 1573: #--- Retrieve the last submission for all the parts 1574: sub get_last_submission { 1575: my ($returnhash)=@_; 1576: my (@string,$timestamp); 1577: if ($$returnhash{'version'}) { 1578: my %lasthash=(); 1579: my ($version); 1580: for ($version=1;$version<=$$returnhash{'version'};$version++) { 1581: foreach (sort(split(/\:/,$$returnhash{$version.':keys'}))) { 1582: $lasthash{$_}=$$returnhash{$version.':'.$_}; 1583: $timestamp = scalar(localtime($$returnhash{$version.':timestamp'})); 1584: } 1585: } 1586: foreach ((keys %lasthash)) { 1587: if ($_ =~ /\.submission$/) { 1588: my ($partid,$foo) = split(/submission$/,$_); 1589: my $draft = $lasthash{$partid.'awarddetail'} eq 'DRAFT' ? 1590: '<font color="red">Draft Copy</font> ' : ''; 1591: push @string, (join(':',$_,$draft.$lasthash{$_})); 1592: } 1593: } 1594: } 1595: @string = $string[0] eq '' ? 'Nothing submitted - no attempts.' : @string; 1596: return \@string,\$timestamp; 1597: } 1598: 1599: #--- High light keywords, with style choosen by user. 1600: sub keywords_highlight { 1601: my $string = shift; 1602: my $size = $ENV{'form.kwsize'} eq '0' ? '' : 'size='.$ENV{'form.kwsize'}; 1603: my $styleon = $ENV{'form.kwstyle'} eq '' ? '' : $ENV{'form.kwstyle'}; 1604: (my $styleoff = $styleon) =~ s/\</\<\//; 1605: my @keylist = split(/[,\s+]/,$ENV{'form.keywords'}); 1606: foreach (@keylist) { 1607: $string =~ s/\b\Q$_\E(\b|\.)/<font color\=$ENV{'form.kwclr'} $size\>$styleon$_$styleoff<\/font>/gi; 1608: } 1609: return $string; 1610: } 1611: 1612: #--- Called from submission routine 1613: sub processHandGrade { 1614: my ($request) = shift; 1615: my $url = $ENV{'form.url'}; 1616: my $symb = $ENV{'form.symb'}; 1617: my $button = $ENV{'form.gradeOpt'}; 1618: my $ngrade = $ENV{'form.NCT'}; 1619: my $ntstu = $ENV{'form.NTSTU'}; 1620: if ($button eq 'Save & Next') { 1621: my $ctr = 0; 1622: while ($ctr < $ngrade) { 1623: my ($uname,$udom) = split(/:/,$ENV{'form.unamedom'.$ctr}); 1624: my ($errorflag,$pts,$wgt) = &saveHandGrade($request,$url,$symb,$uname,$udom,$ctr); 1625: if ($errorflag eq 'no_score') { 1626: $ctr++; 1627: next; 1628: } 1629: if ($errorflag eq 'not_allowed') { 1630: $request->print("<font color=\"red\">Not allowed to modify grades for $uname:$udom</font>"); 1631: $ctr++; 1632: next; 1633: } 1634: my $includemsg = $ENV{'form.includemsg'.$ctr}; 1635: my ($subject,$message,$msgstatus) = ('','',''); 1636: if ($includemsg =~ /savemsg|newmsg\Q$ctr\E/) { 1637: $subject = $ENV{'form.msgsub'} if ($includemsg =~ /^msgsub/); 1638: my (@msgnum) = split(/,/,$includemsg); 1639: foreach (@msgnum) { 1640: $message.=$ENV{'form.'.$_} if ($_ =~ /savemsg|newmsg/ && $_ ne ''); 1641: } 1642: $message =&Apache::lonfeedback::clear_out_html($message); 1643: $message.="\n\nPoint".($pts > 1 ? 's':'').' awarded = '.$pts.' out of '.$wgt; 1644: $message.=" for <a href=\"". 1645: &Apache::lonnet::clutter($url). 1646: "?symb=$symb\">$ENV{'form.probTitle'}</a>"; 1647: $msgstatus = &Apache::lonmsg::user_normal_msg ($uname,$udom, 1648: $ENV{'form.msgsub'},$message); 1649: } 1650: if ($ENV{'form.collaborator'.$ctr}) { 1651: my (@collaborators) = split(/:/,$ENV{'form.collaborator'.$ctr}); 1652: foreach (@collaborators) { 1653: my ($errorflag,$pts,$wgt) = 1654: &saveHandGrade($request,$url,$symb,$_,$udom,$ctr,$ENV{'form.unamedom'.$ctr}); 1655: if ($errorflag eq 'not_allowed') { 1656: $request->print("<font color=\"red\">Not allowed to modify grades for $_:$udom</font>"); 1657: next; 1658: } else { 1659: if ($message ne '') { 1660: $msgstatus = &Apache::lonmsg::user_normal_msg ($_,$udom, 1661: $ENV{'form.msgsub'}, 1662: $message); 1663: } 1664: } 1665: } 1666: } 1667: $ctr++; 1668: } 1669: } 1670: 1671: if ($ENV{'form.handgrade'} eq 'yes') { 1672: # Keywords sorted in alphabatical order 1673: my $loginuser = $ENV{'user.name'}.':'.$ENV{'user.domain'}; 1674: my %keyhash = (); 1675: $ENV{'form.keywords'} =~ s/,\s{0,}|\s+/ /g; 1676: $ENV{'form.keywords'} =~ s/^\s+|\s+$//; 1677: my (@keywords) = sort(split(/\s+/,$ENV{'form.keywords'})); 1678: $ENV{'form.keywords'} = join(' ',@keywords); 1679: $keyhash{$symb.'_keywords'} = $ENV{'form.keywords'}; 1680: $keyhash{$symb.'_subject'} = $ENV{'form.msgsub'}; 1681: $keyhash{$loginuser.'_kwclr'} = $ENV{'form.kwclr'}; 1682: $keyhash{$loginuser.'_kwsize'} = $ENV{'form.kwsize'}; 1683: $keyhash{$loginuser.'_kwstyle'} = $ENV{'form.kwstyle'}; 1684: 1685: # message center - Order of message gets changed. Blank line is eliminated. 1686: # New messages are saved in ENV for the next student. 1687: # All messages are saved in nohist_handgrade.db 1688: my ($ctr,$idx) = (1,1); 1689: while ($ctr <= $ENV{'form.savemsgN'}) { 1690: if ($ENV{'form.savemsg'.$ctr} ne '') { 1691: $keyhash{$symb.'_savemsg'.$idx} = $ENV{'form.savemsg'.$ctr}; 1692: $idx++; 1693: } 1694: $ctr++; 1695: } 1696: $ctr = 0; 1697: while ($ctr < $ngrade) { 1698: if ($ENV{'form.newmsg'.$ctr} ne '') { 1699: $keyhash{$symb.'_savemsg'.$idx} = $ENV{'form.newmsg'.$ctr}; 1700: $ENV{'form.savemsg'.$idx} = $ENV{'form.newmsg'.$ctr}; 1701: $idx++; 1702: } 1703: $ctr++; 1704: } 1705: $ENV{'form.savemsgN'} = --$idx; 1706: $keyhash{$symb.'_savemsgN'} = $ENV{'form.savemsgN'}; 1707: my $putresult = &Apache::lonnet::put 1708: ('nohist_handgrade',\%keyhash, 1709: $ENV{'course.'.$ENV{'request.course.id'}.'.domain'}, 1710: $ENV{'course.'.$ENV{'request.course.id'}.'.num'}); 1711: } 1712: # Called by Save & Refresh from Highlight Attribute Window 1713: my (undef,undef,$fullname) = &getclasslist($ENV{'form.section'},'1'); 1714: if ($ENV{'form.refresh'} eq 'on') { 1715: my ($ctr,$total) = (0,0); 1716: while ($ctr < $ngrade) { 1717: $total++ if $ENV{'form.unamedom'.$ctr} ne ''; 1718: $ctr++; 1719: } 1720: $ENV{'form.NTSTU'}=$ngrade; 1721: $ctr = 0; 1722: while ($ctr < $total) { 1723: my $processUser = $ENV{'form.unamedom'.$ctr}; 1724: ($ENV{'form.student'},$ENV{'form.userdom'}) = split(/:/,$processUser); 1725: $ENV{'form.fullname'} = $$fullname{$processUser}; 1726: &submission($request,$ctr,$total-1); 1727: $ctr++; 1728: } 1729: return ''; 1730: } 1731: 1732: # Go directly to grade student - from submission or link from chart page 1733: if ($button eq 'Grade Student') { 1734: (undef,undef,$ENV{'form.handgrade'},undef,undef) = &showResourceInfo($url); 1735: my $processUser = $ENV{'form.unamedom'.$ENV{'form.studentNo'}}; 1736: ($ENV{'form.student'},$ENV{'form.userdom'}) = split(/:/,$processUser); 1737: $ENV{'form.fullname'} = $$fullname{$processUser}; 1738: &submission($request,0,0); 1739: return ''; 1740: } 1741: 1742: # Get the next/previous one or group of students 1743: my $firststu = $ENV{'form.unamedom0'}; 1744: my $laststu = $ENV{'form.unamedom'.($ngrade-1)}; 1745: my $ctr = 2; 1746: while ($laststu eq '') { 1747: $laststu = $ENV{'form.unamedom'.($ngrade-$ctr)}; 1748: $ctr++; 1749: $laststu = $firststu if ($ctr > $ngrade); 1750: } 1751: 1752: my (@parsedlist,@nextlist); 1753: my ($nextflg) = 0; 1754: foreach (sort {lc($$fullname{$a}) cmp lc($$fullname{$b}) } keys %$fullname) { 1755: if ($nextflg == 1 && $button =~ /Next$/) { 1756: push @parsedlist,$_; 1757: } 1758: $nextflg = 1 if ($_ eq $laststu); 1759: if ($button eq 'Previous') { 1760: last if ($_ eq $firststu); 1761: push @parsedlist,$_; 1762: } 1763: } 1764: $ctr = 0; 1765: my ($partlist,$handgrade) = &response_type($ENV{'form.url'}); 1766: @parsedlist = reverse @parsedlist if ($button eq 'Previous'); 1767: foreach my $student (@parsedlist) { 1768: my ($uname,$udom) = split(/:/,$student); 1769: if ($ENV{'form.submitonly'} eq 'yes') { 1770: my (%status) = &student_gradeStatus($ENV{'form.url'},$symb,$udom,$uname,$partlist) ; 1771: my $statusflg = ''; 1772: foreach (keys(%status)) { 1773: $statusflg = 1 if ($status{$_} ne 'nothing'); 1774: my ($foo,$partid,$foo1) = split(/\./); 1775: $statusflg = '' if ($status{'resource.'.$partid.'.submitted_by'} ne ''); 1776: } 1777: next if ($statusflg eq ''); 1778: } 1779: push @nextlist,$student if ($ctr < $ntstu); 1780: $ctr++; 1781: } 1782: 1783: $ctr = 0; 1784: my $total = scalar(@nextlist)-1; 1785: 1786: foreach (sort @nextlist) { 1787: my ($uname,$udom,$submitter) = split(/:/); 1788: $ENV{'form.student'} = $uname; 1789: $ENV{'form.userdom'} = $udom; 1790: $ENV{'form.fullname'} = $$fullname{$_}; 1791: &submission($request,$ctr,$total); 1792: $ctr++; 1793: } 1794: if ($total < 0) { 1795: my $the_end = '<h3><font color="red">LON-CAPA User Message</font></h3><br />'."\n"; 1796: $the_end.='<b>Message: </b> No more students for this section or class.<br /><br />'."\n"; 1797: $the_end.='Click on the button below to return to the grading menu.<br /><br />'."\n"; 1798: $the_end.=&show_grading_menu_form ($symb,$url); 1799: $request->print($the_end); 1800: } 1801: return ''; 1802: } 1803: 1804: #---- Save the score and award for each student, if changed 1805: sub saveHandGrade { 1806: my ($request,$url,$symb,$stuname,$domain,$newflg,$submitter) = @_; 1807: my $usec = &Apache::lonnet::getsection($domain,$stuname, 1808: $ENV{'request.course.id'}); 1809: if (!&canmodify($usec)) { return('not_allowed'); } 1810: my %record = &Apache::lonnet::restore($symb,$ENV{'request.course.id'},$domain,$stuname); 1811: my %newrecord = (); 1812: my ($pts,$wgt) = ('',''); 1813: foreach (split(/:/,$ENV{'form.partlist'.$newflg})) { 1814: if ($ENV{'form.GD_SEL'.$newflg.'_'.$_} eq 'excused') { 1815: if ($record{'resource.'.$_.'.solved'} ne 'excused') { 1816: $newrecord{'resource.'.$_.'.solved'} = 'excused'; 1817: if (exists($record{'resource.'.$_.'.awarded'})) { 1818: $newrecord{'resource.'.$_.'.awarded'} = ''; 1819: } 1820: } 1821: } else { 1822: $pts = ($ENV{'form.GD_BOX'.$newflg.'_'.$_} ne '' ? 1823: $ENV{'form.GD_BOX'.$newflg.'_'.$_} : 1824: $ENV{'form.RADVAL'.$newflg.'_'.$_}); 1825: return 'no_score' if ($pts eq '' && $ENV{'form.GD_SEL'.$newflg.'_'.$_} eq ''); 1826: $wgt = $ENV{'form.WGT'.$newflg.'_'.$_} eq '' ? 1 : 1827: $ENV{'form.WGT'.$newflg.'_'.$_}; 1828: my $partial= $pts/$wgt; 1829: next if ($partial eq $record{'resource.'.$_.'.awarded'}); #do not update score for part if not changed. 1830: $newrecord{'resource.'.$_.'.awarded'} = $partial 1831: if ($record{'resource.'.$_.'.awarded'} ne $partial); 1832: my $reckey = 'resource.'.$_.'.solved'; 1833: if ($partial == 0) { 1834: $newrecord{$reckey} = 'incorrect_by_override' 1835: if ($record{$reckey} ne 'incorrect_by_override'); 1836: } else { 1837: $newrecord{$reckey} = 'correct_by_override' 1838: if ($record{$reckey} ne 'correct_by_override'); 1839: } 1840: $newrecord{'resource.'.$_.'.submitted_by'} = $submitter 1841: if ($submitter && ($record{'resource.'.$_.'.submitted_by'} ne $submitter)); 1842: $newrecord{'resource.'.$_.'.regrader'}="$ENV{'user.name'}:$ENV{'user.domain'}"; 1843: } 1844: } 1845: 1846: if (scalar(keys(%newrecord)) > 0) { 1847: &Apache::lonnet::cstore(\%newrecord,$symb, 1848: $ENV{'request.course.id'},$domain,$stuname); 1849: } 1850: return '',$pts,$wgt; 1851: } 1852: 1853: #-------------------------------------------------------------------------------------- 1854: # 1855: #-------------------------- Next few routines handles grading by section or whole class 1856: # 1857: #--- Javascript to handle grading by section or whole class 1858: sub viewgrades_js { 1859: my ($request) = shift; 1860: 1861: $request->print(<<VIEWJAVASCRIPT); 1862: <script type="text/javascript" language="javascript"> 1863: function writePoint(partid,weight,point) { 1864: var radioButton = eval("document.classgrade.RADVAL_"+partid); 1865: var textbox = eval("document.classgrade.TEXTVAL_"+partid); 1866: if (point == "textval") { 1867: var point = eval("document.classgrade.TEXTVAL_"+partid+".value"); 1868: if (isNaN(point) || parseFloat(point) < 0) { 1869: alert("A number equal or greater than 0 is expected. Entered value = "+parseFloat(point)); 1870: var resetbox = false; 1871: for (var i=0; i<radioButton.length; i++) { 1872: if (radioButton[i].checked) { 1873: textbox.value = i; 1874: resetbox = true; 1875: } 1876: } 1877: if (!resetbox) { 1878: textbox.value = ""; 1879: } 1880: return; 1881: } 1882: if (parseFloat(point) > parseFloat(weight)) { 1883: var resp = confirm("You entered a value ("+parseFloat(point)+ 1884: ") greater than the weight for the part. Accept?"); 1885: if (resp == false) { 1886: textbox.value = ""; 1887: return; 1888: } 1889: } 1890: for (var i=0; i<radioButton.length; i++) { 1891: radioButton[i].checked=false; 1892: if (parseFloat(point) == i) { 1893: radioButton[i].checked=true; 1894: } 1895: } 1896: 1897: } else { 1898: textbox.value = point; 1899: } 1900: for (i=0;i<document.classgrade.total.value;i++) { 1901: var user = eval("document.classgrade.ctr"+i+".value"); 1902: var scorename = eval("document.classgrade.GD_"+user+ 1903: "_"+partid+"_awarded"); 1904: var saveval = eval("document.classgrade.GD_"+user+ 1905: "_"+partid+"_solved_s.value"); 1906: var selname = eval("document.classgrade.GD_"+user+"_"+partid+"_solved"); 1907: if (saveval != "correct") { 1908: scorename.value = point; 1909: if (selname[0].selected != true) { 1910: selname[0].selected = true; 1911: } 1912: } 1913: } 1914: var selval = eval("document.classgrade.SELVAL_"+partid); 1915: selval[0].selected = true; 1916: } 1917: 1918: function writeRadText(partid,weight) { 1919: var selval = eval("document.classgrade.SELVAL_"+partid); 1920: var radioButton = eval("document.classgrade.RADVAL_"+partid); 1921: var textbox = eval("document.classgrade.TEXTVAL_"+partid); 1922: if (selval[1].selected) { 1923: for (var i=0; i<radioButton.length; i++) { 1924: radioButton[i].checked=false; 1925: 1926: } 1927: textbox.value = ""; 1928: 1929: for (i=0;i<document.classgrade.total.value;i++) { 1930: var user = eval("document.classgrade.ctr"+i+".value"); 1931: var scorename = eval("document.classgrade.GD_"+user+ 1932: "_"+partid+"_awarded"); 1933: var saveval = eval("document.classgrade.GD_"+user+ 1934: "_"+partid+"_solved_s.value"); 1935: var selname = eval("document.classgrade.GD_"+user+ 1936: "_"+partid+"_solved"); 1937: if (saveval != "correct") { 1938: scorename.value = ""; 1939: selname[1].selected = true; 1940: } 1941: } 1942: } else { 1943: for (i=0;i<document.classgrade.total.value;i++) { 1944: var user = eval("document.classgrade.ctr"+i+".value"); 1945: var scorename = eval("document.classgrade.GD_"+user+ 1946: "_"+partid+"_awarded"); 1947: var saveval = eval("document.classgrade.GD_"+user+ 1948: "_"+partid+"_solved_s.value"); 1949: var selname = eval("document.classgrade.GD_"+user+ 1950: "_"+partid+"_solved"); 1951: if (saveval != "correct") { 1952: scorename.value = eval("document.classgrade.GD_"+user+ 1953: "_"+partid+"_awarded_s.value");; 1954: selname[0].selected = true; 1955: } 1956: } 1957: } 1958: } 1959: 1960: function changeSelect(partid,user) { 1961: var selval = eval("document.classgrade.GD_"+user+'_'+partid+"_solved"); 1962: var textbox = eval("document.classgrade.GD_"+user+'_'+partid+"_awarded"); 1963: var point = textbox.value; 1964: var weight = eval("document.classgrade.weight_"+partid+".value"); 1965: 1966: if (isNaN(point) || parseFloat(point) < 0) { 1967: alert("A number equal or greater than 0 is expected. Entered value = "+parseFloat(point)); 1968: textbox.value = ""; 1969: return; 1970: } 1971: if (parseFloat(point) > parseFloat(weight)) { 1972: var resp = confirm("You entered a value ("+parseFloat(point)+ 1973: ") greater than the weight of the part. Accept?"); 1974: if (resp == false) { 1975: textbox.value = ""; 1976: return; 1977: } 1978: } 1979: selval[0].selected = true; 1980: } 1981: 1982: function changeOneScore(partid,user) { 1983: var selval = eval("document.classgrade.GD_"+user+'_'+partid+"_solved"); 1984: if (selval[1].selected) { 1985: var boxval = eval("document.classgrade.GD_"+user+'_'+partid+"_awarded"); 1986: boxval.value = ""; 1987: } 1988: } 1989: 1990: function resetEntry(numpart) { 1991: for (ctpart=0;ctpart<numpart;ctpart++) { 1992: var partid = eval("document.classgrade.partid_"+ctpart+".value"); 1993: var radioButton = eval("document.classgrade.RADVAL_"+partid); 1994: var textbox = eval("document.classgrade.TEXTVAL_"+partid); 1995: var selval = eval("document.classgrade.SELVAL_"+partid); 1996: for (var i=0; i<radioButton.length; i++) { 1997: radioButton[i].checked=false; 1998: 1999: } 2000: textbox.value = ""; 2001: selval[0].selected = true; 2002: 2003: for (i=0;i<document.classgrade.total.value;i++) { 2004: var user = eval("document.classgrade.ctr"+i+".value"); 2005: var resetscore = eval("document.classgrade.GD_"+user+ 2006: "_"+partid+"_awarded"); 2007: resetscore.value = eval("document.classgrade.GD_"+user+ 2008: "_"+partid+"_awarded_s.value"); 2009: 2010: var saveselval = eval("document.classgrade.GD_"+user+ 2011: "_"+partid+"_solved_s.value"); 2012: 2013: var selname = eval("document.classgrade.GD_"+user+"_"+partid+"_solved"); 2014: if (saveselval == "excused") { 2015: if (selname[1].selected == false) { selname[1].selected = true;} 2016: } else { 2017: if (selname[0].selected == false) {selname[0].selected = true}; 2018: } 2019: } 2020: } 2021: } 2022: 2023: </script> 2024: VIEWJAVASCRIPT 2025: } 2026: 2027: #--- show scores for a section or whole class w/ option to change/update a score 2028: sub viewgrades { 2029: my ($request) = shift; 2030: &viewgrades_js($request); 2031: 2032: my ($symb,$url) = ($ENV{'form.symb'},$ENV{'form.url'}); 2033: my $result='<h3><font color="#339933">Manual Grading</font></h3>'; 2034: 2035: $result.='<font size=+1><b>Current Resource: </b>'.$ENV{'form.probTitle'}.'</font>'."\n"; 2036: 2037: #view individual student submission form - called using Javascript viewOneStudent 2038: $result.=&jscriptNform($url,$symb); 2039: 2040: #beginning of class grading form 2041: $result.= '<form action="/adm/grades" method="post" name="classgrade">'."\n". 2042: '<input type="hidden" name="symb" value="'.$symb.'" />'."\n". 2043: '<input type="hidden" name="url" value="'.$url.'" />'."\n". 2044: '<input type="hidden" name="command" value="editgrades" />'."\n". 2045: '<input type="hidden" name="section" value="'.$ENV{'form.section'}.'" />'."\n". 2046: '<input type="hidden" name="saveState" value="'.$ENV{'form.saveState'}.'" />'."\n". 2047: '<input type="hidden" name="probTitle" value="'.$ENV{'form.probTitle'}.'" />'."\n"; 2048: 2049: $result.='<h3>Assign Common Grade To '; 2050: if ($ENV{'form.section'} eq 'all') { 2051: $result.='Class </h3>'; 2052: } elsif ($ENV{'form.section'} eq 'no') { 2053: $result.='Students in no Section </h3>'; 2054: } else { 2055: $result.='Students in Section '.$ENV{'form.section'}.'</h3>'; 2056: } 2057: $result.= '<table border=0><tr><td bgcolor="#777777">'."\n". 2058: '<table border=0><tr bgcolor="#ffffdd"><td>'; 2059: #radio buttons/text box for assigning points for a section or class. 2060: #handles different parts of a problem 2061: my ($partlist,$handgrade) = &response_type($ENV{'form.url'}); 2062: my %weight = (); 2063: my $ctsparts = 0; 2064: $result.='<table border="0">'; 2065: my %seen = (); 2066: for (sort keys(%$handgrade)) { 2067: my ($partid,$respid) = split (/_/,$_,2); 2068: next if $seen{$partid}; 2069: $seen{$partid}++; 2070: my ($responsetype,$handgrade)=split(/:/,$$handgrade{$_}); 2071: my $wgt = &Apache::lonnet::EXT('resource.'.$partid.'.weight',$symb); 2072: $weight{$partid} = $wgt eq '' ? '1' : $wgt; 2073: 2074: $result.='<input type="hidden" name="partid_'. 2075: $ctsparts.'" value="'.$partid.'" />'."\n"; 2076: $result.='<input type="hidden" name="weight_'. 2077: $partid.'" value="'.$weight{$partid}.'" />'."\n"; 2078: $result.='<tr><td><b>Part '.$partid.'   Point:</b> </td><td>'; 2079: $result.='<table border="0"><tr>'; 2080: my $ctr = 0; 2081: while ($ctr<=$weight{$partid}) { # display radio buttons in a nice table 10 across 2082: $result.= '<td><input type="radio" name="RADVAL_'.$partid.'" '. 2083: 'onclick="javascript:writePoint(\''.$partid.'\','.$weight{$partid}. 2084: ','.$ctr.')" />'.$ctr."</td>\n"; 2085: $result.=(($ctr+1)%10 == 0 ? '</tr><tr>' : ''); 2086: $ctr++; 2087: } 2088: $result.='</tr></table>'; 2089: $result.= '</td><td><b> or </b><input type="text" name="TEXTVAL_'. 2090: $partid.'" size="4" '.'onChange="javascript:writePoint(\''. 2091: $partid.'\','.$weight{$partid}.',\'textval\')" /> /'. 2092: $weight{$partid}.' (problem weight)</td>'."\n"; 2093: $result.= '</td><td><select name="SELVAL_'.$partid.'"'. 2094: 'onChange="javascript:writeRadText(\''.$partid.'\','. 2095: $weight{$partid}.')"> '. 2096: '<option selected="on"> </option>'. 2097: '<option>excused</option></select></td></tr>'."\n"; 2098: $ctsparts++; 2099: } 2100: $result.='</table>'.'</td></tr></table>'.'</td></tr></table>'."\n". 2101: '<input type="hidden" name="totalparts" value="'.$ctsparts.'" />'; 2102: $result.='<input type="button" value="Reset" '. 2103: 'onClick="javascript:resetEntry('.$ctsparts.');" TARGET=_self>'; 2104: 2105: #table listing all the students in a section/class 2106: #header of table 2107: $result.= '<h3>Assign Grade to Specific Students in '; 2108: if ($ENV{'form.section'} eq 'all') { 2109: $result.='the Class </h3>'; 2110: } elsif ($ENV{'form.section'} eq 'no') { 2111: $result.='no Section </h3>'; 2112: } else { 2113: $result.='Section '.$ENV{'form.section'}.'</h3>'; 2114: } 2115: $result.= '<table border=0><tr><td bgcolor="#777777">'."\n". 2116: '<table border=0><tr bgcolor="#deffff">'. 2117: '<td><b>Fullname</b> <font color="#999999">(Username)</font></td>'."\n"; 2118: my (@parts) = sort(&getpartlist($url)); 2119: foreach my $part (@parts) { 2120: my $display=&Apache::lonnet::metadata($url,$part.'.display'); 2121: $display =~ s/^Number of Attempts/Tries/; # makes the column narrower 2122: if (!$display) { $display = &Apache::lonnet::metadata($url,$part.'.name'); } 2123: if ($display =~ /^Partial Credit Factor/) { 2124: my ($partid) = &split_part_type($part); 2125: $result.='<td><b>Score Part '.$partid.'<br />(weight = '. 2126: $weight{$partid}.')</b></td>'."\n"; 2127: next; 2128: } 2129: $display =~ s|Problem Status|Grade Status<br />|; 2130: $result.='<td><b>'.$display.'</b></td>'."\n"; 2131: } 2132: $result.='</tr>'; 2133: 2134: #get info for each student 2135: #list all the students - with points and grade status 2136: my (undef,undef,$fullname) = &getclasslist($ENV{'form.section'},'1'); 2137: my $ctr = 0; 2138: foreach (sort {lc($$fullname{$a}) cmp lc($$fullname{$b}) } keys %$fullname) { 2139: my $uname = $_; 2140: $uname=~s/:/_/; 2141: $result.='<input type="hidden" name="ctr'.$ctr.'" value="'.$uname.'" />'."\n"; 2142: $result.=&viewstudentgrade($url,$symb,$ENV{'request.course.id'}, 2143: $_,$$fullname{$_},\@parts,\%weight); 2144: $ctr++; 2145: } 2146: $result.='</table></td></tr></table>'; 2147: $result.='<input type="hidden" name="total" value="'.$ctr.'" />'."\n"; 2148: $result.='<input type="button" value="Submit Changes" '. 2149: 'onClick="javascript:submit();" TARGET=_self /></form>'."\n"; 2150: if (scalar(%$fullname) eq 0) { 2151: my $colspan=3+scalar(@parts); 2152: $result='<font color="red">There are no students in section "'.$ENV{'form.section'}. 2153: '" with enrollment status "'.$ENV{'form.Status'}.'" to modify or grade.</font>'; 2154: } 2155: $result.=&show_grading_menu_form($symb,$url); 2156: return $result; 2157: } 2158: 2159: #--- call by previous routine to display each student 2160: sub viewstudentgrade { 2161: my ($url,$symb,$courseid,$student,$fullname,$parts,$weight) = @_; 2162: my ($uname,$udom) = split(/:/,$student); 2163: $student=~s/:/_/; 2164: my %record=&Apache::lonnet::restore($symb,$courseid,$udom,$uname); 2165: my $result='<tr bgcolor="#ffffdd"><td>'. 2166: '<a href="javascript:viewOneStudent(\''.$uname.'\',\''.$udom. 2167: '\')"; TARGET=_self>'.$fullname.'</a> '. 2168: '<font color="#999999">('.$uname.($ENV{'user.domain'} eq $udom ? '' : ':'.$udom).')</font></td>'."\n"; 2169: foreach my $apart (@$parts) { 2170: my ($part,$type) = &split_part_type($apart); 2171: my $score=$record{"resource.$part.$type"}; 2172: if ($type eq 'awarded') { 2173: my $pts = $score eq '' ? '' : $score*$$weight{$part}; 2174: $result.='<input type="hidden" name="'. 2175: 'GD_'.$student.'_'.$part.'_awarded_s" value="'.$pts.'" />'."\n"; 2176: $result.='<td align="middle"><input type="text" name="'. 2177: 'GD_'.$student.'_'.$part.'_awarded" '. 2178: 'onChange="javascript:changeSelect(\''.$part.'\',\''.$student. 2179: '\')" value="'.$pts.'" size="4" /></td>'."\n"; 2180: } elsif ($type eq 'solved') { 2181: my ($status,$foo)=split(/_/,$score,2); 2182: $status = 'nothing' if ($status eq ''); 2183: $result.='<input type="hidden" name="'.'GD_'.$student.'_'. 2184: $part.'_solved_s" value="'.$status.'" />'."\n"; 2185: $result.='<td align="middle"><select name="'. 2186: 'GD_'.$student.'_'.$part.'_solved" '. 2187: 'onChange="javascript:changeOneScore(\''.$part.'\',\''.$student.'\')" >'."\n"; 2188: my $optsel = '<option selected="on"> </option><option>excused</option>'."\n"; 2189: $optsel = '<option> </option><option selected="on">excused</option>'."\n" 2190: if ($status eq 'excused'); 2191: $result.=$optsel; 2192: $result.="</select></td>\n"; 2193: } else { 2194: $result.='<input type="hidden" name="'. 2195: 'GD_'.$student.'_'.$part.'_'.$type.'_s" value="'.$score.'" />'. 2196: "\n"; 2197: $result.='<td align="middle"><input type="text" name="'. 2198: 'GD_'.$student.'_'.$part.'_'.$type.'" '. 2199: 'value="'.$score.'" size="4" /></td>'."\n"; 2200: } 2201: } 2202: $result.='</tr>'; 2203: return $result; 2204: } 2205: 2206: #--- change scores for all the students in a section/class 2207: # record does not get update if unchanged 2208: sub editgrades { 2209: my ($request) = @_; 2210: 2211: my $symb=$ENV{'form.symb'}; 2212: my $url =$ENV{'form.url'}; 2213: my $title='<h3><font color="#339933">Current Grade Status</font></h3>'; 2214: $title.='<font size=+1><b>Current Resource: </b>'.$ENV{'form.probTitle'}.'</font><br />'."\n"; 2215: $title.='<font size=+1><b>Section: </b>'.$ENV{'form.section'}.'</font>'."\n"; 2216: my $result= '<table border="0"><tr><td bgcolor="#777777">'."\n"; 2217: $result.= '<table border="0"><tr bgcolor="#deffff">'. 2218: '<td rowspan=2><b>Username</b></td><td rowspan=2><b>Domain</b></td><td rowspan=2><b>Fullname</b></td>'."\n"; 2219: 2220: my %scoreptr = ( 2221: 'correct' =>'correct_by_override', 2222: 'incorrect'=>'incorrect_by_override', 2223: 'excused' =>'excused', 2224: 'ungraded' =>'ungraded_attempted', 2225: 'nothing' => '', 2226: ); 2227: my ($classlist,undef,$fullname) = &getclasslist($ENV{'form.section'},'0'); 2228: 2229: my (@partid); 2230: my %weight = (); 2231: my %columns = (); 2232: my ($i,$ctr,$count,$rec_update) = (0,0,0,0); 2233: 2234: my (@parts) = sort(&getpartlist($url)); 2235: my $header; 2236: while ($ctr < $ENV{'form.totalparts'}) { 2237: my $partid = $ENV{'form.partid_'.$ctr}; 2238: push @partid,$partid; 2239: $weight{$partid} = $ENV{'form.weight_'.$partid}; 2240: $ctr++; 2241: } 2242: foreach my $partid (@partid) { 2243: $header .= '<td align="center"> <b>Old Score</b> </td>'. 2244: '<td align="center"> <b>New Score</b> </td>'; 2245: $columns{$partid}=2; 2246: foreach my $stores (@parts) { 2247: my ($part,$type) = &split_part_type($stores); 2248: if ($part !~ m/^\Q$partid\E/) { next;} 2249: if ($type eq 'awarded' || $type eq 'solved') { next; } 2250: my $display=&Apache::lonnet::metadata($url,$stores.'.display'); 2251: $display =~ s/\[Part: (\w)+\]//; 2252: $header .= '<td align="center"> <b>Old</b> '.$display.' </td>'. 2253: '<td align="center"> <b>New</b> '.$display.' </td>'; 2254: $columns{$partid}+=2; 2255: } 2256: } 2257: foreach my $partid (@partid) { 2258: $result .= '<td colspan="'.$columns{$partid}. 2259: '" align="center"><b>Part '.$partid. 2260: '</b> (Weight = '.$weight{$partid}.')</td>'; 2261: 2262: } 2263: $result .= '</tr><tr bgcolor="#deffff">'; 2264: $result .= $header; 2265: $result .= '</tr>'."\n"; 2266: my $noupdate; 2267: for ($i=0; $i<$ENV{'form.total'}; $i++) { 2268: my $line; 2269: my $user = $ENV{'form.ctr'.$i}; 2270: my $usercolon = $user; 2271: $usercolon =~s/_/:/; 2272: my ($uname,$udom)=split(/_/,$user); 2273: my %newrecord; 2274: my $updateflag = 0; 2275: $line .= '<tr bgcolor="#ffffde"><td>'.$uname.' </td><td>'. 2276: $udom.' </td><td>'. 2277: $$fullname{$usercolon}.' </td>'; 2278: my $usec=$classlist->{"$uname:$udom"}[5]; 2279: if (!&canmodify($usec)) { 2280: my $numcols=scalar(@partid)*(scalar(@parts)-1)*2; 2281: $noupdate.=$line."<td colspan=\"$numcols\"><font color=\"red\">Not allowed to modify student</font></td></tr>"; 2282: next; 2283: } 2284: foreach (@partid) { 2285: my $old_aw = $ENV{'form.GD_'.$user.'_'.$_.'_awarded_s'}; 2286: my $old_part_pcr = $old_aw/($weight{$_} ne '0' ? $weight{$_}:1); 2287: my $old_part = $old_aw eq '' ? '' : $old_part_pcr; 2288: my $old_score = $scoreptr{$ENV{'form.GD_'.$user.'_'.$_.'_solved_s'}}; 2289: 2290: my $awarded = $ENV{'form.GD_'.$user.'_'.$_.'_awarded'}; 2291: my $pcr = $awarded/($weight{$_} ne '0' ? $weight{$_} : 1); 2292: my $partial = $awarded eq '' ? '' : $pcr; 2293: my $score; 2294: if ($partial eq '') { 2295: $score = $scoreptr{$ENV{'form.GD_'.$user.'_'.$_.'_solved_s'}}; 2296: } elsif ($partial > 0) { 2297: $score = 'correct_by_override'; 2298: } elsif ($partial == 0) { 2299: $score = 'incorrect_by_override'; 2300: } 2301: $score = 'excused' if (($ENV{'form.GD_'.$user.'_'.$_.'_solved'} eq 'excused') && 2302: ($score ne 'excused')); 2303: $line .= '<td align="center">'.$old_aw.' </td>'. 2304: '<td align="center">'.$awarded. 2305: ($score eq 'excused' ? $score : '').' </td>'; 2306: 2307: if (!($old_part eq $partial && $old_score eq $score)) { 2308: $updateflag = 1; 2309: $newrecord{'resource.'.$_.'.awarded'} = $partial if $partial ne ''; 2310: $newrecord{'resource.'.$_.'.solved'} = $score; 2311: $rec_update++; 2312: } 2313: 2314: my $partid=$_; 2315: foreach my $stores (@parts) { 2316: my ($part,$type) = &split_part_type($stores); 2317: if ($part !~ m/^\Q$partid\E/) { next;} 2318: if ($type eq 'awarded' || $type eq 'solved') { next; } 2319: my $old_aw = $ENV{'form.GD_'.$user.'_'.$part.'_'.$type.'_s'}; 2320: my $awarded = $ENV{'form.GD_'.$user.'_'.$part.'_'.$type}; 2321: if ($awarded ne '' && $awarded ne $old_aw) { 2322: $newrecord{'resource.'.$part.'.'.$type}= $awarded; 2323: $newrecord{'resource.'.$part.'.regrader'}="$ENV{'user.name'}:$ENV{'user.domain'}"; 2324: $updateflag=1; 2325: } 2326: $line .= '<td align="center">'.$old_aw.' </td>'. 2327: '<td align="center">'.$awarded.' </td>'; 2328: } 2329: } 2330: $line.='</tr>'."\n"; 2331: if ($updateflag) { 2332: $count++; 2333: &Apache::lonnet::cstore(\%newrecord,$symb,$ENV{'request.course.id'}, 2334: $udom,$uname); 2335: $result.=$line; 2336: } else { 2337: $noupdate.=$line; 2338: } 2339: } 2340: if ($noupdate) { 2341: my $numcols=(scalar(@partid)*(scalar(@parts)-1)*2)+3; 2342: $result .= '<tr bgcolor="#ffffff"><td align="center" colspan="'.$numcols.'">No Changes Occured For the Students Below</td></tr>'.$noupdate; 2343: } 2344: $result .= '</table></td></tr></table>'."\n". 2345: &show_grading_menu_form ($symb,$url); 2346: my $msg = '<b>Number of records updated = '.$rec_update. 2347: ' for '.$count.' student'.($count <= 1 ? '' : 's').'.</b><br />'. 2348: '<b>Total number of students = '.$ENV{'form.total'}.'</b><br />'; 2349: return $title.$msg.$result; 2350: } 2351: 2352: sub split_part_type { 2353: my ($partstr) = @_; 2354: my ($temp,@allparts)=split(/_/,$partstr); 2355: my $type=pop(@allparts); 2356: my $part=join('.',@allparts); 2357: return ($part,$type); 2358: } 2359: 2360: #------------- end of section for handling grading by section/class --------- 2361: # 2362: #---------------------------------------------------------------------------- 2363: 2364: 2365: #---------------------------------------------------------------------------- 2366: # 2367: #-------------------------- Next few routines handles grading by csv upload 2368: # 2369: #--- Javascript to handle csv upload 2370: sub csvupload_javascript_reverse_associate { 2371: return(<<ENDPICK); 2372: function verify(vf) { 2373: var foundsomething=0; 2374: var founduname=0; 2375: var founddomain=0; 2376: for (i=0;i<=vf.nfields.value;i++) { 2377: tw=eval('vf.f'+i+'.selectedIndex'); 2378: if (i==0 && tw!=0) { founduname=1; } 2379: if (i==1 && tw!=0) { founddomain=1; } 2380: if (i!=0 && i!=1 && tw!=0) { foundsomething=1; } 2381: } 2382: if (founduname==0 || founddomain==0) { 2383: alert('You need to specify at both the username and domain'); 2384: return; 2385: } 2386: if (foundsomething==0) { 2387: alert('You need to specify at least one grading field'); 2388: return; 2389: } 2390: vf.submit(); 2391: } 2392: function flip(vf,tf) { 2393: var nw=eval('vf.f'+tf+'.selectedIndex'); 2394: var i; 2395: for (i=0;i<=vf.nfields.value;i++) { 2396: //can not pick the same destination field for both name and domain 2397: if (((i ==0)||(i ==1)) && 2398: ((tf==0)||(tf==1)) && 2399: (i!=tf) && 2400: (eval('vf.f'+i+'.selectedIndex')==nw)) { 2401: eval('vf.f'+i+'.selectedIndex=0;') 2402: } 2403: } 2404: } 2405: ENDPICK 2406: } 2407: 2408: sub csvupload_javascript_forward_associate { 2409: return(<<ENDPICK); 2410: function verify(vf) { 2411: var foundsomething=0; 2412: var founduname=0; 2413: var founddomain=0; 2414: for (i=0;i<=vf.nfields.value;i++) { 2415: tw=eval('vf.f'+i+'.selectedIndex'); 2416: if (tw==1) { founduname=1; } 2417: if (tw==2) { founddomain=1; } 2418: if (tw>2) { foundsomething=1; } 2419: } 2420: if (founduname==0 || founddomain==0) { 2421: alert('You need to specify at both the username and domain'); 2422: return; 2423: } 2424: if (foundsomething==0) { 2425: alert('You need to specify at least one grading field'); 2426: return; 2427: } 2428: vf.submit(); 2429: } 2430: function flip(vf,tf) { 2431: var nw=eval('vf.f'+tf+'.selectedIndex'); 2432: var i; 2433: //can not pick the same destination field twice 2434: for (i=0;i<=vf.nfields.value;i++) { 2435: if ((i!=tf) && (eval('vf.f'+i+'.selectedIndex')==nw)) { 2436: eval('vf.f'+i+'.selectedIndex=0;') 2437: } 2438: } 2439: } 2440: ENDPICK 2441: } 2442: 2443: sub csvuploadmap_header { 2444: my ($request,$symb,$url,$datatoken,$distotal)= @_; 2445: my $javascript; 2446: if ($ENV{'form.upfile_associate'} eq 'reverse') { 2447: $javascript=&csvupload_javascript_reverse_associate(); 2448: } else { 2449: $javascript=&csvupload_javascript_forward_associate(); 2450: } 2451: 2452: my ($result) = &showResourceInfo($url,$ENV{'form.probTitle'}); 2453: 2454: $request->print(<<ENDPICK); 2455: <form method="post" enctype="multipart/form-data" action="/adm/grades" name="gradesupload"> 2456: <h3><font color="#339933">Uploading Class Grades</font></h3> 2457: $result 2458: <hr> 2459: <h3>Identify fields</h3> 2460: Total number of records found in file: $distotal <hr /> 2461: Enter as many fields as you can. The system will inform you and bring you back 2462: to this page if the data selected is insufficient to run your class.<hr /> 2463: <input type="button" value="Reverse Association" onClick="javascript:this.form.associate.value='Reverse Association';submit(this.form);" /> 2464: <input type="hidden" name="associate" value="" /> 2465: <input type="hidden" name="phase" value="three" /> 2466: <input type="hidden" name="datatoken" value="$datatoken" /> 2467: <input type="hidden" name="fileupload" value="$ENV{'form.fileupload'}" /> 2468: <input type="hidden" name="upfiletype" value="$ENV{'form.upfiletype'}" /> 2469: <input type="hidden" name="upfile_associate" 2470: value="$ENV{'form.upfile_associate'}" /> 2471: <input type="hidden" name="symb" value="$symb" /> 2472: <input type="hidden" name="url" value="$url" /> 2473: <input type="hidden" name="saveState" value="$ENV{'form.saveState'}" /> 2474: <input type="hidden" name="probTitle" value="$ENV{'form.probTitle'}" /> 2475: <input type="hidden" name="command" value="csvuploadassign" /> 2476: <hr /> 2477: <script type="text/javascript" language="Javascript"> 2478: $javascript 2479: </script> 2480: ENDPICK 2481: $request->print(&show_grading_menu_form($symb,$url)); 2482: return ''; 2483: 2484: } 2485: 2486: sub csvupload_fields { 2487: my ($url) = @_; 2488: my (@parts) = &getpartlist($url); 2489: my @fields=(['username','Student Username'],['domain','Student Domain']); 2490: foreach my $part (sort(@parts)) { 2491: my @datum; 2492: my $display=&Apache::lonnet::metadata($url,$part.'.display'); 2493: my $name=$part; 2494: if (!$display) { $display = $name; } 2495: @datum=($name,$display); 2496: push(@fields,\@datum); 2497: } 2498: return (@fields); 2499: } 2500: 2501: sub csvuploadmap_footer { 2502: my ($request,$i,$keyfields) =@_; 2503: $request->print(<<ENDPICK); 2504: </table> 2505: <input type="hidden" name="nfields" value="$i" /> 2506: <input type="hidden" name="keyfields" value="$keyfields" /> 2507: <input type="button" onClick="javascript:verify(this.form)" value="Assign Grades" /><br /> 2508: </form> 2509: ENDPICK 2510: } 2511: 2512: sub upcsvScores_form { 2513: my ($request) = shift; 2514: my ($symb,$url)=&get_symb_and_url($request); 2515: if (!$symb) {return '';} 2516: my $result =<<CSVFORMJS; 2517: <script type="text/javascript" language="javascript"> 2518: function checkUpload(formname) { 2519: if (formname.upfile.value == "") { 2520: alert("Please use the browse button to select a file from your local directory."); 2521: return false; 2522: } 2523: formname.submit(); 2524: } 2525: </script> 2526: CSVFORMJS 2527: $ENV{'form.probTitle'} = &Apache::lonnet::gettitle($symb); 2528: my ($table) = &showResourceInfo($url,$ENV{'form.probTitle'}); 2529: $result.=$table; 2530: $result.='<br /><table width=100% border=0><tr><td bgcolor="#777777">'."\n"; 2531: $result.='<table width=100% border=0><tr bgcolor="#e6ffff"><td>'."\n"; 2532: $result.=' <b>Specify a file containing the class scores for current resource'. 2533: '.</b></td></tr>'."\n"; 2534: $result.='<tr bgcolor=#ffffe6><td>'."\n"; 2535: my $upfile_select=&Apache::loncommon::upfile_select_html(); 2536: $result.=<<ENDUPFORM; 2537: <form method="post" enctype="multipart/form-data" action="/adm/grades" name="gradesupload"> 2538: <input type="hidden" name="symb" value="$symb" /> 2539: <input type="hidden" name="url" value="$url" /> 2540: <input type="hidden" name="command" value="csvuploadmap" /> 2541: <input type="hidden" name="probTitle" value="$ENV{'form.probTitle'}" /> 2542: <input type="hidden" name="saveState" value="$ENV{'form.saveState'}" /> 2543: $upfile_select 2544: <br /><input type="button" onClick="javascript:checkUpload(this.form);" value="Upload Scores" /> 2545: 2546: </form> 2547: ENDUPFORM 2548: $result.='</td></tr></table>'."\n"; 2549: $result.='</td></tr></table><br /><br />'."\n"; 2550: $result.=&show_grading_menu_form($symb,$url); 2551: return $result; 2552: } 2553: 2554: 2555: sub csvuploadmap { 2556: my ($request)= @_; 2557: my ($symb,$url)=&get_symb_and_url($request); 2558: if (!$symb) {return '';} 2559: 2560: my $datatoken; 2561: if (!$ENV{'form.datatoken'}) { 2562: $datatoken=&Apache::loncommon::upfile_store($request); 2563: } else { 2564: $datatoken=$ENV{'form.datatoken'}; 2565: &Apache::loncommon::load_tmp_file($request); 2566: } 2567: my @records=&Apache::loncommon::upfile_record_sep(); 2568: &csvuploadmap_header($request,$symb,$url,$datatoken,$#records+1); 2569: my ($i,$keyfields); 2570: if (@records) { 2571: my @fields=&csvupload_fields($url); 2572: 2573: if ($ENV{'form.upfile_associate'} eq 'reverse') { 2574: &Apache::loncommon::csv_print_samples($request,\@records); 2575: $i=&Apache::loncommon::csv_print_select_table($request,\@records, 2576: \@fields); 2577: foreach (@fields) { $keyfields.=$_->[0].','; } 2578: chop($keyfields); 2579: } else { 2580: unshift(@fields,['none','']); 2581: $i=&Apache::loncommon::csv_samples_select_table($request,\@records, 2582: \@fields); 2583: my %sone=&Apache::loncommon::record_sep($records[0]); 2584: $keyfields=join(',',sort(keys(%sone))); 2585: } 2586: } 2587: &csvuploadmap_footer($request,$i,$keyfields); 2588: $request->print(&show_grading_menu_form($symb,$url)); 2589: 2590: return ''; 2591: } 2592: 2593: sub csvuploadassign { 2594: my ($request)= @_; 2595: my ($symb,$url)=&get_symb_and_url($request); 2596: if (!$symb) {return '';} 2597: &Apache::loncommon::load_tmp_file($request); 2598: my @gradedata = &Apache::loncommon::upfile_record_sep(); 2599: my @keyfields = split(/\,/,$ENV{'form.keyfields'}); 2600: my %fields=(); 2601: for (my $i=0; $i<=$ENV{'form.nfields'}; $i++) { 2602: if ($ENV{'form.upfile_associate'} eq 'reverse') { 2603: if ($ENV{'form.f'.$i} ne 'none') { 2604: $fields{$keyfields[$i]}=$ENV{'form.f'.$i}; 2605: } 2606: } else { 2607: if ($ENV{'form.f'.$i} ne 'none') { 2608: $fields{$ENV{'form.f'.$i}}=$keyfields[$i]; 2609: } 2610: } 2611: } 2612: $request->print('<h3>Assigning Grades</h3>'); 2613: my $courseid=$ENV{'request.course.id'}; 2614: my ($classlist) = &getclasslist('all',0); 2615: my @notallowed; 2616: my @skipped; 2617: my $countdone=0; 2618: foreach my $grade (@gradedata) { 2619: my %entries=&Apache::loncommon::record_sep($grade); 2620: my $username=$entries{$fields{'username'}}; 2621: my $domain=$entries{$fields{'domain'}}; 2622: if (!exists($$classlist{"$username:$domain"})) { 2623: push(@skipped,"$username:$domain"); 2624: next; 2625: } 2626: my $usec=$classlist->{"$username:$domain"}[5]; 2627: if (!&canmodify($usec)) { 2628: push(@notallowed,"$username:$domain"); 2629: next; 2630: } 2631: my %grades; 2632: foreach my $dest (keys(%fields)) { 2633: if ($dest eq 'username' || $dest eq 'domain') { next; } 2634: if ($entries{$fields{$dest}} eq '') { next; } 2635: my $store_key=$dest; 2636: $store_key=~s/^stores/resource/; 2637: $store_key=~s/_/\./g; 2638: $grades{$store_key}=$entries{$fields{$dest}}; 2639: } 2640: $grades{"resource.regrader"}="$ENV{'user.name'}:$ENV{'user.domain'}"; 2641: &Apache::lonnet::cstore(\%grades,$symb,$ENV{'request.course.id'}, 2642: $domain,$username); 2643: $request->print('.'); 2644: $request->rflush(); 2645: $countdone++; 2646: } 2647: $request->print("<br />Stored $countdone students\n"); 2648: if (@skipped) { 2649: $request->print('<p<font size="+1"><b>Skipped Students</b></font></p>'); 2650: foreach my $student (@skipped) { $request->print("$student<br />\n"); } 2651: } 2652: if (@notallowed) { 2653: $request->print('<p><font size="+1" color="red"><b>Students Not Allowed to Modify</b></font></p>'); 2654: foreach my $student (@notallowed) { $request->print("$student<br />\n"); } 2655: } 2656: $request->print("<br />\n"); 2657: $request->print(&show_grading_menu_form($symb,$url)); 2658: return ''; 2659: } 2660: #------------- end of section for handling csv file upload --------- 2661: # 2662: #------------------------------------------------------------------- 2663: # 2664: #-------------- Next few routines handle grading by page/sequence 2665: # 2666: #--- Select a page/sequence and a student to grade 2667: sub pickStudentPage { 2668: my ($request) = shift; 2669: 2670: $request->print(<<LISTJAVASCRIPT); 2671: <script type="text/javascript" language="javascript"> 2672: 2673: function checkPickOne(formname) { 2674: if (radioSelection(formname.student) == null) { 2675: alert("Please select the student you wish to grade."); 2676: return; 2677: } 2678: var ptr = pullDownSelection(formname.selectpage); 2679: formname.page.value = eval("formname.page"+ptr+".value"); 2680: formname.title.value = eval("formname.title"+ptr+".value"); 2681: formname.submit(); 2682: } 2683: 2684: </script> 2685: LISTJAVASCRIPT 2686: &commonJSfunctions($request); 2687: my ($symb,$url) = &get_symb_and_url($request); 2688: my $cdom = $ENV{"course.$ENV{'request.course.id'}.domain"}; 2689: my $cnum = $ENV{"course.$ENV{'request.course.id'}.num"}; 2690: my $getsec = $ENV{'form.section'} eq '' ? 'all' : $ENV{'form.section'}; 2691: 2692: my $result='<h3><font color="#339933"> '. 2693: 'Manual Grading by Page or Sequence</font></h3>'; 2694: 2695: $result.='<form action="/adm/grades" method="post" name="displayPage">'."\n"; 2696: $result.=' <b>Problems from:</b> <select name="selectpage">'."\n"; 2697: my ($titles,$symbx) = &getSymbMap($request); 2698: my ($curpage,$type,$mapId) = ($symb =~ /(.*?\.(page|sequence))___(\d+)___/); 2699: my $ctr=0; 2700: foreach (@$titles) { 2701: my ($minder,$showtitle) = ($_ =~ /(\d+)\.(.*)/); 2702: $result.='<option value="'.$ctr.'" '. 2703: ($$symbx{$_} =~ /$curpage$/ ? 'selected="on"' : ''). 2704: '>'.$showtitle.'</option>'."\n"; 2705: $ctr++; 2706: } 2707: $result.= '</select>'."<br>\n"; 2708: $ctr=0; 2709: foreach (@$titles) { 2710: my ($minder,$showtitle) = ($_ =~ /(\d+)\.(.*)/); 2711: $result.='<input type="hidden" name="page'.$ctr.'" value="'.$$symbx{$_}.'" />'."\n"; 2712: $result.='<input type="hidden" name="title'.$ctr.'" value="'.$showtitle.'" />'."\n"; 2713: $ctr++; 2714: } 2715: $result.='<input type="hidden" name="page" />'."\n". 2716: '<input type="hidden" name="title" />'."\n"; 2717: 2718: $result.=' <b>View Problems Text: </b><input type="radio" name="vProb" value="no" checked /> no '."\n". 2719: '<input type="radio" name="vProb" value="yes" /> yes '."<br>\n"; 2720: 2721: $result.=' <b>Submission Details: </b>'. 2722: '<input type="radio" name="lastSub" value="none" /> none'."\n". 2723: '<input type="radio" name="lastSub" value="datesub" checked /> by dates and submissions'."\n". 2724: '<input type="radio" name="lastSub" value="all" /> all details'."\n"; 2725: 2726: $result.='<input type="hidden" name="section" value="'.$getsec.'" />'."\n". 2727: '<input type="hidden" name="Status" value="'.$ENV{'form.Status'}.'" />'."\n". 2728: '<input type="hidden" name="command" value="displayPage" />'."\n". 2729: '<input type="hidden" name="url" value="'.$url.'" />'."\n". 2730: '<input type="hidden" name="symb" value="'.$symb.'" />'."\n". 2731: '<input type="hidden" name="saveState" value="'.$ENV{'form.saveState'}.'" />'."<br />\n"; 2732: 2733: $result.=' <input type="button" '. 2734: 'onClick="javascript:checkPickOne(this.form);"value="Submit" /><br />'."\n"; 2735: 2736: $request->print($result); 2737: 2738: my $studentTable.=' <b>Select a student you wish to grade</b><br>'. 2739: '<table border="0"><tr><td bgcolor="#777777">'. 2740: '<table border="0"><tr bgcolor="#e6ffff">'. 2741: '<td><b> Fullname <font color="#999999">(username)</font></b></td>'. 2742: '<td><b> Fullname <font color="#999999">(username)</font></b></td>'. 2743: '<td><b> Fullname <font color="#999999">(username)</font></b></td>'. 2744: '<td><b> Fullname <font color="#999999">(username)</font></b></td></tr>'; 2745: 2746: my (undef,undef,$fullname) = &getclasslist($getsec,'1'); 2747: my $ptr = 1; 2748: foreach my $student (sort {lc($$fullname{$a}) cmp lc($$fullname{$b}) } keys %$fullname) { 2749: my ($uname,$udom) = split(/:/,$student); 2750: $studentTable.=($ptr%4 == 1 ? '<tr bgcolor="#ffffe6"><td>' : '</td><td>'); 2751: $studentTable.='<input type="radio" name="student" value="'.$student.'" /> '.$$fullname{$student}. 2752: '<font color="#999999"> ('.$uname.($udom eq $cdom ? '':':'.$udom).')</font>'."\n"; 2753: $studentTable.=($ptr%4 == 0 ? '</td></tr>' : ''); 2754: $ptr++; 2755: } 2756: $studentTable.='</td><td> </td><td> </td><td> ' if ($ptr%4 == 2); 2757: $studentTable.='</td><td> </td><td> ' if ($ptr%4 == 3); 2758: $studentTable.='</td><td> ' if ($ptr%4 == 0); 2759: $studentTable.='</td></tr></table></td></tr></table>'."\n"; 2760: $studentTable.='<br /> <input type="button" '. 2761: 'onClick="javascript:checkPickOne(this.form);"value="Submit" /></form>'."\n"; 2762: 2763: $studentTable.=&show_grading_menu_form($symb,$url); 2764: $request->print($studentTable); 2765: 2766: return ''; 2767: } 2768: 2769: sub getSymbMap { 2770: my ($request) = @_; 2771: my $navmap = Apache::lonnavmaps::navmap-> new($ENV{'request.course.fn'}.'.db', 2772: $ENV{'request.course.fn'}.'_parms.db'); 2773: $navmap->init(); 2774: 2775: my %symbx = (); 2776: my @titles = (); 2777: my $minder = 0; 2778: 2779: # Gather every sequence that has problems. 2780: my @sequences = $navmap->retrieveResources(undef, sub { shift->is_map(); }, 1); 2781: for my $sequence ($navmap->getById('0.0'), @sequences) { 2782: if ($navmap->hasResource($sequence, sub { shift->is_problem(); }, 0) ) { 2783: my $title = $minder.'.'.$sequence->compTitle(); 2784: push @titles, $title; # minder in case two titles are identical 2785: $symbx{$title} = $sequence->symb(); 2786: $minder++; 2787: } 2788: } 2789: 2790: $navmap->untieHashes(); 2791: return \@titles,\%symbx; 2792: } 2793: 2794: # 2795: #--- Displays a page/sequence w/wo problems, w/wo submissions 2796: sub displayPage { 2797: my ($request) = shift; 2798: 2799: my ($symb,$url) = &get_symb_and_url($request); 2800: my $cdom = $ENV{"course.$ENV{'request.course.id'}.domain"}; 2801: my $cnum = $ENV{"course.$ENV{'request.course.id'}.num"}; 2802: my $getsec = $ENV{'form.section'} eq '' ? 'all' : $ENV{'form.section'}; 2803: my $pageTitle = $ENV{'form.page'}; 2804: my ($classlist,undef,$fullname) = &getclasslist($getsec,'1'); 2805: my ($uname,$udom) = split(/:/,$ENV{'form.student'}); 2806: my $usec=$classlist->{$ENV{'form.student'}}[5]; 2807: if (!&canview($usec)) { 2808: $request->print('<font color="red">Unable to view requested student.('.$ENV{'form.student'}.')</font>'); 2809: $request->print(&show_grading_menu_form($symb,$url)); 2810: return; 2811: } 2812: my $result='<h3><font color="#339933"> '.$ENV{'form.title'}.'</font></h3>'; 2813: $result.='<h3> Student: '.$$fullname{$ENV{'form.student'}}. 2814: '<font color="#999999"> ('.$uname.($udom eq $cdom ? '':':'.$udom).')</font></h3>'."\n"; 2815: 2816: &sub_page_js($request); 2817: $request->print($result); 2818: 2819: my $navmap = Apache::lonnavmaps::navmap-> new($ENV{'request.course.fn'}.'.db', 2820: $ENV{'request.course.fn'}.'_parms.db',1, 1); 2821: my ($mapUrl, $id, $resUrl) = split(/___/, $ENV{'form.page'}); 2822: my $map = $navmap->getResourceByUrl($resUrl); # add to navmaps 2823: 2824: my $iterator = $navmap->getIterator($map->map_start(), 2825: $map->map_finish()); 2826: 2827: my $studentTable='<form action="/adm/grades" method="post" name="gradePage">'."\n". 2828: '<input type="hidden" name="command" value="gradeByPage" />'."\n". 2829: '<input type="hidden" name="student" value="'.$ENV{'form.student'}.'" />'."\n". 2830: '<input type="hidden" name="page" value="'.$pageTitle.'" />'."\n". 2831: '<input type="hidden" name="title" value="'.$ENV{'form.title'}.'" />'."\n". 2832: '<input type="hidden" name="url" value="'.$url.'" />'."\n". 2833: '<input type="hidden" name="symb" value="'.$symb.'" />'."\n". 2834: '<input type="hidden" name="saveState" value="'.$ENV{'form.saveState'}.'" />'."\n"; 2835: 2836: my $checkIcon = '<img src="'.$request->dir_config('lonIconsURL'). 2837: '/check.gif" height="16" border="0" />'; 2838: 2839: $studentTable.=' <b>Note:</b> Problems graded correct by the computer are marked with a '.$checkIcon. 2840: ' symbol.'."\n". 2841: '<table border="0"><tr><td bgcolor="#777777">'. 2842: '<table border="0"><tr bgcolor="#e6ffff">'. 2843: '<td align="center"><b> Prob. </b></td>'. 2844: '<td><b> '.($ENV{'form.vProb'} eq 'no' ? 'Title' : 'Problem Text').'/Grade</b></td></tr>'; 2845: 2846: my ($depth,$question) = (1,1); 2847: $iterator->next(); # skip the first BEGIN_MAP 2848: my $curRes = $iterator->next(); # for "current resource" 2849: while ($depth > 0) { 2850: if($curRes == $iterator->BEGIN_MAP) { $depth++; } 2851: if($curRes == $iterator->END_MAP) { $depth--; } 2852: 2853: # if (ref($curRes) && $curRes->is_problem() && !$curRes->randomout) { 2854: if (ref($curRes) && $curRes->is_problem()) { 2855: my $parts = $curRes->parts(); 2856: my $title = $curRes->compTitle(); 2857: my $symbx = $curRes->symb(); 2858: $studentTable.='<tr bgcolor="#ffffe6"><td align="center" valign="top" >'.$question. 2859: (scalar(@{$parts}) == 1 ? '' : '<br>('.scalar(@{$parts}).' parts)').'</td>'; 2860: $studentTable.='<td valign="top">'; 2861: if ($ENV{'form.vProb'} eq 'yes') { 2862: $studentTable.=&show_problem($request,$symbx,$uname,$udom,1); 2863: } else { 2864: my $companswer = &Apache::loncommon::get_student_answers($symbx,$uname,$udom,$ENV{'request.course.id'}); 2865: $companswer =~ s|<form(.*?)>||g; 2866: $companswer =~ s|</form>||g; 2867: # while ($companswer =~ /(<a href\=\"javascript:newWindow.*?Script Vars<\/a>)/s) { #<a href="javascript:newWindow</a> 2868: # $companswer =~ s/$1/ /ms; 2869: # $request->print('match='.$1."<br>\n"); 2870: # } 2871: # $companswer =~ s|<table border=\"1\">|<table border=\"0\">|g; 2872: $studentTable.=' <b>'.$title.'</b> <br> <b>Correct answer:</b><br>'.$companswer; 2873: } 2874: 2875: my %record = &Apache::lonnet::restore($symbx,$ENV{'request.course.id'},$udom,$uname); 2876: if ($ENV{'form.lastSub'} eq 'datesub') { 2877: if ($record{'version'} eq '') { 2878: $studentTable.='<br /> <font color="red">No recorded submission for this problem</font><br />'; 2879: } else { 2880: my %responseType = (); 2881: foreach my $partid (@{$parts}) { 2882: $responseType{$partid} = $curRes->responseType($partid); 2883: } 2884: $studentTable.= &displaySubByDates(\$symbx,\%record,$parts,\%responseType,$checkIcon); 2885: } 2886: } elsif ($ENV{'form.lastSub'} eq 'all') { 2887: my $last = ($ENV{'form.lastSub'} eq 'last' ? 'last' : ''); 2888: $studentTable.=&Apache::loncommon::get_previous_attempt($symbx,$uname,$udom, 2889: $ENV{'request.course.id'}, 2890: '','.submission'); 2891: 2892: } 2893: if (&canmodify($usec)) { 2894: foreach my $partid (@{$parts}) { 2895: $studentTable.=&gradeBox($request,$symbx,$uname,$udom,$question,$partid,\%record); 2896: $studentTable.='<input type="hidden" name="q_'.$question.'" value="'.$partid.'" />'."\n"; 2897: $question++; 2898: } 2899: } 2900: $studentTable.='</td></tr>'; 2901: 2902: } 2903: $curRes = $iterator->next(); 2904: } 2905: 2906: $navmap->untieHashes(); 2907: 2908: $studentTable.='</td></tr></table></td></tr></table>'."\n". 2909: '  <input type="button" value="Save" '. 2910: 'onClick="javascript:checkSubmitPage(this.form,'.$question.');" TARGET=_self />'. 2911: '</form>'."\n"; 2912: $studentTable.=&show_grading_menu_form($symb,$url); 2913: $request->print($studentTable); 2914: 2915: return ''; 2916: } 2917: 2918: sub displaySubByDates { 2919: my ($symbx,$record,$parts,$responseType,$checkIcon) = @_; 2920: my $studentTable='<table border="0" width="100%"><tr><td bgcolor="#777777">'. 2921: '<table border="0" width="100%"><tr bgcolor="#e6ffff">'. 2922: '<td><b>Date/Time</b></td>'. 2923: '<td><b>Submission</b></td>'. 2924: '<td><b>Status </b></td></tr>'; 2925: my ($version); 2926: my %mark; 2927: $mark{'correct_by_student'} = $checkIcon; 2928: return '<br /> <font color="red">Nothing submitted - no attempts</font><br />' 2929: if (!exists($$record{'1:timestamp'})); 2930: for ($version=1;$version<=$$record{'version'};$version++) { 2931: my $timestamp = scalar(localtime($$record{$version.':timestamp'})); 2932: $studentTable.='<tr bgcolor="#ffffff" valign="top"><td>'.$timestamp.'</td>'; 2933: my @versionKeys = split(/\:/,$$record{$version.':keys'}); 2934: my @displaySub = (); 2935: foreach my $partid (@{$parts}) { 2936: my @matchKey = grep /^resource\.$partid\..*?\.submission$/,@versionKeys; 2937: # next if ($$record{"$version:resource.$partid.solved"} eq ''); 2938: $displaySub[0].=(exists $$record{$version.':'.$matchKey[0]}) ? 2939: '<b>Part '.$partid.' '. 2940: ($$record{"$version:resource.$partid.tries"} eq '' ? 'Trial not counted' : 2941: 'Trial '.$$record{"$version:resource.$partid.tries"}).'</b>  '. 2942: &cleanRecord($$record{$version.':'.$matchKey[0]},$$responseType{$partid},$$symbx).'<br />' : ''; 2943: $displaySub[1].=(exists $$record{"$version:resource.$partid.award"}) ? 2944: '<b>Part '.$partid.'</b>  '. 2945: lc($$record{"$version:resource.$partid.award"}).' '. 2946: $mark{$$record{"$version:resource.$partid.solved"}}.'<br />' : ''; 2947: $displaySub[2].=(exists $$record{"$version:resource.$partid.regrader"}) ? 2948: $$record{"$version:resource.$partid.regrader"}.' (<b>Part:</b> '.$partid.')' : ''; 2949: } 2950: $displaySub[2].=(exists $$record{"$version:resource.regrader"}) ? 2951: $$record{"$version:resource.regrader"} : ''; 2952: $studentTable.='<td>'.$displaySub[0].' </td><td>'.$displaySub[1]. 2953: ($displaySub[2] eq '' ? '' : 'Manually graded by '.$displaySub[2]).' </td></tr>'; 2954: } 2955: $studentTable.='</table></td></tr></table>'; 2956: return $studentTable; 2957: } 2958: 2959: sub updateGradeByPage { 2960: my ($request) = shift; 2961: 2962: my $cdom = $ENV{"course.$ENV{'request.course.id'}.domain"}; 2963: my $cnum = $ENV{"course.$ENV{'request.course.id'}.num"}; 2964: my $getsec = $ENV{'form.section'} eq '' ? 'all' : $ENV{'form.section'}; 2965: my $pageTitle = $ENV{'form.page'}; 2966: my ($classlist,undef,$fullname) = &getclasslist($getsec,'1'); 2967: my ($uname,$udom) = split(/:/,$ENV{'form.student'}); 2968: my $usec=$classlist->{$ENV{'form.student'}}[5]; 2969: if (!&canmodify($usec)) { 2970: $request->print('<font color="red">Unable to modify requested student.('.$ENV{'form.student'}.'</font>'); 2971: $request->print(&show_grading_menu_form($ENV{'form.symb'},$ENV{'form.url'})); 2972: return; 2973: } 2974: my $result='<h3><font color="#339933"> '.$ENV{'form.title'}.'</font></h3>'; 2975: $result.='<h3> Student: '.$$fullname{$ENV{'form.student'}}. 2976: '<font color="#999999"> ('.$uname.($udom eq $cdom ? '':':'.$udom).')</font></h3>'."\n"; 2977: 2978: $request->print($result); 2979: 2980: my $navmap = Apache::lonnavmaps::navmap-> new($ENV{'request.course.fn'}.'.db', 2981: $ENV{'request.course.fn'}.'_parms.db',1, 1); 2982: my ($mapUrl, $id, $resUrl) = split(/___/, $ENV{'form.page'}); 2983: my $map = $navmap->getResourceByUrl($resUrl); # add to navmaps 2984: 2985: my $iterator = $navmap->getIterator($map->map_start(), 2986: $map->map_finish()); 2987: 2988: my $studentTable='<table border="0"><tr><td bgcolor="#777777">'. 2989: '<table border="0"><tr bgcolor="#e6ffff">'. 2990: '<td align="center"><b> No </b></td>'. 2991: '<td><b> Title </b></td>'. 2992: '<td><b> Previous Score </b></td>'. 2993: '<td><b> New Score </b></td></tr>'; 2994: 2995: $iterator->next(); # skip the first BEGIN_MAP 2996: my $curRes = $iterator->next(); # for "current resource" 2997: my ($depth,$question,$changeflag)= (1,1,0); 2998: while ($depth > 0) { 2999: if($curRes == $iterator->BEGIN_MAP) { $depth++; } 3000: if($curRes == $iterator->END_MAP) { $depth--; } 3001: 3002: if (ref($curRes) && $curRes->is_problem() && !$curRes->randomout) { 3003: my $parts = $curRes->parts(); 3004: my $title = $curRes->compTitle(); 3005: my $symbx = $curRes->symb(); 3006: $studentTable.='<tr bgcolor="#ffffe6"><td align="center" valign="top" >'.$question. 3007: (scalar(@{$parts}) == 1 ? '' : '<br>('.scalar(@{$parts}).' parts)').'</td>'; 3008: $studentTable.='<td valign="top"> <b>'.$title.'</b> </td>'; 3009: 3010: my %newrecord=(); 3011: my @displayPts=(); 3012: foreach my $partid (@{$parts}) { 3013: my $newpts = $ENV{'form.GD_BOX'.$question.'_'.$partid}; 3014: my $oldpts = $ENV{'form.oldpts'.$question.'_'.$partid}; 3015: 3016: my $wgt = $ENV{'form.WGT'.$question.'_'.$partid} != 0 ? 3017: $ENV{'form.WGT'.$question.'_'.$partid} : 1; 3018: my $partial = $newpts/$wgt; 3019: my $score; 3020: if ($partial > 0) { 3021: $score = 'correct_by_override'; 3022: } elsif ($partial == 0) { 3023: $score = 'incorrect_by_override'; 3024: } 3025: if ($ENV{'form.GD_SEL'.$question.'_'.$partid} eq 'excused') { 3026: $partial = ''; 3027: $score = 'excused'; 3028: } 3029: my $oldstatus = $ENV{'form.solved'.$question.'_'.$partid}; 3030: $displayPts[0].=' <b>Part</b> '.$partid.' = '. 3031: (($oldstatus eq 'excused') ? 'excused' : $oldpts). 3032: ' <br>'; 3033: $displayPts[1].=' <b>Part</b> '.$partid.' = '. 3034: ($oldstatus eq 'correct_by_student' ? $oldpts : 3035: (($score eq 'excused') ? 'excused' : $newpts)). 3036: ' <br>'; 3037: 3038: $question++; 3039: if (($oldstatus eq 'correct_by_student') || 3040: ($newpts eq $oldpts && $score eq $oldstatus)) 3041: { 3042: next; 3043: } 3044: $newrecord{'resource.'.$partid.'.awarded'} = $partial if $partial ne ''; 3045: $newrecord{'resource.'.$partid.'.solved'} = $score; 3046: $newrecord{'resource.'.$partid.'.regrader'}="$ENV{'user.name'}:$ENV{'user.domain'}"; 3047: 3048: $changeflag++; 3049: } 3050: if (scalar(keys(%newrecord)) > 0) { 3051: &Apache::lonnet::cstore(\%newrecord,$symbx,$ENV{'request.course.id'}, 3052: $udom,$uname); 3053: } 3054: $studentTable.='<td valign="top">'.$displayPts[0].'</td>'. 3055: '<td valign="top">'.$displayPts[1].'</td>'. 3056: '</tr>'; 3057: 3058: } 3059: $curRes = $iterator->next(); 3060: } 3061: 3062: $navmap->untieHashes(); 3063: 3064: $studentTable.='</td></tr></table></td></tr></table>'; 3065: $studentTable.=&show_grading_menu_form($ENV{'form.symb'},$ENV{'form.url'}); 3066: my $grademsg=($changeflag == 0 ? 'No score was changed or updated.' : 3067: 'The scores were changed for '. 3068: $changeflag.' problem'.($changeflag == 1 ? '.' : 's.')); 3069: $request->print($grademsg.$studentTable); 3070: 3071: return ''; 3072: } 3073: 3074: #-------- end of section for handling grading by page/sequence --------- 3075: # 3076: #------------------------------------------------------------------- 3077: 3078: #--------------------Scantron Grading----------------------------------- 3079: # 3080: #------ start of section for handling grading by page/sequence --------- 3081: 3082: sub defaultFormData { 3083: my ($symb,$url)=@_; 3084: return ' 3085: <input type="hidden" name="symb" value="'.$symb.'" />'."\n". 3086: '<input type="hidden" name="url" value="'.$url.'" />'."\n". 3087: '<input type="hidden" name="saveState" value="'.$ENV{'form.saveState'}.'" />'."\n". 3088: '<input type="hidden" name="probTitle" value="'.$ENV{'form.probTitle'}.'" />'."\n"; 3089: } 3090: 3091: sub getSequenceDropDown { 3092: my ($request,$symb)=@_; 3093: my $result='<select name="selectpage">'."\n"; 3094: my ($titles,$symbx) = &getSymbMap($request); 3095: my ($curpage,$type,$mapId) = ($symb =~ /(.*?\.(page|sequence))___(\d+)___/); 3096: my $ctr=0; 3097: foreach (@$titles) { 3098: my ($minder,$showtitle) = ($_ =~ /(\d+)\.(.*)/); 3099: $result.='<option value="'.$$symbx{$_}.'" '. 3100: ($$symbx{$_} =~ /$curpage$/ ? 'selected="on"' : ''). 3101: '>'.$showtitle.'</option>'."\n"; 3102: $ctr++; 3103: } 3104: $result.= '</select>'; 3105: return $result; 3106: } 3107: 3108: sub scantron_uploads { 3109: if (!-e $Apache::lonnet::perlvar{'lonScansDir'}) { return ''}; 3110: my $result= '<select name="scantron_selectfile">'; 3111: opendir(DIR,$Apache::lonnet::perlvar{'lonScansDir'}); 3112: my @files=sort(readdir(DIR)); 3113: foreach my $filename (@files) { 3114: if ($filename eq '.' or $filename eq '..') { next; } 3115: $result.="<option>$filename</option>\n"; 3116: } 3117: closedir(DIR); 3118: $result.="</select>"; 3119: return $result; 3120: } 3121: 3122: sub scantron_scantab { 3123: my $fh=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}.'/scantronformat.tab'); 3124: my $result='<select name="scantron_format">'."\n"; 3125: foreach my $line (<$fh>) { 3126: my ($name,$descrip)=split(/:/,$line); 3127: if ($name =~ /^\#/) { next; } 3128: $result.='<option value="'.$name.'">'.$descrip.'</option>'."\n"; 3129: } 3130: $result.='</select>'."\n"; 3131: 3132: return $result; 3133: } 3134: 3135: sub scantron_selectphase { 3136: my ($r) = @_; 3137: my ($symb,$url)=&get_symb_and_url($r); 3138: if (!$symb) {return '';} 3139: my $sequence_selector=&getSequenceDropDown($r,$symb); 3140: my $default_form_data=&defaultFormData($symb,$url); 3141: my $grading_menu_button=&show_grading_menu_form($symb,$url); 3142: my $file_selector=&scantron_uploads(); 3143: my $format_selector=&scantron_scantab(); 3144: my $result; 3145: $result.= <<SCANTRONFORM; 3146: <form method="post" enctype="multipart/form-data" action="/adm/grades" name="scantro_process"> 3147: <input type="hidden" name="command" value="scantron_process" /> 3148: $default_form_data 3149: <table width="100%" border="0"> 3150: <tr> 3151: <td bgcolor="#777777"> 3152: <table width="100%" border="0"> 3153: <tr bgcolor="#e6ffff"> 3154: <td> 3155:  <b>Specify file location and which Folder/Sequence to grade</b> 3156: </td> 3157: </tr> 3158: <tr bgcolor="#ffffe6"> 3159: <td> 3160: Sequence to grade: $sequence_selector 3161: </td> 3162: </tr> 3163: <tr bgcolor="#ffffe6"> 3164: <td> 3165: Filename of scoring office file: $file_selector 3166: </td> 3167: </tr> 3168: <tr bgcolor="#ffffe6"> 3169: <td> 3170: Format of data file: $format_selector 3171: </td> 3172: </tr> 3173: </table> 3174: </td> 3175: </tr> 3176: </table> 3177: <input type="submit" value="Submit" /> 3178: </form> 3179: $grading_menu_button 3180: SCANTRONFORM 3181: 3182: return $result; 3183: } 3184: 3185: sub get_scantron_config { 3186: my ($which) = @_; 3187: my $fh=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}.'/scantronformat.tab'); 3188: my %config; 3189: foreach my $line (<$fh>) { 3190: my ($name,$descrip)=split(/:/,$line); 3191: if ($name ne $which ) { next; } 3192: chomp($line); 3193: my @config=split(/:/,$line); 3194: $config{'name'}=$config[0]; 3195: $config{'description'}=$config[1]; 3196: $config{'CODElocation'}=$config[2]; 3197: $config{'CODEstart'}=$config[3]; 3198: $config{'CODElength'}=$config[4]; 3199: $config{'IDstart'}=$config[5]; 3200: $config{'IDlength'}=$config[6]; 3201: $config{'Qstart'}=$config[7]; 3202: $config{'Qlength'}=$config[8]; 3203: $config{'Qoff'}=$config[9]; 3204: $config{'Qon'}=$config[10]; 3205: last; 3206: } 3207: return %config; 3208: } 3209: 3210: sub username_to_idmap { 3211: my ($classlist)= @_; 3212: my %idmap; 3213: foreach my $student (keys(%$classlist)) { 3214: $idmap{$classlist->{$student}->[&Apache::loncoursedata::CL_ID]}= 3215: $student; 3216: } 3217: return %idmap; 3218: } 3219: 3220: sub scantron_parse_scanline { 3221: my ($line,$scantron_config)=@_; 3222: my %record; 3223: my $questions=substr($line,$$scantron_config{'Qstart'}-1); 3224: my $data=substr($line,0,$$scantron_config{'Qstart'}-1); 3225: if ($$scantron_config{'CODElocation'} ne 0) { 3226: if ($$scantron_config{'CODElocation'} < 0) { 3227: $record{'scantron.CODE'}=substr($data,$$scantron_config{'CODEstart'}-1, 3228: $$scantron_config{'CODElength'}); 3229: } else { 3230: #FIXME interpret first N questions 3231: } 3232: } 3233: $record{'scantron.ID'}=substr($data,$$scantron_config{'IDstart'}-1, 3234: $$scantron_config{'IDlength'}); 3235: my @alphabet=('A'..'Z'); 3236: my $questnum=0; 3237: while ($questions) { 3238: $questnum++; 3239: my $currentquest=substr($questions,0,$$scantron_config{'Qlength'}); 3240: substr($questions,0,$$scantron_config{'Qlength'})=''; 3241: if (length($currentquest) < $$scantron_config{'Qlength'}) { next; } 3242: my (@array)=split(/$$scantron_config{'Qon'}/,$currentquest); 3243: if (scalar(@array) gt 2) { 3244: #FIXME do something intelligent with double bubbles 3245: Apache->request->print("<br ><b>Wha!!!</b> <pre>".scalar(@array). 3246: '-'.$currentquest.'-'.$questnum.'</pre><br />'); 3247: } 3248: if (length($array[0]) eq $$scantron_config{'Qlength'}) { 3249: $record{"scantron.$questnum.answer"}=''; 3250: } else { 3251: $record{"scantron.$questnum.answer"}=$alphabet[length($array[0])]; 3252: } 3253: } 3254: $record{'scantron.maxquest'}=$questnum; 3255: return \%record; 3256: } 3257: 3258: sub scantron_add_delay { 3259: } 3260: 3261: sub scantron_find_student { 3262: my ($scantron_record,$idmap)=@_; 3263: my $scanID=$$scantron_record{'scantron.ID'}; 3264: foreach my $id (keys(%$idmap)) { 3265: Apache->request->print('<pre>checking studnet -'.$id.'- againt -'.$scanID.'- </pre>'); 3266: if (lc($id) eq lc($scanID)) { Apache->request->print('success');return $$idmap{$id}; } 3267: } 3268: return undef; 3269: } 3270: 3271: sub scantron_filter { 3272: my ($curres)=@_; 3273: if (ref($curres) && $curres->is_problem() && !$curres->randomout) { 3274: return 1; 3275: } 3276: return 0; 3277: } 3278: 3279: sub scantron_process_students { 3280: my ($r) = @_; 3281: my (undef,undef,$sequence)=split(/___/,$ENV{'form.selectpage'}); 3282: my ($symb,$url)=&get_symb_and_url($r); 3283: if (!$symb) {return '';} 3284: my $default_form_data=&defaultFormData($symb,$url); 3285: 3286: my %scantron_config=&get_scantron_config($ENV{'form.scantron_format'}); 3287: my $scanlines=Apache::File->new($Apache::lonnet::perlvar{'lonScansDir'}."/$ENV{'form.scantron_selectfile'}"); 3288: my @scanlines=<$scanlines>; 3289: my $classlist=&Apache::loncoursedata::get_classlist(); 3290: my %idmap=&username_to_idmap($classlist); 3291: my $navmap=Apache::lonnavmaps::navmap->new($ENV{'request.course.fn'}.'.db',$ENV{'request.course.fn'}.'_parms.db',1, 1); 3292: my $map=$navmap->getResourceByUrl($sequence); 3293: my @resources=$navmap->retrieveResources($map,\&scantron_filter,1,0); 3294: $r->print("geto ".scalar(@resources)."<br />"); 3295: my $result= <<SCANTRONFORM; 3296: <form method="post" enctype="multipart/form-data" action="/adm/grades" name="scantronupload"> 3297: <input type="hidden" name="command" value="scantron_configphase" /> 3298: $default_form_data 3299: SCANTRONFORM 3300: $r->print($result); 3301: 3302: my @delayqueue; 3303: my $totalcorrect; 3304: my $totalincorrect; 3305: 3306: my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r, 3307: 'Scantron Status','Scantron Progress',scalar(@scanlines)); 3308: foreach my $line (@scanlines) { 3309: my $studentcorrect; 3310: my $studentincorrect; 3311: 3312: chomp($line); 3313: my $scan_record=&scantron_parse_scanline($line,\%scantron_config); 3314: my ($uname,$udom); 3315: if ($uname=&scantron_find_student($scan_record,\%idmap)) { 3316: &scantron_add_delay(\@delayqueue,$line, 3317: 'Unable to find a student that matches'); 3318: } 3319: $r->print('<pre>doing studnet'.$uname.'</pre>'); 3320: ($uname,$udom)=split(/:/,$uname); 3321: &Apache::lonnet::delenv('form.counter'); 3322: &Apache::lonnet::appenv(%$scan_record); 3323: # &Apache::lonhomework::showhash(%ENV); 3324: $Apache::lonxml::debug=1; 3325: &Apache::lonxml::debug("line is $line"); 3326: 3327: my $i=0; 3328: foreach my $resource (@resources) { 3329: $i++; 3330: my $result=&Apache::lonnet::ssi($resource->src(), 3331: ('submitted' =>'scantron', 3332: 'grade_target' =>'grade', 3333: 'grade_username'=>$uname, 3334: 'grade_domain' =>$udom, 3335: 'grade_courseid'=>$ENV{'request.course.id'}, 3336: 'grade_symb' =>$resource->symb())); 3337: my %score=&Apache::lonnet::restore($resource->symb(), 3338: $ENV{'request.course.id'}, 3339: $udom,$uname); 3340: foreach my $part ($resource->{PARTS}) { 3341: if ($score{'resource.'.$part.'.solved'} =~ /^correct/) { 3342: $studentcorrect++; 3343: $totalcorrect++; 3344: } else { 3345: $studentincorrect++; 3346: $totalincorrect++; 3347: } 3348: } 3349: $r->print('<pre>'. 3350: $resource->symb().'-'. 3351: $resource->src().'-'.'</pre>result is'.$result); 3352: &Apache::lonhomework::showhash(%score); 3353: # if ($i eq 3) {last;} 3354: } 3355: &Apache::lonnet::delenv('form.counter'); 3356: &Apache::lonnet::delenv('scantron\.'); 3357: &Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state, 3358: 'last student Who got a '.$studentcorrect.' correct and '. 3359: $studentincorrect.' incorrect. The class has gotten '. 3360: $totalcorrect.' correct and '.$totalincorrect.' incorrect'); 3361: last; 3362: #FIXME 3363: #get iterator for $sequence 3364: #foreach question 'submit' the students answer to the server 3365: # through grade target { 3366: # generate data to pass back that includes grade recevied 3367: #} 3368: } 3369: $Apache::lonxml::debug=0; 3370: foreach my $delay (@delayqueue) { 3371: #FIXME 3372: #print out each delayed student with interface to select how 3373: # to repair student provided info 3374: #Expected errors include 3375: # 1 bad/no stuid/username 3376: # 2 invalid bubblings 3377: 3378: } 3379: #FIXME 3380: # if delay queue exists 2 submits one to process delayed students one 3381: # to ignore delayed students, possibly saving the delay queue for later 3382: 3383: $navmap->untieHashes(); 3384: } 3385: #-------- end of section for handling grading scantron forms ------- 3386: # 3387: #------------------------------------------------------------------- 3388: 3389: 3390: #-------------------------- Menu interface ------------------------- 3391: # 3392: #--- Show a Grading Menu button - Calls the next routine --- 3393: sub show_grading_menu_form { 3394: my ($symb,$url)=@_; 3395: my $result.='<form action="/adm/grades" method="post">'."\n". 3396: '<input type="hidden" name="symb" value="'.$symb.'" />'."\n". 3397: '<input type="hidden" name="url" value="'.$url.'" />'."\n". 3398: '<input type="hidden" name="saveState" value="'.$ENV{'form.saveState'}.'" />'."\n". 3399: '<input type="hidden" name="command" value="gradingmenu" />'."\n". 3400: '<input type="submit" name="submit" value="Grading Menu" />'."\n". 3401: '</form>'."\n"; 3402: return $result; 3403: } 3404: 3405: # -- Retrieve choices for grading form 3406: sub savedState { 3407: my %savedState = (); 3408: if ($ENV{'form.saveState'}) { 3409: foreach (split(/:/,$ENV{'form.saveState'})) { 3410: my ($key,$value) = split(/=/,$_,2); 3411: $savedState{$key} = $value; 3412: } 3413: } 3414: return \%savedState; 3415: } 3416: 3417: #--- Displays the main menu page ------- 3418: sub gradingmenu { 3419: my ($request) = @_; 3420: my ($symb,$url)=&get_symb_and_url($request); 3421: if (!$symb) {return '';} 3422: my $probTitle = &Apache::lonnet::gettitle($symb); 3423: 3424: $request->print(<<GRADINGMENUJS); 3425: <script type="text/javascript" language="javascript"> 3426: function checkChoice(formname,val,cmdx) { 3427: if (val <= 2) { 3428: var cmd = radioSelection(formname.radioChoice); 3429: var cmdsave = cmd; 3430: } else { 3431: cmd = cmdx; 3432: cmdsave = 'submission'; 3433: } 3434: formname.command.value = cmd; 3435: formname.saveState.value = "saveCmd="+cmdsave+":saveSec="+pullDownSelection(formname.section)+ 3436: ":saveSub="+radioSelection(formname.submitonly)+":saveStatus="+pullDownSelection(formname.Status); 3437: if (val < 5) formname.submit(); 3438: if (val == 5) { 3439: if (!checkReceiptNo(formname,'notOK')) { return false;} 3440: formname.submit(); 3441: } 3442: } 3443: 3444: function checkReceiptNo(formname,nospace) { 3445: var receiptNo = formname.receipt.value; 3446: var checkOpt = false; 3447: if (nospace == "OK" && isNaN(receiptNo)) {checkOpt = true;} 3448: if (nospace == "notOK" && (isNaN(receiptNo) || receiptNo == "")) {checkOpt = true;} 3449: if (checkOpt) { 3450: alert("Please enter a receipt number given by a student in the receipt box."); 3451: formname.receipt.value = ""; 3452: formname.receipt.focus(); 3453: return false; 3454: } 3455: return true; 3456: } 3457: </script> 3458: GRADINGMENUJS 3459: &commonJSfunctions($request); 3460: my $result='<h3> <font color="#339933">Manual Grading/View Submission</font></h3>'; 3461: my ($table,undef,$hdgrade) = &showResourceInfo($url,$probTitle); 3462: $result.=$table; 3463: my (undef,$sections) = &getclasslist('all','0'); 3464: my $savedState = &savedState(); 3465: my $saveCmd = ($$savedState{'saveCmd'} eq '' ? 'submission' : $$savedState{'saveCmd'}); 3466: my $saveSec = ($$savedState{'saveSec'} eq '' ? 'all' : $$savedState{'saveSec'}); 3467: my $saveSub = ($$savedState{'saveSub'} eq '' ? 'all' : $$savedState{'saveSub'}); 3468: my $saveStatus = ($$savedState{'saveStatus'} eq '' ? 'Active' : $$savedState{'saveStatus'}); 3469: 3470: $result.='<form action="/adm/grades" method="post" name="gradingMenu">'."\n". 3471: '<input type="hidden" name="symb" value="'.$symb.'" />'."\n". 3472: '<input type="hidden" name="url" value="'.$url.'" />'."\n". 3473: '<input type="hidden" name="handgrade" value="'.$hdgrade.'" />'."\n". 3474: '<input type="hidden" name="probTitle" value="'.$probTitle.'" />'."\n". 3475: '<input type="hidden" name="command" value="" />'."\n". 3476: '<input type="hidden" name="saveState" value="" />'."\n". 3477: '<input type="hidden" name="showgrading" value="yes" />'."\n"; 3478: 3479: $result.='<table width="100%" border=0><tr><td bgcolor=#777777>'."\n". 3480: '<table width=100% border=0><tr bgcolor="#e6ffff"><td colspan="2">'."\n". 3481: ' <b>Select a Grading/Viewing Option</b></td></tr>'."\n". 3482: '<tr bgcolor="#ffffe6" valign="top"><td>'."\n"; 3483: 3484: $result.='<table width="100%" border=0>'; 3485: $result.='<tr bgcolor="#ffffe6" valign="top"><td>'."\n". 3486: ' Select Section: <select name="section">'."\n"; 3487: if (ref($sections)) { 3488: foreach (sort (@$sections)) {$result.='<option value="'.$_.'" '. 3489: ($saveSec eq $_ ? 'selected="on"' : '').'>'.$_.'</option>'."\n";} 3490: } 3491: $result.= '<option value="all" '.($saveSec eq 'all' ? 'selected="on"' : ''). '>all</select>   '; 3492: 3493: $result.='Student Status:</b>'.&Apache::lonhtmlcommon::StatusOptions($saveStatus,undef,1,undef); 3494: 3495: if (ref($sections)) { 3496: $result.=' (Section "no" implies the students were not assigned a section.)<br />' 3497: if (grep /no/,@$sections); 3498: } 3499: $result.='</td></tr>'; 3500: 3501: $result.='<tr bgcolor="#ffffe6"valign="top"><td>'. 3502: '<input type="radio" name="radioChoice" value="submission" '. 3503: ($saveCmd eq 'submission' ? 'checked' : '').'> '.'<b>Current Resource:</b> For one or more students'. 3504: '<br />            -->For students with '. 3505: '<input type="radio" name="submitonly" value="yes" '. 3506: ($saveSub eq 'yes' ? 'checked' : '').' /> submissions or '. 3507: '<input type="radio" name="submitonly" value="all" '. 3508: ($saveSub eq 'all' ? 'checked' : '').' /> for all</td></tr>'."\n"; 3509: 3510: $result.='<tr bgcolor="#ffffe6"valign="top"><td>'. 3511: '<input type="radio" name="radioChoice" value="viewgrades" '. 3512: ($saveCmd eq 'viewgrades' ? 'checked' : '').'> '. 3513: '<b>Current Resource:</b> For all students in selected section or course</td></tr>'."\n"; 3514: 3515: $result.='<tr bgcolor="#ffffe6" valign="top"><td>'. 3516: '<input type="radio" name="radioChoice" value="pickStudentPage" '. 3517: ($saveCmd eq 'pickStudentPage' ? 'checked' : '').'> '. 3518: 'The <b>complete</b> set/page/sequence: For one student</td></tr>'."\n"; 3519: 3520: $result.='<tr bgcolor="#ffffe6"><td><br />'. 3521: '<input type="button" onClick="javascript:checkChoice(this.form,\'2\');" value="View/Grade/Regrade" />'. 3522: '</td></tr></table>'."\n"; 3523: 3524: $result.='</td><td valign="top">'; 3525: 3526: $result.='<table width="100%" border=0>'; 3527: $result.='<tr bgcolor="#ffffe6"><td>'. 3528: '<input type="button" onClick="javascript:checkChoice(this.form,\'3\',\'csvform\');" value="Upload" />'. 3529: ' scores from file </td></tr>'."\n"; 3530: 3531: $result.='<tr bgcolor="#ffffe6"valign="top"><td colspan="2">'. 3532: '<input type="button" onClick="javascript:checkChoice(this.form,\'4\',\'scantron_selectphase\');'. 3533: '" value="Grade" /> scantron forms</td></tr>'."\n"; 3534: 3535: if ((&Apache::lonnet::allowed('mgr',$ENV{'request.course.id'})) && ($symb)) { 3536: $result.='<tr bgcolor="#ffffe6"valign="top"><td>'. 3537: '<input type="button" onClick="javascript:checkChoice(this.form,\'5\',\'verify\');" value="Verify" />'. 3538: ' submission Receipt no: '.unpack("%32C*",$Apache::lonnet::perlvar{'lonHostID'}). 3539: '-<input type="text" name="receipt" size="4" onChange="javascript:checkReceiptNo(this.form,\'OK\')">'. 3540: '</td></tr>'."\n"; 3541: } 3542: 3543: $result.='</form></td></tr></table>'."\n". 3544: '</td></tr></table>'."\n". 3545: '</td></tr></table>'."\n"; 3546: return $result; 3547: } 3548: 3549: sub handler { 3550: my $request=$_[0]; 3551: 3552: undef(%perm); 3553: if ($ENV{'browser.mathml'}) { 3554: $request->content_type('text/xml'); 3555: } else { 3556: $request->content_type('text/html'); 3557: } 3558: $request->send_http_header; 3559: return '' if $request->header_only; 3560: &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}); 3561: my $url=$ENV{'form.url'}; 3562: my $symb=$ENV{'form.symb'}; 3563: my $command=$ENV{'form.command'}; 3564: if (!$url) { 3565: my ($temp1,$temp2); 3566: ($temp1,$temp2,$ENV{'form.url'})=split(/___/,$symb); 3567: $url = $ENV{'form.url'}; 3568: } 3569: &send_header($request); 3570: if ($url eq '' && $symb eq '') { 3571: if ($ENV{'user.adv'}) { 3572: if (($ENV{'form.codeone'}) && ($ENV{'form.codetwo'}) && 3573: ($ENV{'form.codethree'})) { 3574: my $token=$ENV{'form.codeone'}.'*'.$ENV{'form.codetwo'}.'*'. 3575: $ENV{'form.codethree'}; 3576: my ($tsymb,$tuname,$tudom,$tcrsid)= 3577: &Apache::lonnet::checkin($token); 3578: if ($tsymb) { 3579: my ($map,$id,$url)=split(/\_\_\_/,$tsymb); 3580: if (&Apache::lonnet::allowed('mgr',$tcrsid)) { 3581: $request->print(&Apache::lonnet::ssi_body('/res/'.$url, 3582: ('grade_username' => $tuname, 3583: 'grade_domain' => $tudom, 3584: 'grade_courseid' => $tcrsid, 3585: 'grade_symb' => $tsymb))); 3586: } else { 3587: $request->print('<h3>Not authorized: '.$token.'</h3>'); 3588: } 3589: } else { 3590: $request->print('<h3>Not a valid DocID: '.$token.'</h3>'); 3591: } 3592: } else { 3593: $request->print(&Apache::lonxml::tokeninputfield()); 3594: } 3595: } 3596: } else { 3597: if (!($perm{'vgr'}=&Apache::lonnet::allowed('vgr',$ENV{'request.course.id'}))) { 3598: if ($perm{'vgr'}=&Apache::lonnet::allowed('vgr',$ENV{'request.course.id'}.'/'.$ENV{'request.course.sec'})) { 3599: $perm{'vgr_section'}=$ENV{'request.course.sec'}; 3600: } else { 3601: delete($perm{'vgr'}); 3602: } 3603: } 3604: if (!($perm{'mgr'}=&Apache::lonnet::allowed('mgr',$ENV{'request.course.id'}))) { 3605: if ($perm{'mgr'}=&Apache::lonnet::allowed('mgr',$ENV{'request.course.id'}.'/'.$ENV{'request.course.sec'})) { 3606: $perm{'mgr_section'}=$ENV{'request.course.sec'}; 3607: } else { 3608: delete($perm{'mgr'}); 3609: } 3610: } 3611: 3612: if ($command eq 'submission' && $perm{'vgr'}) { 3613: ($ENV{'form.student'} eq '' ? &listStudents($request) : &submission($request,0,0)); 3614: } elsif ($command eq 'pickStudentPage' && $perm{'vgr'}) { 3615: &pickStudentPage($request); 3616: } elsif ($command eq 'displayPage' && $perm{'vgr'}) { 3617: &displayPage($request); 3618: } elsif ($command eq 'gradeByPage' && $perm{'mgr'}) { 3619: &updateGradeByPage($request); 3620: } elsif ($command eq 'processGroup' && $perm{'vgr'}) { 3621: &processGroup($request); 3622: } elsif ($command eq 'gradingmenu' && $perm{'vgr'}) { 3623: $request->print(&gradingmenu($request)); 3624: } elsif ($command eq 'viewgrades' && $perm{'vgr'}) { 3625: $request->print(&viewgrades($request)); 3626: } elsif ($command eq 'handgrade' && $perm{'mgr'}) { 3627: $request->print(&processHandGrade($request)); 3628: } elsif ($command eq 'editgrades' && $perm{'mgr'}) { 3629: $request->print(&editgrades($request)); 3630: } elsif ($command eq 'verify' && $perm{'vgr'}) { 3631: $request->print(&verifyreceipt($request)); 3632: } elsif ($command eq 'csvform' && $perm{'mgr'}) { 3633: $request->print(&upcsvScores_form($request)); 3634: } elsif ($command eq 'csvupload' && $perm{'mgr'}) { 3635: $request->print(&csvupload($request)); 3636: } elsif ($command eq 'csvuploadmap' && $perm{'mgr'} ) { 3637: $request->print(&csvuploadmap($request)); 3638: } elsif ($command eq 'csvuploadassign' && $perm{'mgr'}) { 3639: if ($ENV{'form.associate'} ne 'Reverse Association') { 3640: $request->print(&csvuploadassign($request)); 3641: } else { 3642: if ( $ENV{'form.upfile_associate'} ne 'reverse' ) { 3643: $ENV{'form.upfile_associate'} = 'reverse'; 3644: } else { 3645: $ENV{'form.upfile_associate'} = 'forward'; 3646: } 3647: $request->print(&csvuploadmap($request)); 3648: } 3649: } elsif ($command eq 'scantron_selectphase' && $perm{'mgr'}) { 3650: $request->print(&scantron_selectphase($request)); 3651: } elsif ($command eq 'scantron_process' && $perm{'mgr'}) { 3652: $request->print(&scantron_process_students($request)); 3653: } elsif ($command) { 3654: $request->print("Access Denied"); 3655: } 3656: } 3657: &send_footer($request); 3658: return ''; 3659: } 3660: 3661: sub send_header { 3662: my ($request)= @_; 3663: $request->print(&Apache::lontexconvert::header()); 3664: # $request->print(" 3665: #<script> 3666: #remotewindow=open('','homeworkremote'); 3667: #remotewindow.close(); 3668: #</script>"); 3669: $request->print(&Apache::loncommon::bodytag('Grading')); 3670: } 3671: 3672: sub send_footer { 3673: my ($request)= @_; 3674: $request->print('</body>'); 3675: $request->print(&Apache::lontexconvert::footer()); 3676: } 3677: 3678: 1; 3679: 3680: __END__;