version 1.26, 2007/05/13 18:00:32
|
version 1.27, 2007/05/21 22:00:29
|
Line 115 if (&Apache::lonnet::allowed('vgr',$scop
|
Line 115 if (&Apache::lonnet::allowed('vgr',$scop
|
my $udom = $env{'user.domain'}; |
my $udom = $env{'user.domain'}; |
my $unique_user = $uname.":".$udom; |
my $unique_user = $uname.":".$udom; |
&mkpath($doc_zip_root."/zipdir/$unique_user/$unique_path",0,0700); |
&mkpath($doc_zip_root."/zipdir/$unique_user/$unique_path",0,0700); |
if (!open MANIFEST, ">$doc_zip_root/zipdir/$unique_user/$unique_path/manifest.txt") { |
if (!open(MANIFEST, ">$doc_zip_root/zipdir/$unique_user/$unique_path/manifest.txt")) { |
&Apache::lonnet::logthis("Problem making manifest"); |
&Apache::lonnet::logthis("Problem making manifest"); |
} |
} |
print MANIFEST &mt("Files contained in this zip:\n"); |
print MANIFEST &mt("Files contained in this zip:\n"); |