version 1.373, 2017/05/30 00:01:32
|
version 1.379, 2018/04/14 17:52:43
|
Line 44 use HTML::LCParser();
|
Line 44 use HTML::LCParser();
|
#use HTML::Tidy::libXML; |
#use HTML::Tidy::libXML; |
use Apache::lonspeller(); |
use Apache::lonspeller(); |
use Apache::longroup; |
use Apache::longroup; |
use Cwd; |
use Archive::Zip qw( :ERROR_CODES ); |
use LONCAPA; |
use LONCAPA qw(:DEFAULT :match); |
|
|
sub discussion_open { |
sub discussion_open { |
my ($status,$symb)=@_; |
my ($status,$symb)=@_; |
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 696 END
|
Line 696 END
|
|
|
#Create zip file in prtspool |
#Create zip file in prtspool |
|
|
my $imszipfile = '/prtspool/'. |
if (($env{'user.name'} =~ /^$match_username$/) |
$env{'user.name'}.'_'.$env{'user.domain'}.'_'. |
&& ($env{'user.domain'} =~ /^$match_domain$/)) { |
time.'_'.rand(1000000000).'.zip'; |
my $now = time(); |
my $cwd = &getcwd(); |
my $imszipfile = '/prtspool/'. |
my $imszip = '/home/httpd/'.$imszipfile; |
join('_',$env{'user.name'},$env{'user.domain'},$now). |
chdir $tempexport; |
'_'.rand(1000000000).'.zip'; |
open(OUTPUT, "zip -r $imszip * 2> /dev/null |"); |
my $zip = Archive::Zip->new(); |
close(OUTPUT); |
$zip->addTree($tempexport); |
chdir $cwd; |
my $imszip = '/home/httpd/'.$imszipfile; |
$discussion .= &mt('Download the zip file from [_1]Discussion Posting Archive[_2]', |
if ($zip->writeToFileNamed($imszip) == AZ_OK) { |
|
$discussion .= &mt('Download the zip file from [_1]Discussion Posting Archive[_2]', |
'<a href="'.$imszipfile.'">','</a>').'<br />'; |
'<a href="'.$imszipfile.'">','</a>').'<br />'; |
if ($copyresult) { |
} else { |
$discussion .= '<span class="LC_error">'. |
$discussion .= &mt('Failed to create zip file').'<br />'; |
&mt('The following errors occurred during export:'). |
} |
'</span><br />'.$copyresult; |
if ($copyresult) { |
|
$discussion .= '<span class="LC_error">'. |
|
&mt('The following errors occurred during export:'). |
|
'</span><br />'.$copyresult; |
|
} |
|
} else { |
|
$discussion .= '<p class="LC_error">'. |
|
&mt('Unfortunately you will not be able to retrieve an archive of the discussion posts at this time, because there was a problem creating the zip file.').'</p>'; |
} |
} |
} |
} |
} else { |
} else { |
Line 847 sub send_feedback_link {
|
Line 855 sub send_feedback_link {
|
&discussion_link($ressymb, |
&discussion_link($ressymb, |
'<img alt="" class="LC_noBorder" src="'. |
'<img alt="" class="LC_noBorder" src="'. |
&Apache::loncommon::lonhttpdurl('/adm/lonMisc/chat.gif'). |
&Apache::loncommon::lonhttpdurl('/adm/lonMisc/chat.gif'). |
'" border="0" /><span class="LC_menubuttons_inline_text">'.&mt('Post Discussion').'</span>', |
'" /><span class="LC_menubuttons_inline_text">'.&mt('Post Discussion').'</span>', |
'replydisc'). |
'replydisc'). |
'</span>'; |
'</span>'; |
} |
} |
Line 858 sub send_message_link {
|
Line 866 sub send_message_link {
|
&discussion_link($ressymb, |
&discussion_link($ressymb, |
'<img alt="" class="LC_noBorder" src="'. |
'<img alt="" class="LC_noBorder" src="'. |
&Apache::loncommon::lonhttpdurl('/res/adm/pages/feedback.png'). |
&Apache::loncommon::lonhttpdurl('/res/adm/pages/feedback.png'). |
'" border="0" /><span class="LC_menubuttons_inline_text">'.&mt('Send Feedback').'</span>', |
'" /><span class="LC_menubuttons_inline_text">'.&mt('Send Feedback').'</span>', |
'sendmessageonly'). |
'sendmessageonly'). |
'</span>'; |
'</span>'; |
return $output; |
return $output; |
Line 2832 sub redirect_back {
|
Line 2840 sub redirect_back {
|
my $start_page= |
my $start_page= |
&Apache::loncommon::start_page('Feedback sent',undef,\%parms); |
&Apache::loncommon::start_page('Feedback sent',undef,\%parms); |
my $end_page = &Apache::loncommon::end_page(); |
my $end_page = &Apache::loncommon::end_page(); |
|
my $windowname = 'loncapaclient'; |
|
if ($env{'request.lti.login'}) { |
|
$windowname .= 'lti'; |
|
} |
$r->print(<<ENDREDIR); |
$r->print(<<ENDREDIR); |
$start_page |
$start_page |
<img align="right" src="$logo" /> |
<img align="right" src="$logo" /> |
Line 2840 $typestyle
|
Line 2852 $typestyle
|
$blog |
$blog |
$toolarge |
$toolarge |
<font color="red">$status</font> |
<font color="red">$status</font> |
<form name="reldt" action="$feedurl" target="loncapaclient"> |
<form name="reldt" action="$feedurl" target="$windowname"> |
$prevtag |
$prevtag |
$sorttag |
$sorttag |
$statustag |
$statustag |
Line 4039 sub handler {
|
Line 4051 sub handler {
|
'only_body' => 1, |
'only_body' => 1, |
'add_entries' => \%onload}); |
'add_entries' => \%onload}); |
my $end_page = &Apache::loncommon::end_page(); |
my $end_page = &Apache::loncommon::end_page(); |
|
my $windowname = 'loncapaclient'; |
|
if ($env{'request.lti.login'}) { |
|
$windowname .= 'lti'; |
|
} |
$r->print (<<ENDREDIR); |
$r->print (<<ENDREDIR); |
$start_page |
$start_page |
<img align="right" src="$logo" /> |
<img align="right" src="$logo" /> |
$textline |
$textline |
<form name="reldt" action="$feedurl" target="loncapaclient"> |
<form name="reldt" action="$feedurl" target="$windowname"> |
</form> |
</form> |
<br /> |
<br /> |
$end_page |
$end_page |
Line 4544 ENDREDIR
|
Line 4560 ENDREDIR
|
($env{'request.course.id'} && ($feedurl!~m:^/adm:)) |
($env{'request.course.id'} && ($feedurl!~m:^/adm:)) |
|| |
|| |
($env{'request.course.id'} && ($symb=~/^bulletin\_\_\_/)) |
($env{'request.course.id'} && ($symb=~/^bulletin\_\_\_/)) |
|
|| |
|
(($env{'request.course.id'} && ($feedurl =~ /ext\.tool$/))) |
) { |
) { |
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |