loncom/interface/lonmsgdisplay.pm - diff

Return to lonmsgdisplay.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.174, 2014/04/25 17:56:42	version 1.175, 2014/05/21 17:36:58
Line 813 sub discrit {	Line 813 sub discrit {
.'<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');
my $result = '';	my $result = '';
foreach my $key (sort(keys(%what))) {	# Sort by date in descending order
	foreach my $key (sort{$b <=> $a}(keys(%what))) {
	print STDERR "key = \|\|$key\|\|\n";
my %content=&Apache::lonmsg::unpackagemsg($what{$key});	my %content=&Apache::lonmsg::unpackagemsg($what{$key});
next if ($content{'senderdomain'} eq '');	next if ($content{'senderdomain'} eq '');
my $description;	my $description;
Line 1023 sub disall {	Line 1025 sub disall {
&Apache::loncommon::store_settings('user','mail',\%saveable);	&Apache::loncommon::store_settings('user','mail',\%saveable);
&Apache::loncommon::restore_settings('user','mail',\%saveable);	&Apache::loncommon::restore_settings('user','mail',\%saveable);
$folder \|\|= $env{'form.folder'};	$folder \|\|= $env{'form.folder'};
	# Always show critical messages if present
	my @what=&Apache::lonnet::dump('critical',$env{'user.domain'},$env{'user.name'});
	if ($what[0]) {
	if (($what[0] ne 'con_lost') && ($what[0]!~/^error\:/)) {
	$folder = 'critical';
	}
	}
$msgstatus \|\|= $env{'form.msgstatus'};	$msgstatus \|\|= $env{'form.msgstatus'};
$env{'form.interdis'} \|\|= 20;	$env{'form.interdis'} \|\|= 20;