loncom/interface/lonfeedback.pm - diff

Return to lonfeedback.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.376, 2017/11/12 17:41:32	version 1.377, 2017/12/18 22:36:52
Line 674 END	Line 674 END
$newpostsflag,$group,	$newpostsflag,$group,
$prevread,$markondisp,$seehidden);	$prevread,$markondisp,$seehidden);
$discussion .= "</table></form>\n";	$discussion .= "</table></form>\n";
}	}
if ($outputtarget eq 'export') {	if ($outputtarget eq 'export') {
if ($manifestok) {	if ($manifestok) {
while ($currdepth > 0) {	while ($currdepth > 0) {
Line 698 END	Line 698 END

if (($env{'user.name'} =~ /^$match_username$/)	if (($env{'user.name'} =~ /^$match_username$/)
&& ($env{'user.domain'} =~ /^$match_domain$/)) {	&& ($env{'user.domain'} =~ /^$match_domain$/)) {
my $now = time();	my $now = time();
my $imszipfile = '/prtspool/'.	my $imszipfile = '/prtspool/'.
join('_',$env{'user.name'},$env{'user.domain'},$now).	join('_',$env{'user.name'},$env{'user.domain'},$now).
'_'.rand(1000000000).'.zip';	'_'.rand(1000000000).'.zip';
my $zip = Archive::Zip->new();	my $zip = Archive::Zip->new();
$zip->addTree($tempexport);	$zip->addTree($tempexport);
my $imszip = '/home/httpd/'.$imszipfile;	my $imszip = '/home/httpd/'.$imszipfile;
if ($zip->writeToFileNamed($imszip) == AZ_OK) {	if ($zip->writeToFileNamed($imszip) == AZ_OK) {
$discussion .= &mt('Download the zip file from [_1]Discussion Posting Archive[_2]',	$discussion .= &mt('Download the zip file from [_1]Discussion Posting Archive[_2]',
'<a href="'.$imszipfile.'">','</a>').'<br />';	'<a href="'.$imszipfile.'">','</a>').'<br />';
} else {	} else {