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

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

version 1.50, 2004/11/23 14:37:33 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 146  sub end_essayresponse { Line 146  sub end_essayresponse {
     my ($dsymb,$crsid,$domain,$name)=&Apache::lonxml::whichuser();      my ($dsymb,$crsid,$domain,$name)=&Apache::lonxml::whichuser();
     &Apache::lonnet::unmark_as_readonly($domain,$name,$dsymb.$crsid);      &Apache::lonnet::unmark_as_readonly($domain,$name,$dsymb.$crsid);
                     &Apache::lonnet::mark_as_readonly($domain,$name,\@submitted_files,$dsymb.$crsid);                      &Apache::lonnet::mark_as_readonly($domain,$name,\@submitted_files,$dsymb.$crsid);
                       &Apache::lonnet::clear_selected_files($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.50  
changed lines
  Added in v.1.52

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