loncom/interface/multidownload.pl - diff

Return to multidownload.pl CVS log

Up to [LON-CAPA] / loncom / interface

version 1.11, 2007/04/26 20:26:36	version 1.12, 2007/04/26 21:50:27
Line 92 if (&Apache::lonnet::allowed('vgr',$scop	Line 92 if (&Apache::lonnet::allowed('vgr',$scop
foreach my $file (@$files) {	foreach my $file (@$files) {
$file =~ /(^.*\/)(.+$)/;	$file =~ /(^.*\/)(.+$)/;
my $file_name_only = $2;	my $file_name_only = $2;
my $file_content = &Apache::lonnet::getfile($file);	&Apache::lonnet::repcopy($file);
if (open(my $fh,">$doc_zip_root/zipdir/$uname$udom/$unique_path/$stuname/part$partid/resp$respid/$file_name_only")) {	my $source = &Apache::lonnet::filelocation("",$file);
print($fh $file_content);	&copy($source,"$doc_zip_root/zipdir/$uname$udom/$unique_path/$stuname/part$partid/resp$respid/$file_name_only");
close($fh);
} else {
print("problem creating file <br />");
}
}	}
}	}
}	}