From fcf91371a64a70ff31788bc4006b651055bce13a Mon Sep 17 00:00:00 2001
From: Wolfram Schneider <wosch@FreeBSD.org>
Date: Mon, 23 Jun 2003 09:09:56 +0000
Subject: [PATCH] sort section names Submitted by: "Taz Meister"
 <taz@lagmonster.org>

---
 en/cgi/man.cgi | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/en/cgi/man.cgi b/en/cgi/man.cgi
index 006c8f3d98..83c34e071c 100755
--- a/en/cgi/man.cgi
+++ b/en/cgi/man.cgi
@@ -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>