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 |