sort section names

Submitted by: "Taz Meister" <taz@lagmonster.org>
This commit is contained in:
Wolfram Schneider 2003-06-23 09:09:56 +00:00
parent 97cf43bc3f
commit fcf91371a6
Notes: svn2git 2020-12-08 03:00:23 +00:00
svn path=/www/; revision=17401

View file

@ -33,7 +33,7 @@
# BSDI Id: bsdi-man,v 1.2 1995/01/11 02:30:01 polk Exp
# Dual CGI/Plexus mode and new interface by sanders@bsdi.com 9/22/1995
#
# $Id: man.cgi,v 1.106 2003-06-10 15:12:53 bmah Exp $
# $Id: man.cgi,v 1.107 2003-06-23 09:09:56 wosch Exp $
#use Data::Dumper;
#use Carp;
@ -940,11 +940,12 @@ sub formquery {
ETX
while(($key, $value) = each %sectionName) {
print "<OPTION" . (($key eq $section) ? ' SELECTED ' : ' ') .
qq{VALUE="$key">$value</OPTION>\n};
foreach $key (sort keys %sectionName) {
print "<OPTION" . (($key eq $section) ? ' SELECTED ' : ' ') .
qq{VALUE="$key">$sectionName{$key}</OPTION>\n};
};
print qq{</SELECT>\n<SELECT NAME="manpath">\n};
local($l) = ($manpath ? $manpath : $manPathDefault);
@ -982,7 +983,7 @@ ETX
}
sub copyright {
$id = '$Id: man.cgi,v 1.106 2003-06-10 15:12:53 bmah Exp $';
$id = '$Id: man.cgi,v 1.107 2003-06-23 09:09:56 wosch Exp $';
return qq{\
<PRE>