From c6c33c7044e7669d79721b567b51487eefa0cc12 Mon Sep 17 00:00:00 2001 From: Ivan Kohler Date: Thu, 9 Jan 2014 23:27:22 -0800 Subject: [PATCH] time/data/etc. unit pricing add-ons, RT#24392 --- FS/FS/cust_pkg_usageprice.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/FS/FS/cust_pkg_usageprice.pm b/FS/FS/cust_pkg_usageprice.pm index 394ba0ba9..5b6b18c70 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 -- 2.11.0