diff options
author | ivan <ivan> | 2001-12-27 09:26:14 +0000 |
---|---|---|
committer | ivan <ivan> | 2001-12-27 09:26:14 +0000 |
commit | cf16b23820da69e3c8d0156ae27e21c635bf1ec5 (patch) | |
tree | 3aaac010a7741957247151074be000f3e8247129 /FS/FS/part_svc.pm | |
parent | fee9bc7edcdd27e7a4e47bc313d05c66cd900073 (diff) |
service and package disable!
Diffstat (limited to 'FS/FS/part_svc.pm')
-rw-r--r-- | FS/FS/part_svc.pm | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/FS/FS/part_svc.pm b/FS/FS/part_svc.pm index 2b3f3f3..18760c3 100644 --- a/FS/FS/part_svc.pm +++ b/FS/FS/part_svc.pm @@ -40,6 +40,8 @@ FS::Record. The following fields are currently supported: =item svcdb - table used for this service. See L<FS::svc_acct>, L<FS::svc_domain>, and L<FS::svc_forward>, among others. +=item disabled - Disabled flag, empty or `Y' + =back =head1 METHODS @@ -235,6 +237,7 @@ sub check { my @fields = eval { fields( $recref->{svcdb} ) }; #might die return "Unknown svcdb!" unless @fields; +##REPLACED BY part_svc_column # my $svcdb; # foreach $svcdb ( qw( # svc_acct svc_acct_sm svc_domain @@ -259,6 +262,9 @@ sub check { # } # } + $self->disabled =~ /^(Y?)$/ or return "Illegal disabled: ". $self->disabled; + $self->disabled($1); + ''; #no error } @@ -295,7 +301,7 @@ sub all_part_svc_column { =head1 VERSION -$Id: part_svc.pm,v 1.6 2001-09-12 15:45:01 ivan Exp $ +$Id: part_svc.pm,v 1.7 2001-12-27 09:26:13 ivan Exp $ =head1 BUGS @@ -306,9 +312,9 @@ should be fixed. =head1 SEE ALSO -L<FS::Record>, L<FS::part_pkg>, L<FS::pkg_svc>, L<FS::cust_svc>, -L<FS::svc_acct>, L<FS::svc_forward>, L<FS::svc_domain>, schema.html from the -base documentation. +L<FS::Record>, L<FS::part_svc_column, L<FS::part_pkg>, L<FS::pkg_svc>, +L<FS::cust_svc>, L<FS::svc_acct>, L<FS::svc_forward>, L<FS::svc_domain>, +schema.html from the base documentation. =cut |