![[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|
Return to lonmsgdisplay.pm CVS log | Up to [LON-CAPA] / loncom / interface |
| version 1.51, 2006/12/08 20:32:36 | version 1.52, 2006/12/17 15:52:37 |
|---|---|
| Line 173 sub folderlist { | Line 173 sub folderlist { |
| my %userfolders; | my %userfolders; |
| foreach my $key (keys(%gotfolders)) { | foreach my $key (keys(%gotfolders)) { |
| $key =~ s/(['"])/\$1/g; | |
| $userfolders{$key} = $key; | $userfolders{$key} = $key; |
| } | } |
| my @userorder = sort(keys(%userfolders)); | my @userorder = sort(keys(%userfolders)); |