=================================================================== RCS file: /cvs/palm/Palm-Keyring/examples/cgi/bin/keyring.cgi,v retrieving revision 1.3 retrieving revision 1.4 diff -u -r1.3 -r1.4 --- palm/Palm-Keyring/examples/cgi/bin/keyring.cgi 2009/06/16 02:39:09 1.3 +++ palm/Palm-Keyring/examples/cgi/bin/keyring.cgi 2009/07/16 21:08:45 1.4 @@ -1,5 +1,5 @@ #!/usr/bin/perl -# $RedRiver: keyring.cgi,v 1.2 2009/06/15 17:45:46 andrew Exp $ +# $RedRiver: keyring.cgi,v 1.3 2009/06/16 01:39:09 andrew Exp $ ######################################################################## # keyring.cgi *** Update and modify keyring files # @@ -180,7 +180,10 @@ return $query->popup_menu( -name => 'category', - -values => [ sort { $a <=> $b } keys %categories ], + -values => [ + sort { lc( $categories{$a} ) cmp lc( $categories{$b} ) } + keys %categories + ], -default => $category, -labels => \%categories, -onChange => "changeCategory("