|
version 1.4, 2006/04/22 17:10:07
|
version 1.5, 2006/04/22 17:17:49
|
|
Line 313 ENDDISHEADER
|
Line 313 ENDDISHEADER
|
| |
|
| sub discrit { |
sub discrit { |
| my $r=shift; |
my $r=shift; |
| my $header = '<h1><font color=red>'.&mt('Critical Messages').'</font></h1>'. |
my $header = '<h1><font color="red">'.&mt('Critical Messages').'</font></h1>'. |
| '<form action="/adm/email" method="POST">'. |
'<form action="/adm/email" method="POST">'. |
| '<input type="hidden" name="confirm" value="true" />'; |
'<input type="hidden" name="confirm" value="true" />'; |
| my %what=&Apache::lonnet::dump('critical'); |
my %what=&Apache::lonnet::dump('critical'); |
|
Line 1767 sub sendoffmail {
|
Line 1767 sub sendoffmail {
|
| &printheader($r,'','No messages sent.'); |
&printheader($r,'','No messages sent.'); |
| } |
} |
| if ($sendstatus=~/^(\s*(?:ok|con_delayed)\s*)*$/) { |
if ($sendstatus=~/^(\s*(?:ok|con_delayed)\s*)*$/) { |
| $r->print('<br /><font color="green">'.&mt('Completed.').'</font>'); |
$r->print('<br /><span class="LC_success">'.&mt('Completed.').'</span>'); |
| if ($env{'form.displayedcrit'}) { |
if ($env{'form.displayedcrit'}) { |
| &discrit($r); |
&discrit($r); |
| } else { |
} else { |
| &Apache::loncommunicate::menu($r); |
&Apache::loncommunicate::menu($r); |
| } |
} |
| } else { |
} else { |
| $r->print( |
$r->print('<p><span class="LC_error">'.&mt('Could not deliver message').'</span> '. |
| '<h2><font color="red">'.&mt('Could not deliver message').'</font></h2>'. |
&mt('Please use the browser "Back" button and correct the recipient addresses').'</p>'); |
| &mt('Please use the browser "Back" button and correct the recipient addresses') |
|
| ); |
|
| } |
} |
| } |
} |
| |
|
![[BACK]](/icons/back.gif){kind=icon}
Return to lonmsgdisplay.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface