Return to multidownload.pl CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/multidownload.pl between versions 1.34 and 1.39

version 1.34, 2007/05/23 20:30:05	version 1.39, 2011/12/21 21:25:40
Line 31 use LONCAPA::loncgi;	Line 31 use LONCAPA::loncgi;
use File::Path;	use File::Path;
use File::Basename;	use File::Basename;
use File::Copy;	use File::Copy;
use IO::File;
use Apache::lonhtmlcommon();	use Apache::lonhtmlcommon();
use Apache::lonnavmaps;	use Apache::lonnavmaps();
use Apache::lonnet;
use Apache::loncommon();	use Apache::loncommon();
use Apache::lonlocal;	use Apache::lonlocal;
use Apache::lonmsg();	use Apache::lonmsg();
Line 57 sub is_flat {	Line 55 sub is_flat {
}	}
return ($flat_part, $flat_resp);	return ($flat_part, $flat_resp);
}	}


sub get_part_resp_path {	sub get_part_resp_path {
my ($flat_part, $flat_resp, $part_id, $resp_id) = @_;	my ($flat_part, $flat_resp, $part_id, $resp_id) = @_;
my $part_resp_path = "";	my $part_resp_path = "";
Line 69 sub get_part_resp_path {	Line 69 sub get_part_resp_path {
$part_resp_path =~ s/\/^//;	$part_resp_path =~ s/\/^//;
return('/'.$part_resp_path);	return('/'.$part_resp_path);
}	}


$\|=1;	$\|=1;
	&Apache::lonlocal::get_language_handle();
	&Apache::loncommon::content_type(undef,'text/html');
if (! &LONCAPA::loncgi::check_cookie_and_load_env()) {	if (! &LONCAPA::loncgi::check_cookie_and_load_env()) {
print <<END;	print(&LONCAPA::loncgi::missing_cookie_msg());
Content-type: text/html

<html>
<head><title>Bad Cookie</title></head>
<body>
Your cookie information is incorrect.
</body>
</html>
END
return;	return;
}	}
&Apache::lonlocal::get_language_handle();
&Apache::loncommon::content_type(undef,'text/html');
my $identifier = $ENV{'QUERY_STRING'};	my $identifier = $ENV{'QUERY_STRING'};
my $unique_path = $identifier.time();	my $unique_path = $identifier.time();
print(&Apache::loncommon::start_page('Multiple Downloads'));	print(&Apache::loncommon::start_page('Multiple Downloads'));
Line 106 if (&Apache::lonnet::allowed('vgr',$scop	Line 100 if (&Apache::lonnet::allowed('vgr',$scop
my $courseid = $env{'request.course.id'};	my $courseid = $env{'request.course.id'};
my @stuchecked = split(/\n/,$env{'cgi.'.$identifier.'.students'});	my @stuchecked = split(/\n/,$env{'cgi.'.$identifier.'.students'});
my $number_of_students = scalar(@stuchecked);	my $number_of_students = scalar(@stuchecked);
my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin('','Processing Status',	my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin('',$number_of_students);
'Preparing Zip File',$number_of_students,'inline','80');
my @parts = split(/\n/,$env{'cgi.'.$identifier.'.parts'});	my @parts = split(/\n/,$env{'cgi.'.$identifier.'.parts'});
my $doc_zip_root = $Apache::lonnet::perlvar{'lonZipDir'};	my $doc_zip_root = $Apache::lonnet::perlvar{'lonZipDir'};
my $uname = $env{'user.name'};	my $uname = $env{'user.name'};
Line 120 if (&Apache::lonnet::allowed('vgr',$scop	Line 113 if (&Apache::lonnet::allowed('vgr',$scop
print MANIFEST (&mt("Zip file generated on [_1]",&Apache::lonlocal::locallocaltime(time()))."\n");	print MANIFEST (&mt("Zip file generated on [_1]",&Apache::lonlocal::locallocaltime(time()))."\n");
print MANIFEST (&mt("Course: [_1]",$env{"course.$courseid.description"})."\n");	print MANIFEST (&mt("Course: [_1]",$env{"course.$courseid.description"})."\n");
print MANIFEST (&mt("Problem: [_1]",$res->compTitle)."\n");	print MANIFEST (&mt("Problem: [_1]",$res->compTitle)."\n");
print MANIFEST (&mt("Files contained in this zip:\n"));	print MANIFEST (&mt("Files contained in this zip:")."\n");
my $file_problem = 0;	my $file_problem = 0;
my $current_student = 0;	my $current_student = 0;
foreach my $stu (@stuchecked) {	foreach my $stu (@stuchecked) {
$current_student ++;	$current_student ++;
&Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state,"Processing student $current_student of $number_of_students");	&Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state,&mt("Processing student [_1] of [_2]",$current_student,$number_of_students));
my %files_saved;	my %files_saved;
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);
my $file_url = '/uploaded/'.$studom.'/'.$stuname.'/portfolio';	my $port_url = '/uploaded/'.$studom.'/'.$stuname.'/portfolio';
print MANIFEST ($fullname."\n");	print MANIFEST ($fullname."\n");

my $submission_count = 0;	my $submission_count = 0;
foreach my $partid (@$partlist) {	foreach my $partid (@$partlist) {
my @ids = $res->responseIds($partid);	my @ids = $res->responseIds($partid);
foreach my $respid(@ids) {	foreach my $respid (@ids) {
my $part_resp_path = &get_part_resp_path($flat_part,$flat_resp, $partid, $respid);	my $part_resp_path = &get_part_resp_path($flat_part,$flat_resp, $partid, $respid);
&mkpath($doc_zip_root."/zipdir/$unique_user/$unique_path/$stuname/$part_resp_path",0,0700);	&mkpath($doc_zip_root."/zipdir/$unique_user/$unique_path/$stuname/$part_resp_path",0,0700);
foreach my $file (split(',',$record{"resource.$partid.$respid.portfiles"})) {	foreach my $origin ('portfiles','uploadedurl') {
$file = $file_url.$file;	my @files;
my ($file_name_only) = ($file =~ /^.*\/(.+$)/);	if ($record{"resource.$partid.$respid.$origin"} ne '') {
print MANIFEST ("\t$file_name_only \n");	if ($origin eq 'portfiles') {
$submission_count ++;	@files = (split(',',$record{"resource.$partid.$respid.$origin"}));
&Apache::lonnet::repcopy($file);	} else {
my $source = &Apache::lonnet::filelocation("",$file);	@files = ($record{"resource.$partid.$respid.$origin"});
my $destination = "$doc_zip_root/zipdir/$unique_user/$unique_path/$stuname$part_resp_path/$file_name_only";	}
if (exists($files_saved{$destination})) {
# file has already been saved once
my ($file_name,$file_ext) = ($destination =~ /(^.*)(\..+$)/);
$destination = $file_name.$files_saved{$destination}.$file_ext;
$files_saved{$destination} ++;
}	}
$files_saved{$destination}++;	foreach my $file (@files) {
if (!&copy($source,$destination)) {	if ($origin eq 'portfiles') {
if (!$file_problem) {	$file = $port_url.$file;
print(&mt("Unable to create: <br />"));	}
$file_problem = 1;	my ($file_name_only) = ($file =~ m{.*/([^/]+)$});
	print MANIFEST ("\t$file_name_only (".&mt("Part [_1]",$partid).
	") (".&mt("Response [_1]",$respid).")"."\n");
	$submission_count ++;
	&Apache::lonnet::repcopy($file);
	my $source = &Apache::lonnet::filelocation("",$file);
	my $destination = "$doc_zip_root/zipdir/$unique_user/$unique_path/$stuname$part_resp_path/$file_name_only";
	if (exists($files_saved{$destination})) {
	# file has already been saved once
	my ($file_name,$file_ext) =
	($destination =~ /(^.*)(\..+$)/);
	$destination = $file_name.$files_saved{$destination}.$file_ext;
	$files_saved{$destination}++;
	}
	$files_saved{$destination}++;
	if (!&copy($source,$destination)) {
	if (!$file_problem) {
	print('<br /><span class="LC_error">'.&mt("Unable to create: ")."</span><br />");
	$file_problem = 1;
	}
	print('<span class="LC_filename">'."$stuname/part$partid/resp$respid/$file_name_only".'</span><br />');
}	}
print("$stuname/part$partid/resp$respid/$file_name_only <br />");
}	}
}	}
}	}

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.

Removed from v.1.34
changed lines
	Added in v.1.39