|
version 1.16, 2007/04/27 22:07:19
|
version 1.17, 2007/04/27 22:16:22
|
|
Line 73 if (&Apache::lonnet::allowed('vgr',$scop
|
Line 73 if (&Apache::lonnet::allowed('vgr',$scop
|
| |
|
| my $navmap = Apache::lonnavmaps::navmap->new(); |
my $navmap = Apache::lonnavmaps::navmap->new(); |
| my $res = $navmap->getBySymb($symb); |
my $res = $navmap->getBySymb($symb); |
| |
&Apache::lonnet::logthis("$navmap is navmap"); |
| |
|
| my ($zipout) = ($symb =~ /^.*\/(.+)\.problem$/); |
my ($zipout) = ($symb =~ /^.*\/(.+)\.problem$/); |
| $zipout =~ s/\s/_/g; |
$zipout =~ s/\s/_/g; |
|
Line 99 if (&Apache::lonnet::allowed('vgr',$scop
|
Line 99 if (&Apache::lonnet::allowed('vgr',$scop
|
| &mkpath($doc_zip_root."/zipdir/$unique_user/$unique_path/$stuname/part$partid/resp$respid",0,0700); |
&mkpath($doc_zip_root."/zipdir/$unique_user/$unique_path/$stuname/part$partid/resp$respid",0,0700); |
| my $files = &Apache::grades::get_submitted_files($studom,$stuname,$partid,$respid,\%record); |
my $files = &Apache::grades::get_submitted_files($studom,$stuname,$partid,$respid,\%record); |
| foreach my $file (@$files) { |
foreach my $file (@$files) { |
| $file =~ /(^.*\/)(.+$)/; |
my ($file_name_only) = ($file =~ /^.*\/(.+$)/); |
| my $file_name_only = $2; |
|
| &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$partid/resp$respid/$file_name_only"; |
my $destination = "$doc_zip_root/zipdir/$unique_user/$unique_path/$stuname/part$partid/resp$respid/$file_name_only"; |
![[BACK]](/icons/back.gif){kind=icon}
Return to multidownload.pl CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface