loncom/interface/lonmsg.pm - diff

Return to lonmsg.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.56, 2003/06/23 22:25:14	version 1.57, 2003/07/05 10:07:11
Line 486 sub comprep {	Line 486 sub comprep {
$quotemsg=~s/\r/\n/g;	$quotemsg=~s/\r/\n/g;
$quotemsg=~s/\f/\n/g;	$quotemsg=~s/\f/\n/g;
$quotemsg=~s/\n+/\n\> /g;	$quotemsg=~s/\n+/\n\> /g;
	my $torepl=&Apache::loncommon::aboutmewrapper(
	&Apache::loncommon::plainname($content{'sendername'},$content{'senderdomain'}),$content{'sendername'},$content{'senderdomain'}).' ('.
	$content{'sendername'}.'@'.
	$content{'senderdomain'}.')';
my $subject='Re: '.$content{'subject'};	my $subject='Re: '.$content{'subject'};
my $dispcrit='';	my $dispcrit='';
if (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) {	if (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) {
Line 499 sub comprep {	Line 503 sub comprep {
$r->print(<<"ENDREPLY");	$r->print(<<"ENDREPLY");
<form action="/adm/email" method=post>	<form action="/adm/email" method=post>
<input type=hidden name=sendreply value="$msgid">	<input type=hidden name=sendreply value="$msgid">
	To: $torepl<br />
Subject: <input type=text size=50 name=subject value="$subject"><p>	Subject: <input type=text size=50 name=subject value="$subject"><p>
<textarea name=message cols=84 rows=10 wrap=hard>	<textarea name=message cols=84 rows=10 wrap=hard>
$quotemsg	$quotemsg