diff options
| author | ivan <ivan> | 2001-08-11 05:51:24 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2001-08-11 05:51:24 +0000 |
| commit | 251030ed112d091a77a71299043cf46d88914bc5 (patch) | |
| tree | 9a4eae24638bf03363da8940a8dd6cad11b19891 /FS | |
| parent | aff324b078531b8ab82e692a2c182d8f1ae0c932 (diff) | |
better error msg
Diffstat (limited to 'FS')
| -rw-r--r-- | FS/FS/part_svc.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/FS/FS/part_svc.pm b/FS/FS/part_svc.pm index 01487b7..ccf0413 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 |