loncom/homework/essayresponse.pm - view

File: [LON-CAPA] / loncom / homework / essayresponse.pm
Revision 1.114: download - view: text, annotated - select for diffs
Sat Jan 29 19:41:41 2011 UTC (13 years, 3 months ago) by raeburn
Branches: MAIN
CVS tags: version_2_10_X, version_2_10_1, version_2_10_0, loncapaMITrelate_1, HEAD

- Only include div and pick_box table if needed
  (questiontype can have drafts, or parameter is set for collaborators or
   for filetypes).

1: # The LearningOnline Network with CAPA 2: # essay (ungraded) style responses 3: # 4: # $Id: essayresponse.pm,v 1.114 2011/01/29 19:41:41 raeburn 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: 29: package Apache::essayresponse; 30: use strict; 31: use Apache::lonxml(); 32: use Apache::lonhtmlcommon; 33: use Apache::loncommon; 34: use Apache::lonnet; 35: use Apache::lonnavmaps; 36: use Apache::lonlocal; 37: use LONCAPA qw(:DEFAULT :match); 38: 39: 40: BEGIN { 41: &Apache::lonxml::register('Apache::essayresponse',('essayresponse')); 42: } 43: 44: sub start_essayresponse { 45: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; 46: my $result; 47: my $id = &Apache::response::start_response($parstack,$safeeval); 48: if ($target eq 'meta') { 49: $result=&Apache::response::meta_package_write('essayresponse'); 50: } elsif ($target eq 'web' && 51: $Apache::inputtags::status[-1] eq 'CAN_ANSWER') { 52: my $part= $Apache::inputtags::part; 53: my $ncol= &Apache::lonnet::EXT("resource.$part".'_'."$id.maxcollaborators"); 54: my $coll= &HTML::Entities::encode($Apache::lonhomework::history{"resource.$part.$id.collaborators"},'<>&"'); 55: my $uploadedfiletypes= &Apache::lonnet::EXT("resource.$part".'_'."$id.uploadedfiletypes"); 56: $uploadedfiletypes=~s/[^\w\,]//g; 57: my $maxfilesize=&Apache::lonnet::EXT("resource.$part".'_'."$id.maxfilesize"); 58: if (!defined($maxfilesize)) { 59: $maxfilesize = 10.0; #FIXME This should become a domain configuration 60: } 61: my $hiddendraft; 62: if (($Apache::lonhomework::type eq 'survey') || 63: ($Apache::lonhomework::type eq 'surveycred') || 64: ($Apache::lonhomework::type eq 'anonsurvey') || 65: ($Apache::lonhomework::type eq 'anonsurveycred')) { 66: $hiddendraft = '<input type="hidden" name="HWDRAFT'.$part.'_'.$id.'" value="yes" />'; 67: } else { 68: my $status_text = &mt('Submission type'); 69: if ($Apache::lonhomework::history{"resource.$part.award"} eq 'DRAFT') { 70: $status_text .= '<br />'.&mt('(Currently -- draft)'); 71: } 72: $result = &Apache::lonhtmlcommon::row_title($status_text); 73: my $closure; 74: unless ($ncol || $uploadedfiletypes) { 75: $closure = 1; 76: } 77: $result.= 78: '<label>'. 79: '<input type="radio" name="HWDRAFT'.$part.'_'.$id.'" value="yes" checked="checked" /> '. 80: &mt('Submit entries below as answer to receive credit'). 81: '</label> <br />'. 82: '<label>'. 83: '<input type="radio" name="HWDRAFT'.$part.'_'.$id.'" value="no" /> '. 84: &mt('Save entries below (not submitted for credit yet)'). 85: '</label>'. 86: &Apache::lonhtmlcommon::row_closure($closure); 87: } 88: 89: if ($ncol > 0) { 90: $result.= &Apache::lonhtmlcommon::row_title(&mt('Collaborators')). 91: '<label>'. 92: &mt('Collaborators:').' <input type="text" size="70" max="80" name="HWCOL'. 93: $part.'_'.$id.'" value="'.$coll.'" /><br />'. 94: &mt('(Enter a maximum of [quant,_1,collaborator] using username or username:domain, e.g. smithje or smithje:[_2].)',$ncol,$env{'user.domain'}); 95: if ($ncol > 1) { 96: $result .= '<br />'.&mt('If entering more than one, use spaces to separate the collaborators.'); 97: } 98: $result .= '</label><br />'; 99: $result .= &check_collaborators($ncol,$coll) if ($coll =~ /\w+/); 100: $result .= &Apache::lonhtmlcommon::row_closure(); 101: } 102: my $filesfrom = 'both'; 103: my $stuname = &Apache::lonnet::EXT('user.name'); 104: my $studom = &Apache::lonnet::EXT('user.domain'); 105: if (!&Apache::lonnet::usertools_access($stuname,$studom,'portfolio')) { 106: $filesfrom = 'uploadonly'; 107: } 108: $result.=&Apache::inputtags::file_selector($part,$id,$uploadedfiletypes, 109: $filesfrom,undef,$maxfilesize); 110: if ($result) { 111: $result = 112: '<div>'.$hiddendraft. 113: &Apache::lonhtmlcommon::start_pick_box(). 114: $result. 115: &Apache::lonhtmlcommon::end_pick_box().'</div>'; 116: } else { 117: $result = $hiddendraft; 118: } 119: } elsif ($target eq 'web' && 120: $Apache::inputtags::status[-1] ne 'CAN_ANSWER') { 121: my $part= $Apache::inputtags::part; 122: my @msgs; 123: if ($Apache::lonhomework::history{"resource.$part.$id.collaborators"} =~ /\S/) { 124: my $coll= &HTML::Entities::encode($Apache::lonhomework::history{"resource.$part.$id.collaborators"},'<>&"'); 125: $result .= '<td><i>'.&mt('Collaborated with [_1]',$coll).'</i></td>'; 126: } 127: 128: my $current_files_display = &Apache::inputtags::current_file_submissions($part,$id); 129: if ($current_files_display) { 130: $result .= '<td><b>'.&mt('Submitted files:').'</b><br />'. 131: $current_files_display.'</td>'; 132: } 133: 134: if ($result ne '') { 135: $result = 136: '<table class="LC_pastsubmission"><tr>'.$result. 137: '</tr></table>'; 138: } 139: } 140: return $result; 141: } 142: 143: sub end_essayresponse { 144: my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; 145: my $part = $Apache::inputtags::part; 146: my $id = $Apache::inputtags::response[-1]; 147: my $increment = &Apache::response::repetition(); 148: my $result; 149: if ( $target eq 'grade' ) { 150: # Deal with collaborators 151: my $collaborators = $env{'form.HWCOL'.$part.'_'.$id}; 152: my $previous_list= &HTML::Entities::encode($Apache::lonhomework::history{"resource.$part.$id.collaborators"},'<>&"'); 153: if ($collaborators ne $previous_list) { 154: # &Apache::lonnet::logthis("New collaborators [$collaborators] [$previous_list]"); 155: $Apache::lonhomework::results{"resource.$part.$id.collaborators"}=$collaborators; 156: } 157: # Scantron 158: if ( &Apache::response::submitted('scantron') ) { 159: $increment=&Apache::response::scored_response($part,$id); 160: } elsif ( &Apache::response::submitted() ) { 161: my $response = $env{'form.HWVAL_'.$id}; 162: my $jspart=$part; 163: $jspart=~s/\./_/g; 164: my $filename = $env{'form.HWFILE'.$jspart.'_'.$id.'.filename'} || 165: $env{'form.HWFILETOOBIG'.$part.'_'.$id}; 166: my $portfiles = $env{'form.HWPORT'.$jspart.'_'.$id}; 167: my @deletions = &Apache::loncommon::get_env_multiple('form.HWFILE'.$jspart.'_'.$id.'_delete'); 168: my ($is_submit,$was_draft); 169: if ($env{'form.HWDRAFT'.$part.'_'.$id} eq 'yes') { 170: $is_submit = 1; 171: } 172: if ($Apache::lonhomework::history{"resource.$part.award"} eq 'DRAFT') { 173: $was_draft = 1; 174: } 175: if (($response =~ /[^\s]/) || ($filename =~ /[^\s]/) || ($portfiles =~ /[^\s]/) || 176: (@deletions > 0) || ($was_draft && $is_submit)) { 177: my $award='DRAFT'; 178: if ($env{'form.HWDRAFT'.$part.'_'.$id} eq 'yes') { 179: if ($Apache::lonhomework::type eq 'anonsurvey') { 180: $award='ANONYMOUS'; 181: } elsif ($Apache::lonhomework::type eq 'anonsurveycred') { 182: $award='ANONYMOUS_CREDIT'; 183: } elsif ($Apache::lonhomework::type eq 'surveycred') { 184: $award='SUBMITTED_CREDIT'; 185: } else { 186: $award='SUBMITTED'; 187: } 188: } 189: my $uploadedflag=0; 190: my $totalsize=0; 191: &file_submission($part,$id,\$award,\$uploadedflag,\$totalsize,\@deletions); 192: $Apache::lonhomework::results{"resource.$part.$id.submission"}=$response; 193: $Apache::lonhomework::results{"resource.$part.$id.awarddetail"}=$award; 194: my %previous=&Apache::response::check_for_previous($response,$part,$id); 195: if ($uploadedflag) { 196: if ($award eq 'FILENAME_INUSE') { 197: delete($Apache::lonhomework::results{"resource.$id.tries"}); 198: } 199: } else { 200: &Apache::response::handle_previous(\%previous,$award); 201: } 202: # 203: # Store with resource author for similarity testing 204: # 205: if ($award eq 'SUBMITTED') { 206: my ($symb,$crsid,$domain,$name)= 207: &Apache::lonnet::whichuser(); 208: if ($crsid) { 209: my $akey=join('.',&escape($name),&escape($domain), 210: &escape($crsid)); 211: my $essayurl= 212: &Apache::lonnet::declutter($ENV{'REQUEST_URI'}); 213: my ($adom,$aname,$apath)= 214: ($essayurl=~/^($LONCAPA::domain_re)\/($LONCAPA::username_re)\/(.*)$/); 215: $apath=&escape($apath); 216: $apath=~s/\W/\_/gs; 217: &Apache::lonnet::put('nohist_essay_'.$apath, 218: { $akey => $response },$adom,$aname); 219: } 220: } 221: } 222: } 223: } elsif ($target eq 'edit') { 224: $result.=&Apache::edit::end_table(); 225: 226: } elsif ($target eq 'tex' 227: && $Apache::lonhomework::type eq 'exam') { 228: $result .= &Apache::inputtags::exam_score_line($target); 229: 230: } elsif ($target eq 'answer') { 231: $result.=&Apache::response::answer_header($$tagstack[-1]); 232: my $answer = &mt('Essay will be hand graded.'); 233: $result.=&Apache::response::answer_part($$tagstack[-1],$answer, 234: {'no_verbatim' => 1}); 235: $result.=&Apache::response::answer_footer($$tagstack[-1]); 236: } 237: if ($target eq 'web') { 238: &Apache::response::setup_prior_tries_hash(\&format_prior_response, 239: ['portfiles', 240: 'uploadedurl']); 241: } 242: 243: if ($target eq 'grade' || $target eq 'web' || $target eq 'answer' || 244: $target eq 'tex' || $target eq 'analyze') { 245: &Apache::lonxml::increment_counter($increment, "$part.$id"); 246: 247: if ($target eq 'analyze') { 248: $Apache::lonhomework::analyze{"$part.$id.type"} = 'essayresponse'; 249: push (@{ $Apache::lonhomework::analyze{"parts"} },"$part.$id"); 250: &Apache::lonhomework::set_bubble_lines(); 251: } 252: } 253: &Apache::response::end_response; 254: 255: return $result; 256: } 257: 258: sub format_prior_response { 259: my ($mode,$answer,$other_data) = @_; 260: my $output; 261: 262: my (undef,undef,$udom,$uname) = &Apache::lonnet::whichuser(); 263: my $port_url = '/uploaded/'.$udom.'/'.$uname.'/portfolio/'; 264: 265: my $file_list; 266: 267: foreach my $file (split(/\s*,\s*/, 268: $other_data->[0].','.$other_data->[1])) { 269: next if ($file!~/\S/); 270: if ($file !~ m{^/uploaded/}) { $file=$port_url.$file; } 271: $file=~s|/+|/|g; 272: &Apache::lonnet::allowuploaded('/adm/essayresponse',$file); 273: $file_list.='<li><span class="LC_nobreak"><a href="'.$file.'?rawmode=1" target="lonGRDs"><img src="'. 274: &Apache::loncommon::icon($file).'" alt="file icon" border="0" /> '.$file. 275: '</a></span></li>'."\n"; 276: } 277: if ($file_list) { 278: $output.= &mt('Submitted Files').'<ul>'.$file_list.'</ul>'; 279: } 280: if ($answer =~ /\S/) { 281: $output.='<p>'.&mt('Submitted text'). 282: '<blockquote>'.$answer.'</blockquote></p>'; 283: } 284: 285: return '<div class="LC_prior_essay">'.$output.'</div>'; 286: } 287: 288: sub file_submission { 289: my ($part,$id,$award,$uploadedflag,$totalsize,$deletions)=@_; 290: my $files; 291: my $jspart=$part; 292: $jspart=~s/\./_/g; 293: my ($symb,$crsid,$udom,$uname) = &Apache::lonnet::whichuser(); 294: my %crsinfo = &Apache::lonnet::coursedescription($crsid); 295: my $cdom = $crsinfo{'domain'}; 296: my $cnum = $crsinfo{'num'}; 297: my (@portfiles,$uploadedurl,@submitted_portfiles,$submitted_upload, 298: @acceptable_portfiles,$acceptable_upload,@accepted_portfiles, 299: $accepted_upload,@savedportfiles,$stored_upload,@tolock, 300: %port_delete,$uploaded_delete); 301: if ($Apache::lonhomework::history{"resource.$part.$id.portfiles"} || 302: $Apache::lonhomework::history{"resource.$part.$id.uploadedurl"}) { 303: if ($Apache::lonhomework::history{"resource.$part.$id.portfiles"}) { 304: @portfiles = split(/,/,$Apache::lonhomework::history{"resource.$part.$id.portfiles"}); 305: } 306: $uploadedurl = $Apache::lonhomework::history{"resource.$part.$id.uploadedurl"}; 307: if (ref($deletions) eq 'ARRAY') { 308: if (@{$deletions} > 0) { 309: foreach my $file (@{$deletions}) { 310: $file = &HTML::Entities::decode($file); 311: if (grep(/^\Q$file\E$/,@portfiles)) { 312: $port_delete{$file} = 1; 313: } elsif ($file =~ m{^/uploaded/\Q$udom\E/\Q$uname\E/essayresponse/\Q$cdom\E/\Q$cnum\E/}) { 314: $uploaded_delete = $file; 315: } elsif ($file =~ m{^/uploaded/\Q$udom\E/\Q$uname\E/essayresponse/[^/]+$}) { 316: $uploaded_delete = $file; 317: } 318: } 319: } 320: } 321: foreach my $current (@portfiles) { 322: unless ($port_delete{$current}) { 323: push(@savedportfiles,$current); 324: } 325: } 326: if ($uploaded_delete) { 327: if ($uploaded_delete eq $uploadedurl) { 328: $Apache::lonhomework::results{"resource.$part.$id.uploadedfile"} = ""; 329: $Apache::lonhomework::results{"resource.$part.$id.uploadedurl"} = ""; 330: } else { 331: undef($uploaded_delete); 332: } 333: } 334: } 335: if ($env{'form.HWPORT'.$jspart.'_'.$id} ne '') { 336: my $newfiles= $env{'form.HWPORT'.$jspart.'_'.$id}; 337: $newfiles =~s/,$//; 338: if ($newfiles =~ /[^\s]/) { 339: foreach my $file (split(/\s*,\s*/,$newfiles)) { 340: if ($file =~ /[^\s]/) { 341: push(@submitted_portfiles,$file); 342: } 343: } 344: } 345: } 346: if ($env{'form.HWFILETOOBIG'.$part.'_'.$id} ne '') { 347: $$award = 'EXCESS_FILESIZE'; 348: } elsif ($env{'form.HWFILE'.$jspart.'_'.$id.'.filename'} ne '') { 349: my $newfile = $env{'form.HWFILE'.$jspart.'_'.$id.'.filename'}; 350: if ($newfile =~ /[^\s]/) { 351: $submitted_upload = $newfile; 352: } 353: } 354: if (@savedportfiles) { 355: foreach my $file (reverse(@savedportfiles)) { 356: unless(grep(/^\Q$file\E$/,@submitted_portfiles)) { 357: unshift(@submitted_portfiles,$file); 358: } 359: } 360: } 361: if (@submitted_portfiles || $submitted_upload) { 362: my $uploadedfiletypes= 363: &Apache::lonnet::EXT("resource.$part".'_'."$id.uploadedfiletypes"); 364: if ($uploadedfiletypes ne '') { 365: $uploadedfiletypes=~s/[^\w\,]//g; 366: $uploadedfiletypes=','.$uploadedfiletypes.','; 367: if (@submitted_portfiles) { 368: foreach my $file (@submitted_portfiles) { 369: my ($extension)=($file=~/\.(\w+)$/); 370: if ($uploadedfiletypes=~/\,\s*\Q$extension\E\s*\,/i) { 371: push(@acceptable_portfiles,$file); 372: } 373: } 374: } 375: if ($submitted_upload) { 376: my ($upload_ext)=($submitted_upload=~/\.(\w+)$/); 377: if ($uploadedfiletypes=~/\,\s*\Q$upload_ext\E\s*\,/i) { 378: $acceptable_upload = $submitted_upload; 379: } else { 380: $$award='INVALID_FILETYPE'; 381: &delete_form_items($jspart,$id); 382: } 383: } 384: } else { 385: @acceptable_portfiles = @submitted_portfiles; 386: $acceptable_upload = $submitted_upload; 387: } 388: } 389: if ((@acceptable_portfiles) || ($acceptable_upload ne '')) { 390: my $maxfilesize=&Apache::lonnet::EXT("resource.$part".'_'."$id.maxfilesize"); 391: if (!$maxfilesize) { 392: $maxfilesize = 10.0; #FIXME This should become a domain configuration 393: } 394: my %dirlist; 395: if (@acceptable_portfiles) { 396: foreach my $file (@acceptable_portfiles) { 397: my ($path,$filename) = ($file =~ m{^(.*/)([^/]+)$}); 398: my $fullpath = '/userfiles/portfolio'.$path; 399: if (!exists($dirlist{$fullpath})) { 400: my @list = &Apache::lonnet::dirlist($fullpath,$udom,$uname,1); 401: $dirlist{$fullpath} = \@list; 402: } 403: if (ref($dirlist{$fullpath}) eq 'ARRAY') { 404: foreach my $dir_line (@{$dirlist{$fullpath}}) { 405: my ($fname,$dom,undef,$testdir,undef,undef,undef,undef, 406: $size,undef,$mtime,undef,undef,undef,$obs,undef) = 407: split(/\&/,$dir_line,16); 408: if ($filename eq $fname) { 409: my $mbsize = $size/(1024.0*1024.0); 410: if (ref($totalsize)) { 411: $$totalsize += $mbsize; 412: } 413: last; 414: } 415: } 416: } 417: if (ref($totalsize)) { 418: if ($$totalsize > $maxfilesize) { 419: $$award='EXCESS_FILESIZE'; 420: &delete_form_items($jspart,$id); 421: } else { 422: push(@accepted_portfiles,$file); 423: } 424: } else { 425: push(@accepted_portfiles,$file); 426: } 427: } 428: } 429: if ($acceptable_upload ne '') { 430: if (ref($totalsize)) { 431: $$totalsize += $env{'form.HWFILESIZE'.$jspart.'_'.$id}; 432: if ($$totalsize > $maxfilesize) { 433: $$award='EXCESS_FILESIZE'; 434: delete($env{'form.HWFILE'.$jspart.'_'.$id}); 435: } else { 436: $accepted_upload = $acceptable_upload; 437: } 438: } else { 439: $accepted_upload = $acceptable_upload; 440: } 441: } 442: } 443: if ($accepted_upload ne '') { 444: my ($map,$resid,$resurl)=&Apache::lonnet::decode_symb($symb); 445: my $turnindir; 446: my %userhash = &Apache::lonnet::userenvironment($udom,$uname,'turnindir'); 447: $turnindir = $userhash{'turnindir'}; 448: if ($turnindir eq '') { 449: $turnindir = &mt('turned in'); 450: $turnindir =~ s/\W+/_/g; 451: my %newhash = ( 452: 'turnindir' => $turnindir, 453: ); 454: &Apache::lonnet::put('environment',\%newhash,$udom,$uname); 455: } 456: my $prefix = 'portfolio'; 457: my $path = '/'.$turnindir.'/'; 458: my $restitle=&Apache::lonnet::gettitle($symb); 459: $restitle =~ s/\W+/_/g; 460: if ($restitle eq '') { 461: $restitle = ($resurl =~ m{/[^/]+$}); 462: if ($restitle eq '') { 463: $restitle = time; 464: } 465: } 466: my @pathitems; 467: my $navmap = Apache::lonnavmaps::navmap->new(); 468: if (defined($navmap)) { 469: my $mapres = $navmap->getResourceByUrl($map); 470: if (ref($mapres)) { 471: my $pcslist = $mapres->map_hierarchy(); 472: if ($pcslist ne '') { 473: foreach my $pc (split(/,/,$pcslist)) { 474: my $res = $navmap->getByMapPc($pc); 475: if (ref($res)) { 476: my $title = $res->compTitle(); 477: $title =~ s/\W+/_/g; 478: if ($title ne '') { 479: push(@pathitems,$title); 480: } 481: } 482: } 483: } 484: my $maptitle = $mapres->compTitle(); 485: $maptitle =~ s/\W+/_/g; 486: if ($maptitle ne '') { 487: push(@pathitems,$maptitle); 488: } 489: } else { 490: $$award = 'INTERNAL_ERROR'; 491: } 492: } else { 493: $$award = 'INTERNAL_ERROR'; 494: } 495: push(@pathitems,$restitle); 496: $path .= join('/',@pathitems); 497: my $formelement = 'HWFILE'.$jspart.'_'.$id; 498: my $fname = &Apache::lonnet::clean_filename($env{'form.'.$formelement.'.filename'}); 499: my $url = '/uploaded/'.$udom.'/'.$uname.'/'.$prefix.$path.'/'.$fname; 500: my @stat = &Apache::lonnet::stat_file($url); 501: if (@stat && $stat[0] ne 'no_such_dir') { 502: $$award = 'FILENAME_INUSE'; 503: } else { 504: my ($mode,%allfiles,%codebase); 505: my $result = &Apache::lonnet::userfileupload($formelement,'', 506: $prefix.$path,$mode,\%allfiles,\%codebase); 507: if ($result =~ m{^/uploaded/}) { 508: $stored_upload = $path.'/'.$fname; 509: $Apache::lonhomework::results{"resource.$part.$id.portfiles"} = $stored_upload; 510: push(@tolock,$stored_upload); 511: } else { 512: $$award = 'INTERNAL_ERROR'; 513: } 514: } 515: delete($env{'form.HWFILE'.$jspart.'_'.$id}); 516: } 517: if (@accepted_portfiles) { 518: if ($stored_upload) { 519: $Apache::lonhomework::results{"resource.$part.$id.portfiles"} .= ','; 520: } 521: $Apache::lonhomework::results{"resource.$part.$id.portfiles"}.=join(',',@accepted_portfiles); 522: push(@tolock,@accepted_portfiles); 523: } 524: if (!defined($Apache::lonhomework::results{"resource.$part.$id.portfiles"})) { 525: if (keys(%port_delete) > 0) { 526: $Apache::lonhomework::results{"resource.$part.$id.portfiles"} = ""; 527: } 528: } 529: if (($Apache::lonhomework::history{"resource.$part.$id.portfiles"} ne 530: $Apache::lonhomework::results{"resource.$part.$id.portfiles"}) || 531: ($uploaded_delete)) { 532: if (ref($uploadedflag)) { 533: $$uploadedflag=1; 534: } 535: } 536: &Apache::lonnet::unmark_as_readonly($udom,$uname,[$symb,$crsid]); 537: &Apache::lonnet::mark_as_readonly($udom,$uname,[@tolock],[$symb,$crsid]); 538: &Apache::lonnet::clear_selected_files($uname); 539: return; 540: } 541: 542: sub delete_form_items { 543: my ($jspart,$id) = @_; 544: delete($env{'form.HWFILE'.$jspart.'_'.$id.'.filename'}); 545: delete($env{'form.HWFILE'.$jspart.'_'.$id.'.mimetype'}); 546: delete($env{'form.HWFILE'.$jspart.'_'.$id}); 547: } 548: 549: sub check_collaborators { 550: my ($ncol,$coll) = @_; 551: my %classlist=&Apache::lonnet::dump('classlist', 552: $env{'course.'.$env{'request.course.id'}.'.domain'}, 553: $env{'course.'.$env{'request.course.id'}.'.num'}); 554: my (@badcollaborators,$result); 555: 556: my (@collaborators) = split(/[,;\s]+/,$coll); 557: foreach my $entry (@collaborators) { 558: my $collaborator; 559: if ($entry =~ /:/) { 560: $collaborator = $entry; 561: } else { 562: $collaborator = $entry.':'.$env{'user.domain'}; 563: } 564: if ($collaborator !~ /^$match_username:$match_domain$/) { 565: if (!grep(/^\Q$entry\E$/,@badcollaborators)) { 566: push(@badcollaborators,$entry); 567: } 568: } elsif (!grep(/^\Q$collaborator\E$/i,keys(%classlist))) { 569: if (!grep(/^\Q$entry\E$/,@badcollaborators)) { 570: push(@badcollaborators,$entry); 571: } 572: } 573: } 574: 575: my $numbad = scalar(@badcollaborators); 576: if ($numbad) { 577: $result = '<table border="0"><tr bgcolor="#ffbbbb"><td>'; 578: if ($numbad == 1) { 579: $result .= &mt('The following user is invalid:'); 580: } else { 581: $result .= &mt('The following [_1] users are invalid:',$numbad); 582: } 583: $result .= ' '.join(', ',@badcollaborators).'. '.&mt('Please correct.'). 584: '</td></tr></table>'; 585: } 586: my $toomany = scalar(@collaborators) - $ncol; 587: if ($toomany > 0) { 588: $result .= '<table border="0"><tr bgcolor="#ffbbbb"><td>'. 589: &mt('You have too many collaborators.').' '. 590: &mt('Please remove [quant,_1,collaborator].',$toomany). 591: '</td></tr></table>'; 592: } 593: return $result; 594: } 595: 596: 1; 597: __END__ 598: 599: 600: =pod 601: 602: =head1 NAME 603: 604: Apache::essayresponse 605: 606: =head1 SYNOPSIS 607: 608: Handler to evaluate essay (ungraded) style responses. 609: 610: This is part of the LearningOnline Network with CAPA project 611: described at http://www.lon-capa.org. 612: 613: =head1 SUBROUTINES 614: 615: =over 616: 617: =item start_essayresponse() 618: 619: =item end_essayresponse() 620: 621: =item format_prior_response() 622: 623: =item file_submission() 624: 625: =item delete_form_items() 626: 627: =item check_collaborators() 628: 629: =back 630: 631: =cut