ispman/ispman-web/cgi-bin/tmpl menu.tmpl,1.46,1.47

Update of /cvsroot/ispman/ispman/ispman-web/cgi-bin/tmpl
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24333/ispman-web/cgi-bin/tmpl

Modified Files:
	menu.tmpl 
Log Message:
Sort the domain, user, mailgroup and vhosts lists in the menu case-insensitively by their displayed name.
Thanks to John K. Hohm

Index: menu.tmpl
===================================================================
RCS file: /cvsroot/ispman/ispman/ispman-web/cgi-bin/tmpl/menu.tmpl,v
retrieving revision 1.46
retrieving revision 1.47
diff -u -d -r1.46 -r1.47
--- menu.tmpl	6 Feb 2004 22:23:25 -0000	1.46
+++ menu.tmpl	4 May 2004 20:58:58 -0000	1.47
@@ -145,7 +145,7 @@
 
 
     
-for my $master( sort  keys %$masters ) {                                                                   
+for my $master( sort {lc($a) cmp lc($b)} keys %$masters ) {                                                                   
     $text.="<OPTION value='$master'";
     if ($r->param("ispmanDomain") eq $master){
         $text.= " selected  ";
@@ -253,7 +253,7 @@
             <SELECT NAME="users" onChange="manageUser(this.options)">
             <OPTION VALUE="">@{[_("Select user")]}</option>
             |;
-            for my $user(sort{lc($users->{$a}) cmp lc($users->{$b}) } keys %$users) {
+            for my $user(sort{lc($a) cmp lc($b) } keys %$users) {
               $text.="<option value='$users->{$user}'>  $user</option>";
             }
 
@@ -284,7 +284,7 @@
             <SELECT NAME="mailgroups" onChange="manageMailGroup(this.options)">
             <OPTION VALUE="">@{[_("Select mailgroup")]}</option>
             |;
-            for my $mailgroup(sort{lc($mailgroups->{$a}) cmp lc($mailgroups->{$b}) } keys %$mailgroups) {
+            for my $mailgroup(sort{lc($mailgroups->{$a}{'cn'}) cmp lc($mailgroups->{$b}{'cn'}) } keys %$mailgroups) {
               $text.="<option value='$mailgroup'>$mailgroups->{$mailgroup}{'cn'}</option>";
             }
             
@@ -331,7 +331,7 @@
                |;                   
 
                my $vhosts=$ispman->getApacheVhosts($thisDomain);
-               for my $vhost(keys %$vhosts) {
+               for my $vhost(sort keys %$vhosts) {
                   $text.="<option value='$vhost'>  $vhost</option>";
                }
                     $text.=qq|



-------------------------------------------------------
This SF.Net email is sponsored by: Oracle 10g
Get certified on the hottest thing ever to hit the market... Oracle 10g. 
Take an Oracle 10g class now, and we'll give you the exam FREE.
http://ads.osdn.com/?ad_id=3149&alloc_id=8166&op=click