--- loncom/interface/lonfeedback.pm 2002/01/01 16:39:32 1.22
+++ loncom/interface/lonfeedback.pm 2002/01/16 15:38:38 1.23
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Feedback
#
-# $Id: lonfeedback.pm,v 1.22 2002/01/01 16:39:32 www Exp $
+# $Id: lonfeedback.pm,v 1.23 2002/01/16 15:38:38 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -41,7 +41,7 @@
# 7/26 Guy Albertelli
# 7/26,8/10,10/1,11/5,11/6,12/27,12/29 Gerd Kortemeyer
# YEAR=2002
-# 1/1 Gerd Kortemeyer
+# 1/1,1/16 Gerd Kortemeyer
#
package Apache::lonfeedback;
@@ -199,7 +199,9 @@ sub screen_header {
}
if ($ENV{'request.course.id'}) {
- if (&Apache::lonnet::allowed('pch',$ENV{'request.course.id'})) {
+ if (&Apache::lonnet::allowed('pch',
+ $ENV{'request.course.id'}.
+ ($ENV{'request.course.sec'}?'/'.$ENV{'request.course.sec'}:''))) {
$options.='
'.
'Contribution to course discussion of resource';
$options.='
'.
@@ -313,7 +315,8 @@ sub send_msg {
sub adddiscuss {
my ($symb,$email,$anon)=@_;
my $status='';
- if (&Apache::lonnet::allowed('pch',$ENV{'request.course.id'})) {
+ if (&Apache::lonnet::allowed('pch',$ENV{'request.course.id'}.
+ ($ENV{'request.course.sec'}?'/'.$ENV{'request.course.sec'}:''))) {
my %contrib=('message' => $email,
'sendername' => $ENV{'user.name'},