X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fpart_svc.pm;h=ccf0413b3d8bf5dca3b4abada3b22fedc154836e;hb=8c1f9804d9a02c0c054eededeb500c72a640249a;hp=01487b75ffe03f4ff68f91cbf08be87f5be0da50;hpb=6cd87c0d3b5280446301c647fa5f1ec5a593fa3f;p=freeside.git diff --git a/FS/FS/part_svc.pm b/FS/FS/part_svc.pm index 01487b75f..ccf0413b3 100644 --- a/FS/FS/part_svc.pm +++ b/FS/FS/part_svc.pm @@ -84,7 +84,7 @@ returns the error, otherwise returns false. sub replace { my ( $new, $old ) = ( shift, shift ); - return "Can't change svcdb!" + return "Can't change svcdb for an existing service definition!" unless $old->svcdb eq $new->svcdb; $new->SUPER::replace( $old ); @@ -144,7 +144,7 @@ sub check { =head1 VERSION -$Id: part_svc.pm,v 1.1 1999-08-04 09:03:53 ivan Exp $ +$Id: part_svc.pm,v 1.2 2001-08-11 05:51:24 ivan Exp $ =head1 BUGS