--- loncom/interface/lonfeedback.pm 2002/10/03 15:04:29 1.33 +++ loncom/interface/lonfeedback.pm 2002/10/25 13:57:28 1.35 @@ -1,7 +1,7 @@ # The LearningOnline Network # Feedback # -# $Id: lonfeedback.pm,v 1.33 2002/10/03 15:04:29 www Exp $ +# $Id: lonfeedback.pm,v 1.35 2002/10/25 13:57:28 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -179,7 +179,7 @@ ENDNOREDIRTWO sub screen_header { my ($feedurl) = @_; my $options=''; - if (($feedurl=~/^\/res/) && ($feedurl!~/^\/res\/adm/)) { + if (($feedurl=~/^\/res\//) && ($feedurl!~/^\/res\/adm/)) { $options= '
Feedback to resource author';
}
@@ -250,6 +250,11 @@ ENDCITE
return ($email,$citations);
}
+sub secapply {
+ my $rec=shift;
+ return $rec;
+}
+
sub decide_receiver {
my ($feedurl) = @_;
my $typestyle='';
@@ -264,7 +269,7 @@ sub decide_receiver {
foreach (split(/\,/,
$ENV{'course.'.$ENV{'request.course.id'}.'.question.email'})
) {
- $to{$_}=1;
+ if (my $rec=&secapply($_)) { $to{$rec}=1; }
}
}
if ($ENV{'form.course'}) {
@@ -272,7 +277,7 @@ sub decide_receiver {
foreach (split(/\,/,
$ENV{'course.'.$ENV{'request.course.id'}.'.comment.email'})
) {
- $to{$_}=1;
+ if (my $rec=&secapply($_)) { $to{$rec}=1; }
}
}
if ($ENV{'form.policy'}) {
@@ -280,7 +285,7 @@ sub decide_receiver {
foreach (split(/\,/,
$ENV{'course.'.$ENV{'request.course.id'}.'.policy.email'})
) {
- $to{$_}=1;
+ if (my $rec=&secapply($_)) { $to{$rec}=1; }
}
}
return ($typestyle,%to);
@@ -294,7 +299,7 @@ sub send_msg {
if ($_) {
my $declutter=&Apache::lonnet::declutter($feedurl);
unless (&Apache::lonmsg::user_normal_msg(split(/\:/,$_),
- 'Feedback ['.$declutter.']',$email,$citations) eq 'ok') {
+ 'Feedback ['.$declutter.']',$email,$citations)=~/ok/) {
$status.='
Error sending message to '.$_.'
';
} else {
$sendsomething++;