ispman/ispman-web/cgi-bin/tmpl/vhosts edit_acls.tmpl,1.1,1.2

Update of /cvsroot/ispman/ispman/ispman-web/cgi-bin/tmpl/vhosts
In directory sc8-pr-cvs1:/tmp/cvs-serv22918

Modified Files:
	edit_acls.tmpl 
Log Message:
changes of variables to work under ISPMan. Still wont work. Need functions in the Library.

Index: edit_acls.tmpl
===================================================================
RCS file: /cvsroot/ispman/ispman/ispman-web/cgi-bin/tmpl/vhosts/edit_acls.tmpl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- edit_acls.tmpl	12 Jan 2004 20:50:37 -0000	1.1
+++ edit_acls.tmpl	13 Jan 2004 09:43:02 -0000	1.2
@@ -33,14 +33,14 @@
                 for (sort {length($b) <=> length($a)} keys %$ACLs){ 
                         $text.="<tr>";
                         if ($r->param("ispmanVhostAclLocation") && $r->param("ispmanVhostAclLocation") eq $ACLs->{$_}{'ispmanVhostAclLocation'}){
-                                $text.=qq|<td valign=top><input type=text name=ispmanVhostAclLocation value='$ACLs->{$_}{'ispmanVhostAclLocation'}'></td>
+                                $text.=qq|\n<form>\n<td valign=top><input type=text name=ispmanVhostAclLocation value='$ACLs->{$_}{'ispmanVhostAclLocation'}'></td>
                                 <td valign=top> <select name=ispmanVhostAclAllowUser multiple size=5>|;
                                    my $allowedUsers={};
                                    for my $allowedUser (@{$ACLs->{$_}{'ispmanVhostAclAllowUser'}}){
                                         $allowedUsers->{$allowedUser}++;
                                    }
                                    
-                                   my $webusers=$ispman->getWebUsers(($r->param('ispmanDomain'));
+                                   my $webusers=$ispman->getWebusers($r->param('ispmanDomain'));
                                     for $webuser(keys %$webusers){
                                         $text.="<option value='$webusers->{$webuser}{'ispmanUserId'}'";
                                         if ($allowedUsers->{$webusers->{$webuser}{'ispmanUserId'}}) {
@@ -65,8 +65,9 @@
                                 </td>
                                 <td><input type=button value='@{[_("update")]}' onClick='updateAcl()'></td>
                                 <input type=hidden name=ispmanVhostAclLocation value="$ACLs->{$_}{'ispmanVhostAclLocation'}">
+                                <input type=hidden name=ispmanVhostAclLocation value="$ACLs->{$_}{'ispmanVhostAclLocation'}">
                                 <input type=hidden name=dn value="$_">
-                                <td><a href="@{[$r->url]}?mode=deleteWebsiteAcl&section=AccessControl&vhost=@{[$r->param("vhost")]}&ispmanVhostAclLocation=$ACLs->{$_}{'ispmanVhostAclLocation'}">@{[$customer->getText('Delete')]}</a></td>
+                                <td><a href="@{[$r->url]}?mode=deleteWebsiteAcl&section=acls&ispmanVhostName@{[$r->param("ispmanVhostName")]}&ispmanVhostAclLocation=$ACLs->{$_}{'ispmanVhostAclLocation'}">@{[_('Delete')]}</a></td>
                                 |;
                         } else {
                                 $text.=qq|
@@ -80,8 +81,8 @@
                                 
                                 $text.=qq|
                                 </font></td>
-                                <td><a href="@{[$r->url]}?mode=editVhost&section=AccessControl&vhost=@{[$r->param("vhost")]}&ispmanVhostAclLocation=$ACLs->{$_}{'ispmanVhostAclLocation'}">@{[$customer->getText('Edit')]}</a></td>
-                                <td><a href="@{[$r->url]}?mode=deleteWebsiteAcl&section=AccessControl&vhost=@{[$r->param("vhost")]}&ispmanVhostAclLocation=$ACLs->{$_}{'ispmanVhostAclLocation'}">@{[$customer->getText('Delete')]}</a></td>
+                                <td><a href="@{[$r->url]}?mode=editVhost&section=acls&ispmanVhostName=@{[$r->param("ispmanVhostName")]}&ispmanDomain=@{[$r->param("ispmanDomain")]}&ispmanVhostAclLocation=$ACLs->{$_}{'ispmanVhostAclLocation'}">@{[_('Edit')]}</a></td>
+                                <td><a href="@{[$r->url]}?mode=deleteWebsiteAcl&ispmanDomain=@{[$r->param("ispmanDomain")]}&section=acls&ispmanVhostName=@{[$r->param("ispmanVhostName")]}&ispmanVhostAclLocation=$ACLs->{$_}{'ispmanVhostAclLocation'}">@{[_('Delete')]}</a></td>
                                 |;
                         }
                         
@@ -96,13 +97,14 @@
             </perl>
                 
                 <tr class=control>
-                        <td valign=top class=control><input type=text name=newlocation value=""></td>
+                        <td valign=top class=control><input type=text name=ispmanVhostAclLocation value=""></td>
                         <td valign=top class=control>
-                        <select MULTIPLE size=5 name=newallow>
-                        <perl>
-                            my $webusers=$ispman->getWebUsers(($r->param('ispmanDomain'));
+                        <select MULTIPLE size=5 name=ispmanVhostAclAllowUser>
+                        <perl>
+							$text='';
+                            my $webusers=$ispman->getWebusers($r->param('ispmanDomain'));
                             for $webuser(keys %$webusers){
-                                $text.="<option value='$webusers->{$webuser}{'ispmanUserId'}'>webuser: $webusers->{$webuser}{'ispmanUserId'}</option>";
+                                $text.="\n<option value='$webusers->{$webuser}{'ispmanUserId'}'>webuser: $webusers->{$webuser}{'ispmanUserId'}</option>";
                             }
                             $text
                         </perl>




-------------------------------------------------------
This SF.net email is sponsored by: Perforce Software.
Perforce is the Fast Software Configuration Management System offering
advanced branching capabilities and atomic changes on 50+ platforms.
Free Eval! http://www.perforce.com/perforce/loadprog.html