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

Diff for /loncom/homework/essayresponse.pm between versions 1.47 and 1.52

version 1.47, 2004/11/13 21:07:20 version 1.52, 2004/12/06 18:09:54
Line 70  sub start_essayresponse { Line 70  sub start_essayresponse {
  $part.'_'.$id.'" onFocus="this.form.enctype='.   $part.'_'.$id.'" onFocus="this.form.enctype='.
  "'multipart/form-data'".';" /><br />'.   "'multipart/form-data'".';" /><br />'.
  &mt('Allowed filetypes: <b>[_1]</b>',$uploadedfiletypes).'<br />'.   &mt('Allowed filetypes: <b>[_1]</b>',$uploadedfiletypes).'<br />'.
                 '<strong>OR:</strong><br /><a href='."'".'javascript:void(window.open("/adm/portfolio?mode=selectfile&fieldname=HWPORT'.$part.'_'.$id.'","cat","height=400,'.                  '<strong>OR:</strong><br /><a href='."'".'javascript:void(window.open("/adm/portfolio?mode=selectfile&amp;fieldname=HWPORT'.$part.'_'.$id.'","cat","height=600,'.
                 'width=500,scrollbars=1,resizable=1,menubar=0,location=1"))'."'".'>Select Portfolio Files</a>'.                  'width=600,scrollbars=1,resizable=1,menubar=2,location=1"))'."'".'>Select Portfolio Files</a>'.
                 '<br />'.                  '<br />'.
                 '<input type="text" size="50" name="HWPORT'.$part.'_'.$id.'" value="" />'.                  '<input type="text" size="50" name="HWPORT'.$part.'_'.$id.'" value="" />'.
  '<br />';   '<br />';
     if ($Apache::lonhomework::history{"resource.$part.$id.portfiles"}=~/[^\s]/){      if ($Apache::lonhomework::history{"resource.$part.$id.portfiles"}=~/[^\s]/){
         $result.="Portfolio files previously selected: <strong>".$Apache::lonhomework::history{"resource.$part.$id.portfiles"}."</strong><br />";          $result.="Portfolio files previously selected: <strong>".&Apache::lonnet::unescape($Apache::lonhomework::history{"resource.$part.$id.portfiles"})."</strong><br />";
     }      }
   
             if ($uploadedfile) {              if ($uploadedfile) {
Line 140  sub end_essayresponse { Line 140  sub end_essayresponse {
                    }                     }
         }          }
                 if ($portfiles =~ /[^\s]/) {                  if ($portfiles =~ /[^\s]/) {
                       $portfiles =~s/,$//;
                     $Apache::lonhomework::results{"resource.$part.$id.portfiles"}=$portfiles;                      $Apache::lonhomework::results{"resource.$part.$id.portfiles"}=$portfiles;
                     $Apache::lonhomework::results{"resource.$part.$id.uploadedurl"}=$portfiles;  
                     my @submitted_files = split /,/,$portfiles;                      my @submitted_files = split /,/,$portfiles;
     my ($dsymb,$crsid,$domain,$name)=      my ($dsymb,$crsid,$domain,$name)=&Apache::lonxml::whichuser();
  &Apache::lonxml::whichuser();      &Apache::lonnet::unmark_as_readonly($domain,$name,$dsymb.$crsid);
                     foreach (@submitted_files) {                      &Apache::lonnet::mark_as_readonly($domain,$name,\@submitted_files,$dsymb.$crsid);
                         my $file = $_;                      &Apache::lonnet::clear_selected_files($name);
  &Apache::lonnet::put('file_permissions',  
  { $dsymb.$crsid => $file },$domain,$name);  
                     }  
                     $uploadedflag=1;                      $uploadedflag=1;
            }             }
  $Apache::lonhomework::results{"resource.$part.$id.submission"}=$response;   $Apache::lonhomework::results{"resource.$part.$id.submission"}=$response;
Removed from v.1.47  
changed lines
  Added in v.1.52

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