--- loncom/interface/lonfeedback.pm 2021/12/31 20:39:00 1.370.2.5.2.1
+++ loncom/interface/lonfeedback.pm 2021/10/20 16:15:04 1.386
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Feedback
#
-# $Id: lonfeedback.pm,v 1.370.2.5.2.1 2021/12/31 20:39:00 raeburn Exp $
+# $Id: lonfeedback.pm,v 1.386 2021/10/20 16:15:04 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1003,9 +1003,14 @@ sub postingform_display {
}
}
}
+ my $postanon;
+ if (&Apache::lonnet::allowed('pac',$env{'request.course.id'}.
+ ($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''))) {
+ $postanon = '';
+ }
$postingform .= (<
-
+$postanon
@@ -2110,7 +2115,7 @@ END
$r->print('');
}
$r->print(<
+
END
@@ -2875,6 +2880,10 @@ sub redirect_back {
my $start_page=
&Apache::loncommon::start_page('Feedback sent',undef,\%parms);
my $end_page = &Apache::loncommon::end_page();
+ my $windowname = 'loncapaclient';
+ if ($env{'request.lti.login'}) {
+ $windowname .= 'lti';
+ }
$r->print(<
@@ -2883,7 +2892,7 @@ $typestyle
$blog
$toolarge
$status
-
$end_page
@@ -4584,7 +4601,7 @@ ENDREDIR
||
($env{'request.course.id'} && ($symb=~/^bulletin\_\_\_/))
||
- (($env{'request.course.id'}) && ($feedurl =~ /ext\.tool$/))
+ (($env{'request.course.id'} && ($feedurl =~ /ext\.tool$/)))
) {
&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;
@@ -4686,7 +4703,11 @@ ENDREDIR
&& $env{'form.discuss'} !~ /^(?:author|question|course|policy)/)
|| $env{'form.anondiscuss'} ne '') {
my $subject = &clear_out_html($env{'form.subject'});
- my $anonmode=($env{'form.discuss'} eq 'anon' || $env{'form.anondiscuss'} );
+ my $anonmode;
+ if (&Apache::lonnet::allowed('pac',$env{'request.course.id'}.
+ ($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''))) {
+ $anonmode=($env{'form.discuss'} eq 'anon' || $env{'form.anondiscuss'} );
+ }
$typestyle.=&adddiscuss($symb,$message,$anonmode,$attachmenturl,
$subject,$group);
$numpost++;