version 1.33, 2007/05/23 19:31:21
|
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); |
Line 163 if (&Apache::lonnet::allowed('vgr',$scop
|
Line 164 if (&Apache::lonnet::allowed('vgr',$scop
|
} |
} |
} |
} |
if (!$submission_count) { |
if (!$submission_count) { |
print MANIFEST ("\tNo Files Submitted \n"); |
print MANIFEST ("\t".&mt("No Files Submitted")."\n"); |
} |
} |
} |
} |
|
|