--- loncom/interface/lonmsgdisplay.pm 2006/12/18 00:16:27 1.53 +++ loncom/interface/lonmsgdisplay.pm 2006/12/23 04:39:32 1.55 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines for messaging display # -# $Id: lonmsgdisplay.pm,v 1.53 2006/12/18 00:16:27 raeburn Exp $ +# $Id: lonmsgdisplay.pm,v 1.55 2006/12/23 04:39:32 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -178,7 +178,7 @@ sub folderlist { my %userfolders; foreach my $key (keys(%gotfolders)) { - $key =~ s/(['"])/\$1/g; + $key =~ s/(['"])/\$1/g; #' stupid emacs $userfolders{$key} = $key; } my @userorder = sort(keys(%userfolders)); @@ -960,8 +960,7 @@ sub disfolder { ENDDISHEADER - my %gotfolders = &Apache::lonmsg::get_user_folders(); - my %userfolders; + my $fsqs='&folder='.$folder; my @temp=&sortedmessages(\%blocked,$startblock,$endblock,\$numblocked,$folder,$msgstatus); my $totalnumber=$#temp+1; @@ -971,7 +970,7 @@ ENDDISHEADER } elsif ($msgstatus eq 'replied') { $r->print('