version 1.11, 2007/04/26 20:26:36
|
version 1.12, 2007/04/26 21:50:27
|
Line 92 if (&Apache::lonnet::allowed('vgr',$scop
|
Line 92 if (&Apache::lonnet::allowed('vgr',$scop
|
foreach my $file (@$files) { |
foreach my $file (@$files) { |
$file =~ /(^.*\/)(.+$)/; |
$file =~ /(^.*\/)(.+$)/; |
my $file_name_only = $2; |
my $file_name_only = $2; |
my $file_content = &Apache::lonnet::getfile($file); |
&Apache::lonnet::repcopy($file); |
if (open(my $fh,">$doc_zip_root/zipdir/$uname$udom/$unique_path/$stuname/part$partid/resp$respid/$file_name_only")) { |
my $source = &Apache::lonnet::filelocation("",$file); |
print($fh $file_content); |
©($source,"$doc_zip_root/zipdir/$uname$udom/$unique_path/$stuname/part$partid/resp$respid/$file_name_only"); |
close($fh); |
|
} else { |
|
print("problem creating file <br />"); |
|
} |
|
} |
} |
} |
} |
} |
} |