--- loncom/interface/lonfeedback.pm 2017/11/12 17:41:32 1.376
+++ loncom/interface/lonfeedback.pm 2017/12/18 23:20:48 1.378
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Feedback
#
-# $Id: lonfeedback.pm,v 1.376 2017/11/12 17:41:32 raeburn Exp $
+# $Id: lonfeedback.pm,v 1.378 2017/12/18 23:20:48 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -674,7 +674,7 @@ END
$newpostsflag,$group,
$prevread,$markondisp,$seehidden);
$discussion .= "\n";
- }
+ }
if ($outputtarget eq 'export') {
if ($manifestok) {
while ($currdepth > 0) {
@@ -698,14 +698,14 @@ END
if (($env{'user.name'} =~ /^$match_username$/)
&& ($env{'user.domain'} =~ /^$match_domain$/)) {
- my $now = time();
+ my $now = time();
my $imszipfile = '/prtspool/'.
join('_',$env{'user.name'},$env{'user.domain'},$now).
'_'.rand(1000000000).'.zip';
my $zip = Archive::Zip->new();
$zip->addTree($tempexport);
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]',
'','').'
';
} else {
@@ -4552,6 +4552,8 @@ ENDREDIR
($env{'request.course.id'} && ($feedurl!~m:^/adm:))
||
($env{'request.course.id'} && ($symb=~/^bulletin\_\_\_/))
+ ||
+ (($env{'request.course.id'} && ($feedurl =~ /ext\.tool$/)))
) {
&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;