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

Diff for /loncom/interface/portfolio.pm between versions 1.62 and 1.63

version 1.62, 2004/12/04 19:08:42 version 1.63, 2004/12/06 18:13:10
Line 372  sub select_files { Line 372  sub select_files {
     if ($java_files) {      if ($java_files) {
         $java_files.=',';          $java_files.=',';
     }      }
     my $java_script =(<<ENDSMP);      my $javascript =(<<ENDSMP);
         <script language='javascript'>          <script language='javascript'>
         function finishSelect() {          function finishSelect() {
 ENDSMP  ENDSMP
     $java_script .= 'fileList = "'.$java_files.'";';      $javascript .= 'fileList = "'.$java_files.'";';
     $java_script .= (<<ENDSMP);      $javascript .= (<<ENDSMP);
             for (i=0;i<document.forms.checkselect.length;i++) {               for (i=0;i<document.forms.checkselect.length;i++) { 
                 if (document.forms.checkselect[i].checked){                  if (document.forms.checkselect[i].checked){
                     fileList = fileList + document.forms.checkselect.currentpath.value + document.forms.checkselect[i].value + "," ;                      fileList = fileList + document.forms.checkselect.currentpath.value + document.forms.checkselect[i].value + "," ;
Line 385  ENDSMP Line 385  ENDSMP
             }              }
             opener.document.forms.lonhomework.              opener.document.forms.lonhomework.
 ENDSMP  ENDSMP
     $java_script .= $ENV{'form.fieldname'};      $javascript .= $ENV{'form.fieldname'};
     $java_script .= (<<ENDSMP);      $javascript .= (<<ENDSMP);
         .value=fileList;          .value=fileList;
             self.close();              self.close();
         }          }
         </script>          </script>
 ENDSMP  ENDSMP
     $r->print($java_script);      $r->print($javascript);
     $r->print("<h1>Select portfolio files</h1>      $r->print("<h1>Select portfolio files</h1>
                 Check as many as you wish in response to the essay problem.<br />");                  Check as many as you wish in response to the essay problem.<br />");
     $r->print("<strong>Files selected from other directories:</strong><br />");      $r->print("<strong>Files selected from other directories:</strong><br />");
Removed from v.1.62  
changed lines
  Added in v.1.63

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