projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
book closing schema changes
[freeside.git]
/
FS
/
FS
/
part_pkg.pm
diff --git
a/FS/FS/part_pkg.pm
b/FS/FS/part_pkg.pm
index
863e962
..
29257c0
100644
(file)
--- a/
FS/FS/part_pkg.pm
+++ b/
FS/FS/part_pkg.pm
@@
-46,11
+46,21
@@
inherits from FS::Record. The following fields are currently supported:
=item comment - Text name of this billing item definition (non-customer-viewable)
=item comment - Text name of this billing item definition (non-customer-viewable)
-=item setup - Setup fee
+=item setup - Setup fee
expression
=item freq - Frequency of recurring fee
=item freq - Frequency of recurring fee
-=item recur - Recurring fee
+=item recur - Recurring fee expression
+
+=item setuptax - Setup fee tax exempt flag, empty or `Y'
+
+=item recurtax - Recurring fee tax exempt flag, empty or `Y'
+
+=item plan - Price plan
+
+=item plandata - Price plan data
+
+=item disabled - Disabled flag, empty or `Y'
=back
=back
@@
-128,19
+138,25
@@
sub check {
|| $self->ut_anything('setup')
|| $self->ut_number('freq')
|| $self->ut_anything('recur')
|| $self->ut_anything('setup')
|| $self->ut_number('freq')
|| $self->ut_anything('recur')
+ || $self->ut_alphan('plan')
+ || $self->ut_anything('plandata')
+ || $self->ut_enum('setuptax', [ '', 'Y' ] )
+ || $self->ut_enum('recurtax', [ '', 'Y' ] )
+ || $self->ut_enum('disabled', [ '', 'Y' ] )
;
;
+
}
=item pkg_svc
Returns all FS::pkg_svc objects (see L<FS::pkg_svc>) for this package
}
=item pkg_svc
Returns all FS::pkg_svc objects (see L<FS::pkg_svc>) for this package
-definition.
+definition
(with non-zero quantity)
.
=cut
sub pkg_svc {
my $self = shift;
=cut
sub pkg_svc {
my $self = shift;
- qsearch( 'pkg_svc', { 'pkgpart' => $self->pkgpart } );
+
grep { $_->quantity }
qsearch( 'pkg_svc', { 'pkgpart' => $self->pkgpart } );
}
=item svcpart [ SVCDB ]
}
=item svcpart [ SVCDB ]
@@
-166,7
+182,7
@@
sub svcpart {
=head1 VERSION
=head1 VERSION
-$Id: part_pkg.pm,v 1.
1 1999-08-04 09:03:5
3 ivan Exp $
+$Id: part_pkg.pm,v 1.
6 2002-01-28 06:57:2
3 ivan Exp $
=head1 BUGS
=head1 BUGS