--- loncom/interface/lonfeedback.pm 2017/11/12 17:41:32 1.376
+++ loncom/interface/lonfeedback.pm 2017/12/18 22:36:52 1.377
@@ -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.377 2017/12/18 22:36:52 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 {