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.13, 2007/04/26 22:05:50
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 />");
}
}	}
}	}
}	}
Line 108 if (&Apache::lonnet::allowed('vgr',$scop	Line 104 if (&Apache::lonnet::allowed('vgr',$scop
system($statement);	system($statement);
$statement = "rm -rf $doc_zip_root/zipdir/$uname$udom/$unique_path";	$statement = "rm -rf $doc_zip_root/zipdir/$uname$udom/$unique_path";
system($statement);	system($statement);
print('<a href="/zipspool/zipout/'.$uname.$udom.'/'.$zipout.'">Click to download</a><br />');	print('<a href="/zipspool/zipout/'.$uname.$udom.'/'.$zipout.'">'.
	&mt("Click to download").'</a><br />');
} else {	} else {
print('You are not authorized to download student submissions.');	print(&mt('You are not authorized to download student submissions.'));
}	}
1;	1;
__END__;	__END__;