projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
allow pkgpart changing (for per-customer custom pricing). warn about it in doc
[freeside.git]
/
site_perl
/
cust_pkg.pm
diff --git
a/site_perl/cust_pkg.pm
b/site_perl/cust_pkg.pm
index
7dc5aa7
..
5640e24
100644
(file)
--- a/
site_perl/cust_pkg.pm
+++ b/
site_perl/cust_pkg.pm
@@
-6,6
+6,8
@@
use Exporter;
use FS::UID qw(getotaker);
use FS::Record qw(fields qsearch qsearchs);
use FS::cust_svc;
use FS::UID qw(getotaker);
use FS::Record qw(fields qsearch qsearchs);
use FS::cust_svc;
+use FS::part_pkg;
+use FS::cust_main;
@ISA = qw(FS::Record Exporter);
@ISA = qw(FS::Record Exporter);
@@
-34,6
+36,8
@@
FS::cust_pkg - Object methods for cust_pkg objects
$error = $record->unsuspend;
$error = $record->unsuspend;
+ $part_pkg = $record->part_pkg;
+
$error = FS::cust_pkg::order( $custnum, \@pkgparts );
$error = FS::cust_pkg::order( $custnum, \@pkgparts, \@remove_pkgnums ] );
$error = FS::cust_pkg::order( $custnum, \@pkgparts );
$error = FS::cust_pkg::order( $custnum, \@pkgparts, \@remove_pkgnums ] );
@@
-121,7
+125,7
@@
returns the error, otherwise returns false.
Currently, custnum, setup, bill, susp, expire, and cancel may be changed.
Currently, custnum, setup, bill, susp, expire, and cancel may be changed.
-
pkgpart may not be changed, but s
ee the order subroutine.
+
Changing pkgpart may have disasterous effects. S
ee the order subroutine.
setup and bill are normally updated by calling the bill method of a customer
object (see L<FS::cust_main>).
setup and bill are normally updated by calling the bill method of a customer
object (see L<FS::cust_main>).
@@
-138,8
+142,8
@@
sub replace {
return "(Old) Not a cust_pkg record!" if $old->table ne "cust_pkg";
return "Can't change pkgnum!"
if $old->getfield('pkgnum') ne $new->getfield('pkgnum');
return "(Old) Not a cust_pkg record!" if $old->table ne "cust_pkg";
return "Can't change pkgnum!"
if $old->getfield('pkgnum') ne $new->getfield('pkgnum');
- return "Can't (yet?) change pkgpart!"
- if $old->getfield('pkgpart') ne $new->getfield('pkgpart');
+
#
return "Can't (yet?) change pkgpart!"
+
#
if $old->getfield('pkgpart') ne $new->getfield('pkgpart');
return "Can't change otaker!"
if $old->getfield('otaker') ne $new->getfield('otaker');
return "Can't change setup once it exists!"
return "Can't change otaker!"
if $old->getfield('otaker') ne $new->getfield('otaker');
return "Can't change setup once it exists!"
@@
-356,6
+360,18
@@
sub unsuspend {
''; #no errors
}
''; #no errors
}
+=item part_pkg
+
+Returns the definition for this billing item, as an FS::part_pkg object (see
+L<FS::part_pkg).
+
+=cut
+
+sub part_pkg {
+ my($self)=@_;
+ qsearchs('part_pkg', { 'pkgpart' => $self->pkgpart });
+}
+
=back
=head1 SUBROUTINES
=back
=head1 SUBROUTINES
@@
-477,6
+493,10
@@
sub order {
=back
=back
+=head1 VERSION
+
+$Id: cust_pkg.pm,v 1.3 1998-11-15 13:01:35 ivan Exp $
+
=head1 BUGS
It doesn't properly override FS::Record yet.
=head1 BUGS
It doesn't properly override FS::Record yet.
@@
-501,6
+521,14
@@
fixed for new agent->agent_type->type_pkgs in &order ivan@sisd.com 98-mar-7
pod ivan@sisd.com 98-sep-21
pod ivan@sisd.com 98-sep-21
+$Log: cust_pkg.pm,v $
+Revision 1.3 1998-11-15 13:01:35 ivan
+allow pkgpart changing (for per-customer custom pricing). warn about it in doc
+
+Revision 1.2 1998/11/12 03:42:45 ivan
+added label method
+
+
=cut
1;
=cut
1;