diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2014-01-09 23:27:22 -0800 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2014-01-09 23:27:22 -0800 |
| commit | c6c33c7044e7669d79721b567b51487eefa0cc12 (patch) | |
| tree | 4bbf276e647f3848425fc8c1b7b550213d84cd6a /FS/FS/cust_pkg_usageprice.pm | |
| parent | 87a59b1bdf236765177c27ab18390ef1317cc34c (diff) | |
time/data/etc. unit pricing add-ons, RT#24392
Diffstat (limited to 'FS/FS/cust_pkg_usageprice.pm')
| -rw-r--r-- | FS/FS/cust_pkg_usageprice.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/FS/FS/cust_pkg_usageprice.pm b/FS/FS/cust_pkg_usageprice.pm index 394ba0b..5b6b18c 100644 --- a/FS/FS/cust_pkg_usageprice.pm +++ b/FS/FS/cust_pkg_usageprice.pm @@ -2,7 +2,7 @@ package FS::cust_pkg_usageprice; use base qw( FS::Record ); use strict; -#use FS::Record qw( qsearch qsearchs ); +use FS::Record qw( dbh ); # qsearch qsearchs ); =head1 NAME @@ -156,8 +156,8 @@ sub apply { foreach my $cust_svc ($self->cust_pkg->cust_svc(svcdb=>'svc_conferencing')){ my $svc_conferencing = $cust_svc->svc_x; my $base_amount = $cust_svc->part_svc->part_svc_column('participants')->columnvalue || 0; #assuming.. D? F would get overridden :/ - $svc_acct->participants( $base_amount + $amount ); - $error ||= $svc_acct->replace; + $svc_conferencing->participants( $base_amount + $amount ); + $error ||= $svc_conferencing->replace; } #this has no multiplication involved, its just a set only |