ispman/lib/ISPMan DomainMan.pm,1.85,1.86

Update of /cvsroot/ispman/ispman/lib/ISPMan
In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv5601/lib/ISPMan

Modified Files:
	DomainMan.pm 
Log Message:
fixed bug [ 1652744 ] reseller unable to create domain

Index: DomainMan.pm
===================================================================
RCS file: /cvsroot/ispman/ispman/lib/ISPMan/DomainMan.pm,v
retrieving revision 1.85
retrieving revision 1.86
diff -u -d -r1.85 -r1.86
--- DomainMan.pm	2 Oct 2006 20:01:50 -0000	1.85
+++ DomainMan.pm	10 Feb 2007 20:42:06 -0000	1.86
@@ -1390,9 +1390,13 @@
 sub selectDomainType {
     my $self     = shift;
     my $r        = shift;
-    my $template = $self->getTemplate("domains/selectDomainType.tmpl");
-    print $template->fill_in( PACKAGE => "ISPMan" );
-
+    
+    if (   $self->{'session'} && $self->{'session'}->param("logintype") eq "reseller" && !$self->getClients() ) {
+        print "No clients are defined for this reseller. Please add clients first!";
+    } else {    
+        my $template = $self->getTemplate("domains/selectDomainType.tmpl");
+        print $template->fill_in( PACKAGE => "ISPMan" );
+    }
 =item B<selectDomainType>
 
 Loads and print selectDomainType.tmpl


-------------------------------------------------------------------------
Using Tomcat but need to do more? Need to support web services, security?
Get stuff done quickly with pre-integrated technology to make your job easier.
Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642