version 1.15, 2001/08/03 18:47:18
|
version 1.16, 2001/08/06 11:41:11
|
Line 13
|
Line 13
|
# 10/19,10/20,10/30, |
# 10/19,10/20,10/30, |
# 02/06/01 Gerd Kortemeyer |
# 02/06/01 Gerd Kortemeyer |
# 07/27 Guy Albertelli |
# 07/27 Guy Albertelli |
# 07/27,07/28,07/30,08/03 Gerd Kortemeyer |
# 07/27,07/28,07/30,08/03,08/06 Gerd Kortemeyer |
|
|
package Apache::lonmsg; |
package Apache::lonmsg; |
|
|
Line 223 sub discrit {
|
Line 223 sub discrit {
|
'<input type=submit name="rec_'.$_.'" value="Confirm Receipt">'. |
'<input type=submit name="rec_'.$_.'" value="Confirm Receipt">'. |
'<input type=submit name="reprec_'.$_.'" value="Confirm Receipt and Reply">'); |
'<input type=submit name="reprec_'.$_.'" value="Confirm Receipt and Reply">'); |
} sort keys %what; |
} sort keys %what; |
$r->print('</form>'); |
$r->print( |
|
'<input type=hidden name="displayedcrit" value="true"></form>'); |
} |
} |
|
|
# =============================================================== Compose reply |
# =============================================================== Compose reply |
Line 437 sub handler {
|
Line 438 sub handler {
|
} elsif ($ENV{'form.compose'}) { |
} elsif ($ENV{'form.compose'}) { |
&compout($r); |
&compout($r); |
} elsif ($ENV{'form.sendmail'}) { |
} elsif ($ENV{'form.sendmail'}) { |
|
my %content=(); |
|
undef %content; |
|
if ($ENV{'form.forwid'}) { |
|
my $msgid=$ENV{'form.forwid'}; |
|
my %message=&Apache::lonnet::get('nohist_email',[$msgid]); |
|
%content=&unpackagemsg($message{$msgid}); |
|
&statuschange($msgid,'forwarded'); |
|
$ENV{'form.message'}.="\n\n-- Forwarded message --\n\n". |
|
$content{'message'}; |
|
} |
|
if (($ENV{'form.critmsg'}) && |
|
(&Apache::lonnet::allowed('srm',$ENV{'request.course.id'}))) { |
|
$r->print('Sending critical: '. |
|
&user_crit_msg($ENV{'form.recuname'}, |
|
$ENV{'form.recdomain'}, |
|
$ENV{'form.subject'}, |
|
$ENV{'form.message'}, |
|
$content{'citation'})); |
|
} else { |
|
$r->print('Sending: '.&user_normal_msg($ENV{'form.recuname'}, |
|
$ENV{'form.recdomain'}, |
|
$ENV{'form.subject'}, |
|
$ENV{'form.message'}, |
|
$content{'citation'})); |
|
} |
|
if ($ENV{'form.displayedcrit'}) { |
|
&discrit($r); |
|
} else { |
|
&disall($r); |
|
} |
} else { |
} else { |
&disall($r); |
&disall($r); |
} |
} |