version 1.22, 2002/01/01 16:39:32
|
version 1.23, 2002/01/16 15:38:38
|
Line 41
|
Line 41
|
# 7/26 Guy Albertelli |
# 7/26 Guy Albertelli |
# 7/26,8/10,10/1,11/5,11/6,12/27,12/29 Gerd Kortemeyer |
# 7/26,8/10,10/1,11/5,11/6,12/27,12/29 Gerd Kortemeyer |
# YEAR=2002 |
# YEAR=2002 |
# 1/1 Gerd Kortemeyer |
# 1/1,1/16 Gerd Kortemeyer |
# |
# |
|
|
package Apache::lonfeedback; |
package Apache::lonfeedback; |
Line 199 sub screen_header {
|
Line 199 sub screen_header {
|
} |
} |
|
|
if ($ENV{'request.course.id'}) { |
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.='<br><input type=checkbox name=discuss> '. |
$options.='<br><input type=checkbox name=discuss> '. |
'<b>Contribution to course discussion of resource</b>'; |
'<b>Contribution to course discussion of resource</b>'; |
$options.='<br><input type=checkbox name=anondiscuss> '. |
$options.='<br><input type=checkbox name=anondiscuss> '. |
Line 313 sub send_msg {
|
Line 315 sub send_msg {
|
sub adddiscuss { |
sub adddiscuss { |
my ($symb,$email,$anon)=@_; |
my ($symb,$email,$anon)=@_; |
my $status=''; |
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, |
my %contrib=('message' => $email, |
'sendername' => $ENV{'user.name'}, |
'sendername' => $ENV{'user.name'}, |