version 1.34, 2007/05/23 20:30:05
|
version 1.35, 2007/05/23 20:40:44
|
Line 140 if (&Apache::lonnet::allowed('vgr',$scop
|
Line 140 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 (".&mt("Part [_1]",$partid). |
|
") (".&mt("Response [_1]",$respid).")"."\n"); |
$submission_count ++; |
$submission_count ++; |
&Apache::lonnet::repcopy($file); |
&Apache::lonnet::repcopy($file); |
my $source = &Apache::lonnet::filelocation("",$file); |
my $source = &Apache::lonnet::filelocation("",$file); |