version 1.27, 2007/05/21 22:00:29
|
version 1.28, 2007/05/21 22:26:41
|
Line 118 if (&Apache::lonnet::allowed('vgr',$scop
|
Line 118 if (&Apache::lonnet::allowed('vgr',$scop
|
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("Zip file generated ").&Apache::lonlocal::locallocaltime(time())."\n"); |
|
print(MANIFEST &mt("Files contained in this zip:\n")); |
my $file_problem = 0; |
my $file_problem = 0; |
my $current_student = 0; |
my $current_student = 0; |
foreach my $stu (@stuchecked) { |
foreach my $stu (@stuchecked) { |
Line 128 if (&Apache::lonnet::allowed('vgr',$scop
|
Line 129 if (&Apache::lonnet::allowed('vgr',$scop
|
my ($stuname,$studom,$fullname) = split(/:/,$stu); |
my ($stuname,$studom,$fullname) = split(/:/,$stu); |
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"); |
|
|
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 138 if (&Apache::lonnet::allowed('vgr',$scop
|
Line 138 if (&Apache::lonnet::allowed('vgr',$scop
|
foreach my $file (split(',',$record{"resource.$partid.$respid.portfiles"})) { |
foreach my $file (split(',',$record{"resource.$partid.$respid.portfiles"})) { |
$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"); |
&Apache::lonnet::repcopy($file); |
&Apache::lonnet::repcopy($file); |
my $source = &Apache::lonnet::filelocation("",$file); |
my $source = &Apache::lonnet::filelocation("",$file); |
|
|
Line 152 if (&Apache::lonnet::allowed('vgr',$scop
|
Line 152 if (&Apache::lonnet::allowed('vgr',$scop
|
$files_saved{$destination}++; |
$files_saved{$destination}++; |
if (!©($source,$destination)) { |
if (!©($source,$destination)) { |
if (!$file_problem) { |
if (!$file_problem) { |
print &mt("Unable to create: <br />"); |
print(&mt("Unable to create: <br />")); |
$file_problem = 1; |
$file_problem = 1; |
} |
} |
print ("$stuname/part$partid/resp$respid/$file_name_only <br />"); |
print("$stuname/part$partid/resp$respid/$file_name_only <br />"); |
} |
} |
} |
} |
} |
} |