loncom/interface/lonmsgdisplay.pm - diff

Return to lonmsgdisplay.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.88, 2008/06/06 22:50:41	version 1.89, 2008/06/24 11:06:03
Line 733 sub groupmail_sent {	Line 733 sub groupmail_sent {

sub discrit {	sub discrit {
my $r=shift;	my $r=shift;
my $header = '<h1><font color="red">'.&mt('Critical Messages').'</font></h1>'.	my $header = '<h1>'.&mt('Critical Messages').'</h1>'
'<form action="/adm/email" method="POST">'.	.'<div class="LC_warning">'
'<input type="hidden" name="confirm" value="true" />';	.&mt('Access to other pages will be prevented until you have moved all critical messages to your inbox.')
	.'</div><br />'
	.'<form action="/adm/email" method="POST">'
	.'<input type="hidden" name="confirm" value="true" />';
my %what=&Apache::lonnet::dump('critical');	my %what=&Apache::lonnet::dump('critical');
my $result = '';	my $result = '';
foreach my $key (sort(keys(%what))) {	foreach my $key (sort(keys(%what))) {