ispman/lib/ISPMan DomainMan.pm,1.92,1.93

Update of /cvsroot/ispman/ispman/lib/ISPMan
In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv3717/lib/ISPMan

Modified Files:
	DomainMan.pm 
Log Message:
added missing code to delete databases on domain delete

Index: DomainMan.pm
===================================================================
RCS file: /cvsroot/ispman/ispman/lib/ISPMan/DomainMan.pm,v
retrieving revision 1.92
retrieving revision 1.93
diff -u -d -r1.92 -r1.93
--- DomainMan.pm	29 Dec 2008 16:20:54 -0000	1.92
+++ DomainMan.pm	29 Dec 2008 17:05:10 -0000	1.93
@@ -420,6 +420,12 @@
         $self->delete_vhost( $vhost, $domain );
     }
 
+    # delete all databases
+    my $dbs = $self->getDatabases($domain);
+    for my $db ( keys %$dbs ) {
+        $self->delete_database( $db, $domain );
+    }
+
     # Now Delete the rest of the tree.
     my $domain_info = $self->getDomainInfo( $domain, 1 );
 


------------------------------------------------------------------------------