version 1.31, 2002/04/23 21:06:07
|
version 1.34, 2002/06/26 20:41:55
|
Line 314 sub discrit {
|
Line 314 sub discrit {
|
$content{'message'}=~s/\n/\<br\>/g; |
$content{'message'}=~s/\n/\<br\>/g; |
$result.='<hr>From: <b>'.$content{'sendername'}.'@'. |
$result.='<hr>From: <b>'.$content{'sendername'}.'@'. |
$content{'senderdomain'}.'</b> ('.$content{'time'}. |
$content{'senderdomain'}.'</b> ('.$content{'time'}. |
')<br><blockquote>'.$content{'message'}.'</blockquote>'. |
')<br>Subject: '.$content{'subject'}. |
|
'<br><blockquote>'.$content{'message'}.'</blockquote>'. |
'<input type=submit name="rec_'.$_.'" value="Confirm Receipt">'. |
'<input type=submit name="rec_'.$_.'" value="Confirm Receipt">'. |
'<input type=submit name="reprec_'.$_.'" '. |
'<input type=submit name="reprec_'.$_.'" '. |
'value="Confirm Receipt and Reply">'; |
'value="Confirm Receipt and Reply">'; |
Line 396 ENDDISHEADER
|
Line 397 ENDDISHEADER
|
$ENV{'user.home'}))) { |
$ENV{'user.home'}))) { |
my ($sendtime,$shortsubj,$fromname,$fromdomain,$status)= |
my ($sendtime,$shortsubj,$fromname,$fromdomain,$status)= |
&Apache::lonmsg::unpackmsgid($_); |
&Apache::lonmsg::unpackmsgid($_); |
unless ($status eq 'deleted') { |
unless (($status eq 'deleted') || ($sendtime=~/error/)) { |
if ($status eq 'new') { |
if ($status eq 'new') { |
$r->print('<tr bgcolor="#FFBB77">'); |
$r->print('<tr bgcolor="#FFBB77">'); |
} elsif ($status eq 'read') { |
} elsif ($status eq 'read') { |
Line 521 sub handler {
|
Line 522 sub handler {
|
return OK if $r->header_only; |
return OK if $r->header_only; |
|
|
# --------------------------- Get query string for limited number of parameters |
# --------------------------- Get query string for limited number of parameters |
|
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
foreach (split(/&/,$ENV{'QUERY_STRING'})) { |
['display','replyto','forward','markread','markdel','markunread', |
my ($name, $value) = split(/=/,$_); |
'sendreply','compose','sendmail','critical']); |
$value =~ tr/+/ /; |
|
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; |
|
if (($name eq 'display') || ($name eq 'replyto') || |
|
($name eq 'forward') || ($name eq 'markread') || |
|
($name eq 'markdel') || ($name eq 'markunread') || |
|
($name eq 'sendreply') || ($name eq 'compose') || |
|
($name eq 'sendmail') || ($name eq 'critical')) { |
|
unless ($ENV{'form.'.$name}) { |
|
$ENV{'form.'.$name}=$value; |
|
} |
|
} |
|
} |
|
|
|
# --------------------------------------------------------------- Render Output |
# --------------------------------------------------------------- Render Output |
|
|