version 1.3, 2009/06/16 02:39:09 |
version 1.4, 2009/07/16 21:08:45 |
|
|
#!/usr/bin/perl |
#!/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 |
# keyring.cgi *** Update and modify keyring files |
# |
# |
|
|
|
|
return $query->popup_menu( |
return $query->popup_menu( |
-name => 'category', |
-name => 'category', |
-values => [ sort { $a <=> $b } keys %categories ], |
-values => [ |
|
sort { lc( $categories{$a} ) cmp lc( $categories{$b} ) } |
|
keys %categories |
|
], |
-default => $category, |
-default => $category, |
-labels => \%categories, |
-labels => \%categories, |
-onChange => "changeCategory(" |
-onChange => "changeCategory(" |