[BACK]Return to essayresponse.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/essayresponse.pm between versions 1.101.10.2 and 1.102

version 1.101.10.2, 2010/09/13 04:23:00 version 1.102, 2010/02/28 23:37:03
Line 29 Line 29
 package Apache::essayresponse;  package Apache::essayresponse;
 use strict;  use strict;
 use Apache::lonxml();  use Apache::lonxml();
 use Apache::lonhtmlcommon;  
 use Apache::loncommon;  
 use Apache::lonnet;  use Apache::lonnet;
 use Apache::lonnavmaps;  
 use Apache::lonlocal;  use Apache::lonlocal;
 use LONCAPA qw(:DEFAULT :match);  use LONCAPA qw(:DEFAULT :match);
     
Line 58  sub start_essayresponse { Line 55  sub start_essayresponse {
         if (!defined($maxfilesize)) {          if (!defined($maxfilesize)) {
             $maxfilesize = 10.0; #FIXME This should become a domain configuration               $maxfilesize = 10.0; #FIXME This should become a domain configuration 
         }          }
  if ( $Apache::lonhomework::type eq 'survey' ) {   if (($Apache::lonhomework::type eq 'survey') ||
               ($Apache::lonhomework::type eq 'surveycred') ||
               ($Apache::lonhomework::type eq 'anonsurvey') ||
               ($Apache::lonhomework::type eq 'anonsurveycred')) {
     $result.= '<input type="hidden" name="HWDRAFT'.$part.'_'.$id.'" value="yes" /> ';      $result.= '<input type="hidden" name="HWDRAFT'.$part.'_'.$id.'" value="yes" /> ';
  }   }
         my $status_text = &mt('Submission type');   $result.='<br /><table border="1">';
         if ($Apache::lonhomework::history{"resource.$part.award"} eq 'DRAFT') {   if (($Apache::lonhomework::type ne 'survey') &&
             $status_text .= '<br />'.&mt('(Currently -- draft)');              ($Apache::lonhomework::type ne 'surveycred') &&
         }              ($Apache::lonhomework::type eq 'anonsurvey') &&
         $result.= '<p>'.&Apache::lonhtmlcommon::start_pick_box();              ($Apache::lonhomework::type ne 'anonsurveycred')) {
  if ( $Apache::lonhomework::type ne 'survey' ) {      $result.= '<tr><td>'.
             if ($env{'request.uri'} eq '/res/gci/gci/internal/submission.problem') {  
   
                 $result .= '<input type="hidden" name="HWDRAFT'.$part.'_'.$id.'" value="yes" />';  
             } else {  
                 $result .= &Apache::lonhtmlcommon::row_title($status_text);  
                 my $closure;  
                 unless ($ncol || $uploadedfiletypes) {  
                     $closure = 1;  
                 }  
         $result.=   
  '<label>'.   '<label>'.
  '<input type="radio" name="HWDRAFT'.$part.'_'.$id.'" value="yes" checked="checked" />&nbsp;'.   '<input type="radio" name="HWDRAFT'.$part.'_'.$id.'" value="yes" checked="checked" /> '.
  &mt('Submit entries below as answer to receive credit').   &mt('Submit entries below as answer to receive credit').
  '</label> <br />'.   '</label> <br />'.
  '<label>'.   '<label>'.
  '<input type="radio" name="HWDRAFT'.$part.'_'.$id.'" value="no" />&nbsp;'.   '<input type="radio" name="HWDRAFT'.$part.'_'.$id.'" value="no" /> '.
  &mt('Save entries below (not submitted for credit yet)').   &mt('Save entries below (not submitted for credit yet)').
  '</label>'.   '</label>'.
  &Apache::lonhtmlcommon::row_closure($closure);   '</td></tr>';
             }  
  }   }
   
  if ($ncol > 0) {   if ($ncol > 0) {
     $result.= &Apache::lonhtmlcommon::row_title(&mt('Collaborators')).      $result .='<tr><td>'.'<label>'.
                       '<label>'.  
       &mt('Collaborators:').' <input type="text" size="70" max="80" name="HWCOL'.        &mt('Collaborators:').' <input type="text" size="70" max="80" name="HWCOL'.
       $part.'_'.$id.'" value="'.$coll.'" /><br />'.        $part.'_'.$id.'" value="'.$coll.'" /><br />'.
       &mt('(Enter a maximum of [quant,_1,collaborator] using username or username:domain, e.g. smithje or smithje:[_2].)',$ncol,$env{'user.domain'});        &mt('(Enter a maximum of [quant,_1,collaborator] using username or username:domain, e.g. smithje or smithje:[_2].)',$ncol,$env{'user.domain'});
Line 99  sub start_essayresponse { Line 88  sub start_essayresponse {
             }              }
             $result .= '</label><br />';              $result .= '</label><br />';
     $result .= &check_collaborators($ncol,$coll) if ($coll =~ /\w+/);      $result .= &check_collaborators($ncol,$coll) if ($coll =~ /\w+/);
             $result .= &Apache::lonhtmlcommon::row_closure();      $result .='</td></tr>';
  }   }
         my $filesfrom = 'both';          my $filesfrom = 'both';
         my $stuname = &Apache::lonnet::EXT('user.name');          my $stuname = &Apache::lonnet::EXT('user.name');
Line 109  sub start_essayresponse { Line 98  sub start_essayresponse {
         }          }
  $result.=&Apache::inputtags::file_selector($part,$id,$uploadedfiletypes,   $result.=&Apache::inputtags::file_selector($part,$id,$uploadedfiletypes,
    $filesfrom,undef,$maxfilesize);     $filesfrom,undef,$maxfilesize);
         $result.=&Apache::lonhtmlcommon::end_pick_box().'</p>';          $result.='</table>';
     } elsif ($target eq 'web' &&      } elsif ($target eq 'web' &&
      $Apache::inputtags::status[-1] ne 'CAN_ANSWER') {       $Apache::inputtags::status[-1] ne 'CAN_ANSWER') {
  my $part= $Apache::inputtags::part;   my $part= $Apache::inputtags::part;
  my @msgs;   my @msgs;
  if ($Apache::lonhomework::history{"resource.$part.$id.collaborators"} =~ /\S/) {   if ($Apache::lonhomework::history{"resource.$part.$id.collaborators"} =~ /\S/) {
     my $coll= &HTML::Entities::encode($Apache::lonhomework::history{"resource.$part.$id.collaborators"},'<>&"');      my $coll= &HTML::Entities::encode($Apache::lonhomework::history{"resource.$part.$id.collaborators"},'<>&"');
     $result .= '<td><i>'.&mt('Collaborated with [_1]',$coll).'</i></td>';      $result .= '<td>'.&mt('Collaborated with [_1]',$coll).'</td>';
  }   }
   
         my $current_files_display = &Apache::inputtags::current_file_submissions($part,$id);   my $file_submission = 
         if ($current_files_display) {      &Apache::inputtags::show_past_file_submission($part,$id);
             $result .= '<td><b>'.&mt('Submitted files:').'</b><br />'.   if ($file_submission) {
                        $current_files_display.'</td>';      $result .= '<td>'.$file_submission.'</td>';
         }   }
   
    my $port_submission = 
       &Apache::inputtags::show_past_portfile_submission($part,$id);
    if ($port_submission) {
       $result .= '<td>'.$port_submission.'</td>';
    }
   
  if ($result ne '') {   if ($result ne '') {
     $result =       $result = 
Line 151  sub end_essayresponse { Line 146  sub end_essayresponse {
     $increment=&Apache::response::scored_response($part,$id);      $increment=&Apache::response::scored_response($part,$id);
  } elsif ( &Apache::response::submitted() ) {   } elsif ( &Apache::response::submitted() ) {
     my $response      = $env{'form.HWVAL_'.$id};      my $response      = $env{'form.HWVAL_'.$id};
             my $jspart=$part;              my $filename = $env{'form.HWFILE'.$part.'_'.$id.'.filename'} || 
             $jspart=~s/\./_/g;  
             my $filename = $env{'form.HWFILE'.$jspart.'_'.$id.'.filename'} ||   
                            $env{'form.HWFILETOOBIG'.$part.'_'.$id};                             $env{'form.HWFILETOOBIG'.$part.'_'.$id};
             my $portfiles = $env{'form.HWPORT'.$jspart.'_'.$id};              my $portfiles = $env{'form.HWPORT'.$part.'_'.$id};
             my @deletions = &Apache::loncommon::get_env_multiple('form.HWFILE'.$jspart.'_'.$id.'_delete');      if (( $response =~ /[^\s]/) || ($filename =~ /[^\s]/) || ($portfiles =~ /[^\s]/)) {
             my ($is_submit,$was_draft);    my $award='DRAFT';
             if ($env{'form.HWDRAFT'.$part.'_'.$id} eq 'yes') {  
                  $is_submit = 1;  
             }  
             if ($Apache::lonhomework::history{"resource.$part.award"} eq 'DRAFT') {  
                 $was_draft = 1;  
             }  
     if (($response =~ /[^\s]/) || ($filename =~ /[^\s]/) || ($portfiles =~ /[^\s]/) ||   
                 (@deletions > 0) || ($was_draft && $is_submit)) {  
   my $award='DRAFT';  
         if ($env{'form.HWDRAFT'.$part.'_'.$id} eq 'yes') {          if ($env{'form.HWDRAFT'.$part.'_'.$id} eq 'yes') {
     $award='SUBMITTED';                      if ($Apache::lonhomework::type eq 'anonsurvey') {
                           $award='ANONYMOUS';
                       } elsif ($Apache::lonhomework::type eq 'anonsurveycred') {
                           $award='ANONYMOUS_CREDIT';
                       } elsif ($Apache::lonhomework::type eq 'surveycred') {
                           $award='SUBMITTED_CREDIT';
                       } else {
           $award='SUBMITTED';
                       }
  }   }
                 my $uploadedflag=0;                  my $uploadedflag=0;
                 my $totalsize=0;                  my $totalsize=0;
                 &file_submission($part,$id,\$award,\$uploadedflag,\$totalsize,\@deletions);   &file_submission($part,$id,'filename',\$award,\$uploadedflag,\$totalsize);
    &file_submission($part,$id,'portfiles',\$award,\$uploadedflag,\$totalsize);
  $Apache::lonhomework::results{"resource.$part.$id.submission"}=$response;   $Apache::lonhomework::results{"resource.$part.$id.submission"}=$response;
  $Apache::lonhomework::results{"resource.$part.$id.awarddetail"}=$award;   $Apache::lonhomework::results{"resource.$part.$id.awarddetail"}=$award;
  my %previous=&Apache::response::check_for_previous($response,$part,$id);   my %previous=&Apache::response::check_for_previous($response,$part,$id);
  if ($uploadedflag) {   unless ($uploadedflag) { &Apache::response::handle_previous(\%previous,$award); }
                     if ($award eq 'FILENAME_INUSE') {  
                         delete($Apache::lonhomework::results{"resource.$id.tries"});  
                     }  
                 } else {  
                     &Apache::response::handle_previous(\%previous,$award);  
                 }  
 #  #
 # Store with resource author for similarity testing  # Store with resource author for similarity testing
 #  #
Line 270  sub format_prior_response { Line 257  sub format_prior_response {
 }  }
   
 sub file_submission {  sub file_submission {
     my ($part,$id,$award,$uploadedflag,$totalsize,$deletions)=@_;      my ($part,$id,$which,$award,$uploadedflag,$totalsize)=@_;
     my $files;      my $files;
     my $jspart=$part;      my $jspart=$part;
     $jspart=~s/\./_/g;      $jspart=~s/\./_/g;
     my ($symb,$crsid,$udom,$uname) = &Apache::lonnet::whichuser();      if ($which eq 'portfiles') { 
     my %crsinfo = &Apache::lonnet::coursedescription($crsid);          $files= $env{'form.HWPORT'.$jspart.'_'.$id};
     my $cdom = $crsinfo{'domain'};      } elsif ($which eq 'filename') {
     my $cnum = $crsinfo{'num'};          if ($env{'form.HWFILETOOBIG'.$jspart.'_'.$id} ne '') {
     my (@portfiles,$uploadedurl,@submitted_portfiles,$submitted_upload,              $$award = 'EXCESS_FILESIZE';
         @acceptable_portfiles,$acceptable_upload,@accepted_portfiles,              return;
         $accepted_upload,@savedportfiles,$stored_upload,@tolock,          } else {
         %port_delete,$uploaded_delete);              $files = $env{'form.HWFILE'.$jspart.'_'.$id.'.filename'};
     if ($Apache::lonhomework::history{"resource.$part.$id.portfiles"} ||  
         $Apache::lonhomework::history{"resource.$part.$id.uploadedurl"}) {  
         if ($Apache::lonhomework::history{"resource.$part.$id.portfiles"}) {  
             @portfiles = split(/,/,$Apache::lonhomework::history{"resource.$part.$id.portfiles"});  
         }  
         $uploadedurl = $Apache::lonhomework::history{"resource.$part.$id.uploadedurl"};  
         if (ref($deletions) eq 'ARRAY') {  
             if (@{$deletions} > 0) {  
                 foreach my $file (@{$deletions}) {  
                     $file = &HTML::Entities::decode($file);  
                     if (grep(/^\Q$file\E$/,@portfiles)) {  
                         $port_delete{$file} = 1;  
                     } elsif ($file =~ m{^/uploaded/\Q$udom\E/\Q$uname\E/essayresponse/\Q$cdom\E/\Q$cnum\E/}) {  
                         $uploaded_delete = $file;  
                     } elsif ($file =~ m{^/uploaded/\Q$udom\E/\Q$uname\E/essayresponse/[^/]+$}) {  
                         $uploaded_delete = $file;  
                     }  
                 }  
             }  
         }  
         foreach my $current (@portfiles) {  
             unless ($port_delete{$current}) {  
                 push(@savedportfiles,$current);  
             }  
         }  
         if ($uploaded_delete) {  
             if ($uploaded_delete eq $uploadedurl) {  
                 $Apache::lonhomework::results{"resource.$part.$id.uploadedfile"} = "";  
                 $Apache::lonhomework::results{"resource.$part.$id.uploadedurl"} = "";  
             } else {  
                 undef($uploaded_delete);  
             }  
         }  
     }  
     if ($env{'form.HWPORT'.$jspart.'_'.$id} ne '') {  
         my $newfiles= $env{'form.HWPORT'.$jspart.'_'.$id};  
         $newfiles =~s/,$//;  
         if ($newfiles =~ /[^\s]/) {  
             foreach my $file (split(/\s*,\s*/,$newfiles)) {  
                 if ($file =~ /[^\s]/) {  
                     push(@submitted_portfiles,$file);  
                 }  
             }  
         }  
     }  
     if ($env{'form.HWFILETOOBIG'.$part.'_'.$id} ne '') {  
         $$award = 'EXCESS_FILESIZE';  
     } elsif ($env{'form.HWFILE'.$jspart.'_'.$id.'.filename'} ne '') {  
         my $newfile = $env{'form.HWFILE'.$jspart.'_'.$id.'.filename'};  
         if ($newfile =~ /[^\s]/) {  
             $submitted_upload = $newfile;  
         }          }
     }      }
     if (@savedportfiles) {      if ($files =~ /[^\s]/) {
         foreach my $file (reverse(@savedportfiles)) {   $files =~s/,$//;
             unless(grep(/^\Q$file\E$/,@submitted_portfiles)) {          my (@submitted_files,@acceptable_files,@accepted_files);
                 unshift(@submitted_portfiles,$file);          if ($which eq 'portfiles') {
             }              @submitted_files = split(/\s*,\s*/,$files);
           } else {
               @submitted_files = ($files);
         }          }
     }          my $uploadedfiletypes= 
     if (@submitted_portfiles || $submitted_upload) {  
         my $uploadedfiletypes=  
             &Apache::lonnet::EXT("resource.$part".'_'."$id.uploadedfiletypes");              &Apache::lonnet::EXT("resource.$part".'_'."$id.uploadedfiletypes");
         if ($uploadedfiletypes ne '') {          if ($uploadedfiletypes ne '') {
             $uploadedfiletypes=~s/[^\w\,]//g;              $uploadedfiletypes=~s/[^\w\,]//g;
             $uploadedfiletypes=','.$uploadedfiletypes.',';              $uploadedfiletypes=','.$uploadedfiletypes.',';
             if (@submitted_portfiles) {              foreach my $file (@submitted_files) {
                 foreach my $file (@submitted_portfiles) {                  my ($extension)=($file=~/\.(\w+)$/);
                     my ($extension)=($file=~/\.(\w+)$/);                  if ($uploadedfiletypes=~/\,\s*\Q$extension\E\s*\,/i) {
                     if ($uploadedfiletypes=~/\,\s*\Q$extension\E\s*\,/i) {                      push(@acceptable_files,$file);
                         push(@acceptable_portfiles,$file);  
                     }  
                 }  
             }  
             if ($submitted_upload) {  
                 my ($upload_ext)=($submitted_upload=~/\.(\w+)$/);  
                 if ($uploadedfiletypes=~/\,\s*\Q$upload_ext\E\s*\,/i) {  
                     $acceptable_upload = $submitted_upload;  
                 } else {                  } else {
                     $$award='INVALID_FILETYPE';                      $$award='INVALID_FILETYPE';
                     &delete_form_items($jspart,$id);                      if ($which eq 'filename') {
                           &delete_form_items($jspart,$id);
                       }
                 }                  }
             }              }
         } else {          } else {
             @acceptable_portfiles = @submitted_portfiles;              @acceptable_files = @submitted_files;
             $acceptable_upload = $submitted_upload;  
         }          }
     }  
     if ((@acceptable_portfiles) || ($acceptable_upload ne '')) {  
         my $maxfilesize=&Apache::lonnet::EXT("resource.$part".'_'."$id.maxfilesize");          my $maxfilesize=&Apache::lonnet::EXT("resource.$part".'_'."$id.maxfilesize");
         if (!$maxfilesize) {          if (!$maxfilesize) {
             $maxfilesize = 10.0; #FIXME This should become a domain configuration              $maxfilesize = 10.0; #FIXME This should become a domain configuration
         }          }
         my %dirlist;          my %dirlist;
         if (@acceptable_portfiles) {          foreach my $file (@acceptable_files) {
             foreach my $file (@acceptable_portfiles) {              if ($which eq 'filename') {
                   if (ref($totalsize)) {
                       $$totalsize += $env{'form.HWFILESIZE'.$jspart.'_'.$id};
                   }
               } else {
                   my ($symb,$crsid,$udom,$uname) = &Apache::lonnet::whichuser();
                 my ($path,$filename) = ($file =~ m{^(.*/)([^/]+)$});                  my ($path,$filename) = ($file =~ m{^(.*/)([^/]+)$});
                 my $fullpath = '/userfiles/portfolio'.$path;                  my $fullpath = '/userfiles/portfolio'.$path;
                 if (!exists($dirlist{$fullpath})) {                  if (!exists($dirlist{$fullpath})) {
Line 398  sub file_submission { Line 330  sub file_submission {
                         }                          }
                     }                      }
                 }                  }
                 if (ref($totalsize)) {  
                     if ($$totalsize > $maxfilesize) {  
                         $$award='EXCESS_FILESIZE';  
                         &delete_form_items($jspart,$id);  
                     } else {  
                         push(@accepted_portfiles,$file);  
                     }  
                 } else {  
                     push(@accepted_portfiles,$file);  
                 }  
             }              }
         }  
         if ($acceptable_upload ne '') {  
             if (ref($totalsize)) {              if (ref($totalsize)) {
                 $$totalsize += $env{'form.HWFILESIZE'.$jspart.'_'.$id};  
                 if ($$totalsize > $maxfilesize) {                  if ($$totalsize > $maxfilesize) {
                     $$award='EXCESS_FILESIZE';                      $$award='EXCESS_FILESIZE';
                     delete($env{'form.HWFILE'.$jspart.'_'.$id});                      if ($which eq 'filename') {
                           &delete_form_items($jspart,$id);
                       }
                       last;
                 } else {                  } else {
                     $accepted_upload = $acceptable_upload;                      push(@accepted_files,$file);
                 }                  }
             } else {              } else {
                 $accepted_upload = $acceptable_upload;                  push(@accepted_files,$file);
             }              }
         }          }
     }          $Apache::lonhomework::results{"resource.$part.$id.$which"}=join(',',@accepted_files);
     if ($accepted_upload ne '') {          if (($$award eq 'INVALID_FILETYPE') || ($award eq 'EXCESS_FILESIZE')) {
         my ($map,$resid,$resurl)=&Apache::lonnet::decode_symb($symb);              return;
         my $turnindir;  
         my %userhash = &Apache::lonnet::userenvironment($udom,$uname,'turnindir');  
         $turnindir = $userhash{'turnindir'};  
         if ($turnindir eq '') {  
             $turnindir = &mt('turned in');  
             $turnindir =~ s/\W+/_/g;  
             my %newhash = (  
                             'turnindir' => $turnindir,  
                           );  
             &Apache::lonnet::put('environment',\%newhash,$udom,$uname);  
         }  
         my $prefix = 'portfolio';  
         my $path = '/'.$turnindir.'/';  
         my $restitle=&Apache::lonnet::gettitle($symb);  
         $restitle =~ s/\W+/_/g;  
         if ($restitle eq '') {  
             $restitle = ($resurl =~ m{/[^/]+$});  
             if ($restitle eq '') {  
                 $restitle = time;  
             }  
         }          }
         my @pathitems;   if (ref($uploadedflag)) {
         my $navmap = Apache::lonnavmaps::navmap->new();      $$uploadedflag=1;
         if (defined($navmap)) {   }
             my $mapres = $navmap->getResourceByUrl($map);          my ($symb,$crsid,$domain,$name)=&Apache::lonnet::whichuser();
             if (ref($mapres)) {   if ($which eq 'portfiles') {
                 my $pcslist = $mapres->map_hierarchy();      &Apache::lonnet::unmark_as_readonly($domain,$name,[$symb,$crsid]);
                 if ($pcslist ne '') {      &Apache::lonnet::mark_as_readonly($domain,$name,\@submitted_files,[$symb,$crsid]);
                     foreach my $pc (split(/,/,$pcslist)) {      &Apache::lonnet::clear_selected_files($name);
                         my $res = $navmap->getByMapPc($pc);   }
                         if (ref($res)) {   if ($which eq 'filename') {
                             my $title = $res->compTitle();      $Apache::lonhomework::results{"resource.$part.$id.uploadedfile"}=
                             $title =~ s/\W+/_/g;   $files;
                             if ($title ne '') {              my $cleanpart = $part;
                                 push(@pathitems,$title);              $cleanpart =~ s/\W/_/g;
                             }              my $cleanid = $id;
                         }              $cleanid =~ s/\W/_/g;
                     }              my ($map,$resid,$res)=&Apache::lonnet::decode_symb($symb);
                 }              my $container;
                 my $maptitle = $mapres->compTitle();              if ($map =~ /^uploaded/) {
                 $maptitle =~ s/\W+/_/g;                  (my $prefix,$container) = ($map =~ m{^uploaded/[^/]+/[^/]+/(default|supplemental)_?([^.]*)\.(?:sequence|page)$});
                 if ($maptitle ne '') {                  if (length($container) > 10) {
                     push(@pathitems,$maptitle);                      $container = substr($container,-10,10);
                 }                  }
                   if ($container ne '') {
                       $container = $prefix.'_'.$container;
                   } else {
                       $container = $prefix;
                   } 
             } else {              } else {
                 $$award = 'INTERNAL_ERROR';                  ($container) = ($map =~ m{(.+)\.(?:sequence|page)$});
             }                  $container =~ s/\W/_/g;
         } else {                  if (length($container) > 255) {
             $$award = 'INTERNAL_ERROR';                      $container = substr($container,0,254);
         }                  }
         push(@pathitems,$restitle);              }
         $path .= join('/',@pathitems);              my $subdir = 'essayresponse';
         my $formelement = 'HWFILE'.$jspart.'_'.$id;              my %crsdesc = &Apache::lonnet::coursedescription($crsid);
         my $fname = &Apache::lonnet::clean_filename($env{'form.'.$formelement.'.filename'});              foreach my $item ($crsdesc{'domain'},$crsdesc{'num'},$container,$resid,$cleanpart,$cleanid) {
         my $url = '/uploaded/'.$udom.'/'.$uname.'/'.$prefix.$path.'/'.$fname;                  if ($item ne '') {
         my @stat = &Apache::lonnet::stat_file($url);                      $subdir .= '/'.$item;
         if (@stat && $stat[0] ne 'no_such_dir') {                  }
             $$award = 'FILENAME_INUSE';              }
         } else {      $Apache::lonhomework::results{"resource.$part.$id.uploadedurl"}=
             my ($mode,%allfiles,%codebase);   &Apache::lonnet::userfileupload('HWFILE'.$jspart.'_'.$id,undef,
             my $result = &Apache::lonnet::userfileupload($formelement,'',   $subdir);
                              $prefix.$path,$mode,\%allfiles,\%codebase);              delete($env{'form.HWFILE'.$jspart.'_'.$id});
             if ($result =~ m{^/uploaded/}) {  
                 $stored_upload = $path.'/'.$fname;  
                 $Apache::lonhomework::results{"resource.$part.$id.portfiles"} = $stored_upload;  
                 push(@tolock,$stored_upload);  
             } else {  
                  $$award = 'INTERNAL_ERROR';  
             }  
  }   }
         delete($env{'form.HWFILE'.$jspart.'_'.$id});      } elsif ($which eq 'portfiles' &&
        $Apache::lonhomework::history{"resource.$part.$id.$which"}) {
    my ($symb,$crsid,$domain,$name)=&Apache::lonnet::whichuser();
    &Apache::lonnet::unmark_as_readonly($domain,$name,[$symb,$crsid]);
    $Apache::lonhomework::results{"resource.$part.$id.$which"}="";
     }      }
     if (@accepted_portfiles) {  
         if ($stored_upload) {  
             $Apache::lonhomework::results{"resource.$part.$id.portfiles"} .= ',';  
         }  
         $Apache::lonhomework::results{"resource.$part.$id.portfiles"}.=join(',',@accepted_portfiles);  
         push(@tolock,@accepted_portfiles);  
     }  
     if (!defined($Apache::lonhomework::results{"resource.$part.$id.portfiles"})) {  
         if (keys(%port_delete) > 0) {  
             $Apache::lonhomework::results{"resource.$part.$id.portfiles"} = "";  
         }  
     }  
     if (($Apache::lonhomework::history{"resource.$part.$id.portfiles"} ne    
          $Apache::lonhomework::results{"resource.$part.$id.portfiles"}) ||  
         ($uploaded_delete)) {  
         if (ref($uploadedflag)) {  
             $$uploadedflag=1;  
         }  
     }  
     &Apache::lonnet::unmark_as_readonly($udom,$uname,[$symb,$crsid]);  
     &Apache::lonnet::mark_as_readonly($udom,$uname,[@tolock],[$symb,$crsid]);  
     &Apache::lonnet::clear_selected_files($uname);  
     return;  
 }  }
   
 sub delete_form_items {  sub delete_form_items {
Line 530  sub delete_form_items { Line 411  sub delete_form_items {
     delete($env{'form.HWFILE'.$jspart.'_'.$id});      delete($env{'form.HWFILE'.$jspart.'_'.$id});
 }  }
   
   
 sub check_collaborators {  sub check_collaborators {
     my ($ncol,$coll) = @_;      my ($ncol,$coll) = @_;
     my %classlist=&Apache::lonnet::dump('classlist',      my %classlist=&Apache::lonnet::dump('classlist',
Line 537  sub check_collaborators { Line 419  sub check_collaborators {
  $env{'course.'.$env{'request.course.id'}.'.num'});   $env{'course.'.$env{'request.course.id'}.'.num'});
     my (@badcollaborators,$result);      my (@badcollaborators,$result);
       
     my (@collaborators) = split(/[,;\s]+/,$coll);      my (@collaborators) = split(/,?\s+/,$coll);
     foreach my $entry (@collaborators) {      foreach my $entry (@collaborators) {
         my $collaborator;          my $collaborator;
  if ($entry =~ /:/) {   if ($entry =~ /:/) {
Line 585  __END__ Line 467  __END__
   
 =head1 NAME  =head1 NAME
   
 Apache::essayresponse  Apache::easyresponse
   
 =head1 SYNOPSIS  =head1 SYNOPSIS
   
Removed from v.1.101.10.2  
changed lines
  Added in v.1.102

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>