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

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

Modified Files:
	menu.tmpl 
Log Message:
fixed some perl warnings

Index: menu.tmpl
===================================================================
RCS file: /cvsroot/ispman/ispman/ispman-web/cgi-bin/tmpl/menu.tmpl,v
retrieving revision 1.45
retrieving revision 1.46
diff -u -d -r1.45 -r1.46
--- menu.tmpl	6 Feb 2004 17:05:05 -0000	1.45
+++ menu.tmpl	6 Feb 2004 22:23:25 -0000	1.46
@@ -109,8 +109,9 @@
     $mailgroups=$ispman->getMailGroups($domains->{$thisDomain});
     $thisDomainType=$ispman->getDomainType($thisDomain);
     $thisDomainInfo=$ispman->getDomainInfo($thisDomain);
-};
-    
+} else { 
+    $r->param("ispmanDomain","");
+}
 
 
 $text.=qq|
@@ -146,7 +147,7 @@
     
 for my $master( sort  keys %$masters ) {                                                                   
     $text.="<OPTION value='$master'";
-    if ($r->param("ispmanDomain") && $r->param("ispmanDomain") eq $master){
+    if ($r->param("ispmanDomain") eq $master){
         $text.= " selected  ";
     }
     



-------------------------------------------------------
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