domain_record records attached to svc_www records are no longer delete-able,
authorivan <ivan>
Sun, 23 Jun 2002 19:16:45 +0000 (19:16 +0000)
committerivan <ivan>
Sun, 23 Jun 2002 19:16:45 +0000 (19:16 +0000)
patch from "Stephen Bechard" <steve@destek.net>, thanks!  closes: Bug#434

FS/FS/domain_record.pm

index 03f9e10..37cc6c9 100644 (file)
@@ -5,6 +5,7 @@ use vars qw( @ISA $noserial_hack );
 #use FS::Record qw( qsearch qsearchs );
 use FS::Record qw( qsearchs dbh );
 use FS::svc_domain;
 #use FS::Record qw( qsearch qsearchs );
 use FS::Record qw( qsearchs dbh );
 use FS::svc_domain;
+use FS::svc_www;
 
 @ISA = qw(FS::Record);
 
 
 @ISA = qw(FS::Record);
 
@@ -124,6 +125,9 @@ Delete this record from the database.
 sub delete {
   my $self = shift;
 
 sub delete {
   my $self = shift;
 
+  return "Can't delete a domain record which has a website!"
+    if qsearchs( 'svc_www', { 'recnum' => $self->recnum } );
+
   local $SIG{HUP} = 'IGNORE';
   local $SIG{INT} = 'IGNORE';
   local $SIG{QUIT} = 'IGNORE';
   local $SIG{HUP} = 'IGNORE';
   local $SIG{INT} = 'IGNORE';
   local $SIG{QUIT} = 'IGNORE';
@@ -309,7 +313,7 @@ sub svc_domain {
 
 =head1 VERSION
 
 
 =head1 VERSION
 
-$Id: domain_record.pm,v 1.10 2002-06-10 23:02:41 ivan Exp $
+$Id: domain_record.pm,v 1.11 2002-06-23 19:16:45 ivan Exp $
 
 =head1 BUGS
 
 
 =head1 BUGS