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

Diff for /loncom/interface/multidownload.pl between versions 1.32 and 1.33

version 1.32, 2007/05/23 19:07:49 version 1.33, 2007/05/23 19:31:21
Line 131  if (&Apache::lonnet::allowed('vgr',$scop Line 131  if (&Apache::lonnet::allowed('vgr',$scop
         my %record = &Apache::lonnet::restore($symb,$courseid,$studom,$stuname);          my %record = &Apache::lonnet::restore($symb,$courseid,$studom,$stuname);
         my $file_url = '/uploaded/'.$studom.'/'.$stuname.'/portfolio';          my $file_url = '/uploaded/'.$studom.'/'.$stuname.'/portfolio';
         print MANIFEST ($fullname."\n");          print MANIFEST ($fullname."\n");
           my $submission_count = 0;
         foreach my $partid (@$partlist) {          foreach my $partid (@$partlist) {
             my @ids = $res->responseIds($partid);              my @ids = $res->responseIds($partid);
             foreach my $respid(@ids) {              foreach my $respid(@ids) {
Line 140  if (&Apache::lonnet::allowed('vgr',$scop Line 141  if (&Apache::lonnet::allowed('vgr',$scop
                     $file = $file_url.$file;                      $file = $file_url.$file;
                     my ($file_name_only) = ($file =~ /^.*\/(.+$)/);                      my ($file_name_only) = ($file =~ /^.*\/(.+$)/);
                     print MANIFEST ("\t$file_name_only \n");                      print MANIFEST ("\t$file_name_only \n");
                       $submission_count ++;
                     &Apache::lonnet::repcopy($file);                      &Apache::lonnet::repcopy($file);
                     my $source = &Apache::lonnet::filelocation("",$file);                      my $source = &Apache::lonnet::filelocation("",$file);
                       
                     my $destination = "$doc_zip_root/zipdir/$unique_user/$unique_path/$stuname$part_resp_path/$file_name_only";                      my $destination = "$doc_zip_root/zipdir/$unique_user/$unique_path/$stuname$part_resp_path/$file_name_only";
                     if (exists($files_saved{$destination})) {                      if (exists($files_saved{$destination})) {
                         # file has already been saved once                          # file has already been saved once
Line 161  if (&Apache::lonnet::allowed('vgr',$scop Line 162  if (&Apache::lonnet::allowed('vgr',$scop
                 }                  }
             }              }
         }          }
           if (!$submission_count) {
               print MANIFEST ("\tNo Files Submitted \n");
           }
     }      }
           
     &mkpath($doc_zip_root."/zipout/$unique_user",0,0700);      &mkpath($doc_zip_root."/zipout/$unique_user",0,0700);
Removed from v.1.32  
changed lines
  Added in v.1.33

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