CVS: ispman/lib/ISPMan DomainMan.pm,1.49,1.50

Update of /cvsroot/ispman/ispman/lib/ISPMan
In directory sc8-pr-cvs1:/tmp/cvs-serv24310

Modified Files:
	DomainMan.pm 
Log Message:
 added the second call for the remove spaces in addNewDomain. This should be generelized somewhere 

Index: DomainMan.pm
===================================================================
RCS file: /cvsroot/ispman/ispman/lib/ISPMan/DomainMan.pm,v
retrieving revision 1.49
retrieving revision 1.50
diff -C2 -r1.49 -r1.50
*** DomainMan.pm	4 Sep 2003 22:54:08 -0000	1.49
--- DomainMan.pm	4 Sep 2003 23:01:33 -0000	1.50
***************
*** 208,212 ****
--- 208,219 ----
     my $r=shift;
     
+    my $domain=lc($r->param("ispmanDomain"));
+    $domain=~s/\s//g; # remove all spaces
+    # reset $r->param("ispmanDomain")
+    $r->param("ispmanDomain", $domain);
+    # reset $r->param("domain") for backword compatibility.
+    $r->param("domain", $domain);
     
+ 
     if ($self->{'session'}) {
        if ($self->{'session'}->param("logintype") eq "reseller" or $self->{'session'}->param("logintype") eq "client" ) {



-------------------------------------------------------
This sf.net email is sponsored by:ThinkGeek
Welcome to geek heaven.
http://thinkgeek.com/sf