--- 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 {