loncom/interface/lonmsgdisplay.pm - diff

Return to lonmsgdisplay.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.175, 2014/05/21 17:36:58	version 1.176, 2014/05/21 19:03:04
Line 815 sub discrit {	Line 815 sub discrit {
my $result = '';	my $result = '';
# Sort by date in descending order	# Sort by date in descending order
foreach my $key (sort{$b <=> $a}(keys(%what))) {	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;