diff options
author | ivan <ivan> | 2005-07-14 10:52:46 +0000 |
---|---|---|
committer | ivan <ivan> | 2005-07-14 10:52:46 +0000 |
commit | 08662d58e7b9a13cf841e9c89daa39b28655724e (patch) | |
tree | bb6415dcfc8c94a30639c8a913051a38c31780ad /FS/FS/cust_bill_event.pm | |
parent | c91e5cd4ce307d5f3573ea309cbcf03186ea3de4 (diff) |
move account search (httemplate/search/svc_acct.cgi) to new template, cust-fields configuration value to control which customer fields are shown on reports
Diffstat (limited to 'FS/FS/cust_bill_event.pm')
-rw-r--r-- | FS/FS/cust_bill_event.pm | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/FS/FS/cust_bill_event.pm b/FS/FS/cust_bill_event.pm index 7b981391e..128e5a53d 100644 --- a/FS/FS/cust_bill_event.pm +++ b/FS/FS/cust_bill_event.pm @@ -3,10 +3,11 @@ package FS::cust_bill_event; use strict; use vars qw( @ISA $DEBUG ); use FS::Record qw( qsearch qsearchs ); +use FS::cust_main_Mixin; use FS::cust_bill; use FS::part_bill_event; -@ISA = qw(FS::Record); +@ISA = qw(FS::cust_main_Mixin FS::Record); $DEBUG = 0; @@ -70,6 +71,13 @@ points to. You can ask the object for a copy with the I<hash> method. sub table { 'cust_bill_event'; } +sub cust_linked { $_[0]->cust_main_custnum; } +sub cust_unlinked_msg { + my $self = shift; + "WARNING: can't find cust_main.custnum ". $self->custnum. + ' (cust_bill.invnum '. $self->invnum. ')'; +} + =item insert Adds this record to the database. If there is an error, returns the error, |