--- loncom/interface/lonfeedback.pm 2001/02/05 17:38:17 1.2 +++ loncom/interface/lonfeedback.pm 2001/02/08 21:35:24 1.5 @@ -9,12 +9,13 @@ # # 3/1/1 Gerd Kortemeyer) # -# 3/1,2/3,2/5 Gerd Kortemeyer +# 3/1,2/3,2/5,2/6,2/8 Gerd Kortemeyer # package Apache::lonfeedback; use strict; use Apache::Constants qw(:common); +use Apache::lonmsg(); sub handler { my $r = shift; @@ -27,11 +28,12 @@ sub handler { $feedurl=~s/^$ENV{'SERVER_NAME'}//; $feedurl=~s/^$ENV{'HTTP_HOST'}//; - if (($feedurl=~/^\/res/) || ($ENV{'request.course.id'})) { + if ((($feedurl=~/^\/res/) && ($feedurl!~/^\/res\/adm/)) + || ($ENV{'request.course.id'})) { # --------------------------------------------------- Print login screen header unless ($ENV{'form.sendit'}) { my $options=''; - if ($feedurl=~/^\/res/) { + if (($feedurl=~/^\/res/) && ($feedurl!~/^\/res\/adm/)) { $options= '

Feedback to resource author'; } @@ -41,36 +43,85 @@ sub handler { } if ($ENV{'course.'.$ENV{'request.course.id'}.'.comment.email'}) { $options.= - '
'. + '
'. 'Question/Comment/Feedback about course content'; } if ($ENV{'course.'.$ENV{'request.course.id'}.'.policy.email'}) { $options.= - '
'. + '
'. 'Question/Comment/Feedback about course policy'; } + if ($options) { $r->print(< The LearningOnline Network with CAPA + - +

Feedback

$feedurl

-
+ -Please check at least one of the following: +Please check at least one of the following feedback types: $options
My question/comment/feedback:

- + +

ENDDOCUMENT } else { + print (<Feedback not sent + + + + +Sorry, no recipients ... + + +ENDFAILREDIR + +} +} else { +# +# Get previous user input +# my $symb=&Apache::lonnet::symbread($feedurl); my $prevattempts=''; if ($symb) { @@ -108,6 +159,9 @@ ENDDOCUMENT } keys %lasthash; $prevattempts.=''; } +# +# Get output from resource +# my $usersaw=&Apache::lonnet::ssi($feedurl); $usersaw=~s/\]*\>//gi; $usersaw=~s/\<\/body\>//gi; @@ -116,17 +170,88 @@ ENDDOCUMENT $usersaw=~s/\//gi; $usersaw=~s/\<\/head\>//gi; $usersaw=~s/action\s*\=/would_be_action\=/gi; -# - +# +# Filter HTML out of message (could be nasty) +# + my $message=$ENV{'form.comment'}; + $message=~s/\/\>\;/g; + +# +# Assemble email +# + my $email=<<"ENDEMAIL"; +Refers to $feedurl + +$message +ENDEMAIL + my $citations=<<"ENDCITE"; +

Previous attempts of student (if applicable)

+$prevattempts +

+

Original screen output (if applicable)

+$usersaw +ENDCITE +# +# Who gets this? +# + my $typestyle=''; + my %to=(); + if ($ENV{'form.author'}) { + $typestyle.='Author Feedback
'; + $feedurl=~/^\/res\/(\w+)\/(\w+)\//; + $to{$2.':'.$1}=1; + } + if ($ENV{'form.question'}) { + $typestyle.='Question
'; + map { + $to{$_}=1; + } split(/\,/, + $ENV{'course.'.$ENV{'request.course.id'}.'.question.email'}); + } + if ($ENV{'form.course'}) { + $typestyle.='Comment
'; + map { + $to{$_}=1; + } split(/\,/, + $ENV{'course.'.$ENV{'request.course.id'}.'.comment.email'}); + } + if ($ENV{'form.policy'}) { + $typestyle.='Policy
'; + map { + $to{$_}=1; + } split(/\,/, + $ENV{'course.'.$ENV{'request.course.id'}.'.policy.email'}); + } +# +# Actually send mail +# + my $status=''; + my $sendsomething=0; + map { + if ($_) { + unless ( + &Apache::lonmsg::user_normal_msg(split(/\:/,$_),'Feedback '.$feedurl, + $email,$citations) eq 'ok') { + $status.='
Error sending message to '.$_.'
'; + } else { + $sendsomething++; + } + } + } keys %to; +# +# Receipt screen and redirect back to where came from +# print (<Feedback sent + +Feedback sent + -Feedback sent ... -$prevattempts -
-$usersaw +$typestyle +Sent $sendsomething message(s). +$status ENDREDIR @@ -134,7 +259,7 @@ ENDREDIR } else { print (<Feedback not sent - +