loncom/interface/multidownload.pl - diff

Return to multidownload.pl CVS log

Up to [LON-CAPA] / loncom / interface

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);