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"; |