ispman/ispman-web/cgi-bin/tmpl/domains/edit domainservices.tmpl,1.6,1.7

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

Modified Files:
	domainservices.tmpl 
Log Message:
fixed the bugfix ;)

Index: domainservices.tmpl
===================================================================
RCS file: /cvsroot/ispman/ispman/ispman-web/cgi-bin/tmpl/domains/edit/domainservices.tmpl,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- domainservices.tmpl	6 Feb 2004 22:07:45 -0000	1.6
+++ domainservices.tmpl	6 Feb 2004 23:33:14 -0000	1.7
@@ -4,21 +4,22 @@
         <SELECT MULTIPLE name=ispmanDomainService>
         <perl>
             my $services=$ispman->getDomainServices();
-            my $selectedServices;
+            my %selectedServices;
             my $text="";
 
-            for (@{$ispman->as_array($ispman->{'domain'}{'ispmanDomainService'})}){
-		$selectedServices->{$_}=1;
+            for (@{$ispman->{'domain'}{'ispmanDomainService'}}){
+		$selectedServices{$_}=1;
 	    }
                         
             for (keys %$services){
-		if (defined $selectedServices->{$_}){
-		    $text.="<option selected";
+		my $serviceName=$services->{$_}{'ispmanDomainServiceName'};
+		if (defined $selectedServices{$serviceName}){
+		    $text.="<option selected ";
 		} else {
 		    $text.="<option ";
 		}
 
-		$text.="VALUE='$services->{$_}{'ispmanDomainServiceName'}'>";
+		$text.="value='$serviceName'>";
 		$text.="$services->{$_}{'ispmanDomainServiceAlias'} </option>\n";
             }
             $text



-------------------------------------------------------
The SF.Net email is sponsored by EclipseCon 2004
Premiere Conference on Open Tools Development and Integration
See the breadth of Eclipse activity. February 3-5 in Anaheim, CA.
http://www.eclipsecon.org/osdn