X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fpkg_svc.pm;h=f79bb5e2ddd2c918b5128a0734bc8aa3f9ac5cd2;hb=dafdfc24616b04a5ff594da31e2cdd03f58634b6;hp=065ddbe51e1a73c7b6308f523ee4e73e4d1bf016;hpb=673b9a458d9138523026963df6fa3b4683e09bae;p=freeside.git diff --git a/FS/FS/pkg_svc.pm b/FS/FS/pkg_svc.pm index 065ddbe51..f79bb5e2d 100644 --- a/FS/FS/pkg_svc.pm +++ b/FS/FS/pkg_svc.pm @@ -50,6 +50,8 @@ definition includes =item primary_svc - primary flag, empty or 'Y' +=item hidden - 'Y' to hide this service on invoices, null otherwise. + =back =head1 METHODS @@ -82,7 +84,9 @@ returns the error, otherwise returns false. =cut sub replace { - my ( $new, $old ) = ( shift, shift ); + my( $new, $old ) = ( shift, shift ); + + $old = $new->replace_old unless defined($old); return "Can't change pkgpart!" if $old->pkgpart != $new->pkgpart; return "Can't change svcpart!" if $old->svcpart != $new->svcpart; @@ -107,6 +111,7 @@ sub check { || $self->ut_number('pkgpart') || $self->ut_number('svcpart') || $self->ut_number('quantity') + || $self->ut_enum('hidden', [ '', 'Y' ] ) ; return $error if $error;