version 1.3, 2001/02/06 14:22:30
|
version 1.4, 2001/02/06 18:17:34
|
Line 135 ENDDOCUMENT
|
Line 135 ENDDOCUMENT
|
# |
# |
my $email=<<"ENDEMAIL"; |
my $email=<<"ENDEMAIL"; |
Refers to <a href="$feedurl">$feedurl</a> |
Refers to <a href="$feedurl">$feedurl</a> |
<hr> |
|
<h2>Message</h2> |
|
<pre> |
|
$message |
$message |
</pre> |
ENDEMAIL |
<hr> |
my $citations=<<"ENDCITE"; |
<h2>Previous attempts of student (if applicable)</h2> |
<h2>Previous attempts of student (if applicable)</h2> |
$prevattempts |
$prevattempts |
<p><hr> |
<p><hr> |
<h2>Original screen output (if applicable)</h2> |
<h2>Original screen output (if applicable)</h2> |
$usersaw |
$usersaw |
ENDEMAIL |
ENDCITE |
# |
# |
# Who gets this? |
# Who gets this? |
# |
# |
Line 181 ENDEMAIL
|
Line 179 ENDEMAIL
|
if ($_) { |
if ($_) { |
unless ( |
unless ( |
&Apache::lonmsg::user_normal_msg(split(/\:/,$_),'Feedback '.$feedurl, |
&Apache::lonmsg::user_normal_msg(split(/\:/,$_),'Feedback '.$feedurl, |
$email) eq 'ok') { |
$email,$citations) eq 'ok') { |
$status.='<br>Error sending message to '.$_.'<br>'; |
$status.='<br>Error sending message to '.$_.'<br>'; |
} |
} |
} |
} |