ispman/ispman-web/cgi-bin/tmpl/customerMan/advance AddMailingList.tmpl,1.4,1.5 HttpUsers.tmpl,1.5,1.6 MailingLists.tmpl,1.8,1.9

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

Modified Files:
	AddMailingList.tmpl HttpUsers.tmpl MailingLists.tmpl 
Log Message:
suggested fix from petkovsc
[ 930797 ] ctrl pnl maillist users should be sorted

Index: MailingLists.tmpl
===================================================================
RCS file: /cvsroot/ispman/ispman/ispman-web/cgi-bin/tmpl/customerMan/advance/MailingLists.tmpl,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- MailingLists.tmpl	14 Jan 2004 02:22:40 -0000	1.8
+++ MailingLists.tmpl	16 Apr 2004 20:28:13 -0000	1.9
@@ -32,7 +32,7 @@
                         $text.="<br><br>";
                 
                         my $c=0;
-                        for (keys %$lists){
+                        for (sort keys %$lists){
                                 $c++;
                                 $dn=$_;
                                 $dn=~ s/\s//g;
@@ -63,19 +63,19 @@
                                         $text.="<td>";
                                         $text.="<select MULTIPLE size=10 name=mailForwardingAddress>\n";
                                         my $users=$customer->getDomainUsers();
-                                        for my $user(keys %$users) {
+                                        for my $user(sort keys %$users) {
                                                 $text.="<option value='$user\@$customer->{'domain'}'";
                                                 $text.=" selected " if $listMembers->{"$user\@$customer->{'domain'}"};
                                                 $text.=">$user\@$customer->{'domain'}</option>\n";
                                         }
-                                        join "<br> ", keys %$listMembers;
+                                        join "<br> ", sort keys %$listMembers;
                                         $text.="</select></td>\n";
                                         $text.="<td colspan=2><input type=button value='@{[$customer->getText('update')]}' onClick='updateListMembers()'></td>";
                                         $text.="<input type=hidden name=dn value='$dn'>";
                                         
                                 } else {
                                         $text.="<td>";
-                                        $text.=join "<br> ", keys %$listMembers;
+                                        $text.=join "<br> ", sort keys %$listMembers;
                                         $text.="</td>\n";
                                         $text.=qq|
                                         <td><a href="@{[$r->url]}?mode=advanceItems&section=MailingLists&cn=$lists->{$_}{'cn'}">@{[$customer->getText('Edit')]}</a></td>

Index: AddMailingList.tmpl
===================================================================
RCS file: /cvsroot/ispman/ispman/ispman-web/cgi-bin/tmpl/customerMan/advance/AddMailingList.tmpl,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- AddMailingList.tmpl	6 May 2002 14:17:05 -0000	1.4
+++ AddMailingList.tmpl	16 Apr 2004 20:28:12 -0000	1.5
@@ -14,7 +14,7 @@
                         <perl>
                             $text="";
                             my $users=$customer->getDomainUsers();
-                            for my $user(keys %$users) {
+                            for my $user(sort keys %$users) {
                                 $text.="<option value='$user\@$customer->{'domain'}'>$user\@$customer->{'domain'}</option>\n";
                             }
                         $text

Index: HttpUsers.tmpl
===================================================================
RCS file: /cvsroot/ispman/ispman/ispman-web/cgi-bin/tmpl/customerMan/advance/HttpUsers.tmpl,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- HttpUsers.tmpl	6 May 2002 14:17:05 -0000	1.5
+++ HttpUsers.tmpl	16 Apr 2004 20:28:12 -0000	1.6
@@ -31,7 +31,7 @@
            $webusers=$customer->getWebUsers();
             $c=0;
             
-            for $webuser(keys %$webusers){
+            for $webuser(sort keys %$webusers){
             $c++;
                 $dn=$webuser;
                 $dn=~s/ //g;



-------------------------------------------------------
This SF.Net email is sponsored by: IBM Linux Tutorials
Free Linux tutorial presented by Daniel Robbins, President and CEO of
GenToo technologies. Learn everything from fundamentals to system
administration.http://ads.osdn.com/?ad_id=1470&alloc_id=3638&op=click