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

Diff for /loncom/homework/essayresponse.pm between versions 1.49 and 1.51

version 1.49, 2004/11/21 19:18:43 version 1.51, 2004/12/04 19:16:42
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&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 />';
Line 140  sub end_essayresponse { Line 140  sub end_essayresponse {
                    }                     }
         }          }
                 if ($portfiles =~ /[^\s]/) {                  if ($portfiles =~ /[^\s]/) {
                     $portfiles =~ /(.*)(,$)/;                      $portfiles =~s/,$//;
                     $portfiles = $1;  
                     $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)=&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.49  
changed lines
  Added in v.1.51

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