| 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(" |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to keyring.cgi CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / palm / Palm-Keyring / examples / cgi / bin