loncom/interface/lonfeedback.pm - diff

Return to lonfeedback.pm CVS log

Up to [LON-CAPA] / loncom / interface

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>';
}	}
}	}