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

Diff for /loncom/interface/portfolio.pm between versions 1.48 and 1.49

version 1.48, 2004/10/12 00:44:05 version 1.49, 2004/10/18 20:37:30
Line 318  sub select_files { Line 318  sub select_files {
     my $java_script =(<<ENDSMP);      my $java_script =(<<ENDSMP);
         <script language='javascript'>          <script language='javascript'>
         function finishSelect() {          function finishSelect() {
             opener.document.forms.lonhomework.selectedfiles.value='files were selected';              fileList = "";
                           for (i=0;i<document.forms.checkselect.length;i++) { 
                   if (document.forms.checkselect[i].checked){
                       fileList = fileList + document.forms.checkselect[i].value + "," ;
                   }
               }
               opener.document.forms.lonhomework.
   ENDSMP
       $java_script .= $ENV{'form.fieldname'};
       $java_script .= (<<ENDSMP);
           .value=fileList;
             self.close();              self.close();
         }          }
         </script>          </script>
Line 339  ENDSMP Line 348  ENDSMP
     $ENV{'user.name'},$portfolio_root);      $ENV{'user.name'},$portfolio_root);
     if ($dir_list[0] eq 'no_such_dir'){      if ($dir_list[0] eq 'no_such_dir'){
  # two main reasons for this:   # two main reasons for this:
         #    1) never been here, so directory structure not created          #    1) never been here, so directory structure not created,
  #    2) back-button navigation after deleting a directory   #    2) back-button navigation after deleting a directory
         if ($current_path eq '/'){          if ($current_path eq '/'){
         &Apache::lonnet::mkdiruserfile($ENV{'user.name'},          &Apache::lonnet::mkdiruserfile($ENV{'user.name'},
Line 456  sub handler { Line 465  sub handler {
     $r->rflush();      $r->rflush();
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},      &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
                                             ['selectfile','currentpath',                                              ['selectfile','currentpath',
      'currentfile','action']);       'currentfile','action','fieldname']);
  if (($ENV{'form.storeupl'} eq 'Upload') & (!$ENV{'form.uploaddoc.filename'})){   if (($ENV{'form.storeupl'} eq 'Upload') & (!$ENV{'form.uploaddoc.filename'})){
        $r->print('<font color="red"> No file was selected to upload.'.         $r->print('<font color="red"> No file was selected to upload.'.
                'To upload a file, click <strong>Browse...</strong>'.                 'To upload a file, click <strong>Browse...</strong>'.
Removed from v.1.48  
changed lines
  Added in v.1.49

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