projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
domain_record records attached to svc_www records are no longer delete-able,
[freeside.git]
/
FS
/
FS
/
domain_record.pm
diff --git
a/FS/FS/domain_record.pm
b/FS/FS/domain_record.pm
index
4ed713c
..
37cc6c9
100644
(file)
--- a/
FS/FS/domain_record.pm
+++ b/
FS/FS/domain_record.pm
@@
-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';
@@
-296,7
+300,7
@@
sub increment_serial {
=item svc_domain
=item svc_domain
-Returns the domain (see L<FS::svc_domain) for this record.
+Returns the domain (see L<FS::svc_domain
>
) for this record.
=cut
=cut
@@
-309,7
+313,7
@@
sub svc_domain {
=head1 VERSION
=head1 VERSION
-$Id: domain_record.pm,v 1.
9 2002-05-23 13:00:08
ivan Exp $
+$Id: domain_record.pm,v 1.
11 2002-06-23 19:16:45
ivan Exp $
=head1 BUGS
=head1 BUGS