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

Diff for /loncom/homework/essayresponse.pm between versions 1.92 and 1.93

version 1.92, 2008/11/20 14:37:37 version 1.93, 2008/12/09 00:23:22
Line 51  sub start_essayresponse { Line 51  sub start_essayresponse {
  my $coll= &HTML::Entities::encode($Apache::lonhomework::history{"resource.$part.$id.collaborators"},'<>&"');   my $coll= &HTML::Entities::encode($Apache::lonhomework::history{"resource.$part.$id.collaborators"},'<>&"');
  my $uploadedfiletypes= &Apache::lonnet::EXT("resource.$part".'_'."$id.uploadedfiletypes");   my $uploadedfiletypes= &Apache::lonnet::EXT("resource.$part".'_'."$id.uploadedfiletypes");
         $uploadedfiletypes=~s/[^\w\,]//g;          $uploadedfiletypes=~s/[^\w\,]//g;
           my $maxfilesize=&Apache::lonnet::EXT("resource.$part".'_'."$id.maxfilesize");
           if (!defined($maxfilesize)) {
               $maxfilesize = 10.0; #FIXME This should become a domain configuration 
           }
  if ( $Apache::lonhomework::type eq 'survey' ) {   if ( $Apache::lonhomework::type eq 'survey' ) {
     $result.= '<input type="hidden" name="HWDRAFT'.$part.'_'.$id.'" value="yes" /> ';      $result.= '<input type="hidden" name="HWDRAFT'.$part.'_'.$id.'" value="yes" /> ';
  }   }
Line 80  sub start_essayresponse { Line 84  sub start_essayresponse {
     $result .= &check_collaborators($ncol,$coll) if ($coll =~ /\w+/);      $result .= &check_collaborators($ncol,$coll) if ($coll =~ /\w+/);
     $result .='</td></tr>';      $result .='</td></tr>';
  }   }
  $result.=&Apache::inputtags::file_selector($part,$id,          my $filesfrom = 'both';
    $uploadedfiletypes,'both');          my $stuname = &Apache::lonnet::EXT('user.name');
           my $studom = &Apache::lonnet::EXT('user.domain');
           if (!&Apache::lonnet::usertools_access($stuname,$studom,'portfolio')) {
               $filesfrom = 'uploadonly';
           }
    $result.=&Apache::inputtags::file_selector($part,$id,$uploadedfiletypes,
      $filesfrom,undef,$maxfilesize);
         $result.='</table>';          $result.='</table>';
     } elsif ($target eq 'web' &&      } elsif ($target eq 'web' &&
      $Apache::inputtags::status[-1] ne 'CAN_ANSWER') {       $Apache::inputtags::status[-1] ne 'CAN_ANSWER') {
Line 273  sub file_submission { Line 283  sub file_submission {
         }          }
         my $maxfilesize=&Apache::lonnet::EXT("resource.$part".'_'."$id.maxfilesize");          my $maxfilesize=&Apache::lonnet::EXT("resource.$part".'_'."$id.maxfilesize");
         if (!$maxfilesize) {          if (!$maxfilesize) {
             $maxfilesize = 100.0; #FIXME This should become a domain configuration              $maxfilesize = 10.0; #FIXME This should become a domain configuration
         }          }
         my %dirlist;          my %dirlist;
         foreach my $file (@acceptable_files) {          foreach my $file (@acceptable_files) {
Line 433  described at http://www.lon-capa.org. Line 443  described at http://www.lon-capa.org.
   
 =back  =back
   
 =cut  
   
   =cut
Removed from v.1.92  
changed lines
  Added in v.1.93

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