loncom/interface/multidownload.pl - diff

Return to multidownload.pl CVS log

Up to [LON-CAPA] / loncom / interface

version 1.13, 2007/04/26 22:05:50	version 1.14, 2007/04/26 22:16:57
Line 83 if (&Apache::lonnet::allowed('vgr',$scop	Line 83 if (&Apache::lonnet::allowed('vgr',$scop
my $udom = $env{'user.domain'};	my $udom = $env{'user.domain'};
&mkpath($doc_zip_root."/zipdir/$uname$udom/$unique_path",0,0700);	&mkpath($doc_zip_root."/zipdir/$uname$udom/$unique_path",0,0700);
foreach my $stu (@stuchecked) {	foreach my $stu (@stuchecked) {
	my $file_problem = 0;
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);
foreach my $part (@part_response_id) {	foreach my $part (@part_response_id) {
Line 94 if (&Apache::lonnet::allowed('vgr',$scop	Line 95 if (&Apache::lonnet::allowed('vgr',$scop
my $file_name_only = $2;	my $file_name_only = $2;
&Apache::lonnet::repcopy($file);	&Apache::lonnet::repcopy($file);
my $source = &Apache::lonnet::filelocation("",$file);	my $source = &Apache::lonnet::filelocation("",$file);
&copy($source,"$doc_zip_root/zipdir/$uname$udom/$unique_path/$stuname/part$partid/resp$respid/$file_name_only");	if (!&copy($source,"$doc_zip_root/zipdir/$uname$udom/$unique_path/$stuname/part$partid/resp$respid/$file_name_only")) {
	if (!$file_problem) {
	print &mt("Unable to create: <br />");
	$file_problem = 1;
	}
	print ("$stuname/part$partid/resp$respid/$file_name_only <br />");
	}
}	}
}	}
}	}