ispman/ispman-web/cgi-bin/tmpl/vhosts edit_acls.tmpl,1.5,1.6

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

Modified Files:
	edit_acls.tmpl 
Log Message:
fixes [ 971077 ] domain users for website acls

Index: edit_acls.tmpl
===================================================================
RCS file: /cvsroot/ispman/ispman/ispman-web/cgi-bin/tmpl/vhosts/edit_acls.tmpl,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- edit_acls.tmpl	21 Feb 2004 21:31:28 -0000	1.5
+++ edit_acls.tmpl	11 Jun 2004 18:30:47 -0000	1.6
@@ -55,6 +55,14 @@
 					for $domainuser(keys %$domainusers){
 						my $exploded_dn=$ispman->explodeDN($domainusers->{$domainuser});
 						my $uid=$exploded_dn->{'uid'};
+
+                                                # FIXME!!!
+                                                # Really dirty hack to fake the ispmanUserId which can not easily retrieved here.
+                                                # This will get fixed with new ISPMan Core Libs
+                                                my $domain = $r->param("ispmanDomain");
+                                                $domain =~ s/\./_/;
+                                                $uid =~ s/_$domain//;
+
 						$text.="<option value='$uid'";
 						if ($allowedUsers->{$uid}) {
 							$text.=" selected ";
@@ -119,6 +127,14 @@
 			for my $user(keys %$users) {
 				my $exploded_dn=$ispman->explodeDN($users->{$user});
 				my $uid=$exploded_dn->{'uid'};
+
+                                # FIXME!!!
+                                # Really dirty hack to fake the ispmanUserId which can not easily retrieved here.
+                                # This will get fixed with new ISPMan Core Libs
+                                my $domain = $r->param("ispmanDomain");
+                                $domain =~ s/\./_/;
+                                $uid =~ s/_$domain//;
+
 				$text.="<option value='$uid'>domainuser: $uid</option>\n";
 			}
 			$text



-------------------------------------------------------
This SF.Net email is sponsored by the new InstallShield X.
From Windows to Linux, servers to mobile, InstallShield X is the
one installation-authoring solution that does it all. Learn more and
evaluate today! http://www.installshield.com/Dev2Dev/0504