X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;ds=sidebyside;f=FS%2FFS%2Fpart_pkg_usageprice.pm;h=88e3870d444e6d9d93972cfaeff343b04e005ee1;hb=4427ad71b12bf27eac2a05d88141a82f9372d03f;hp=0fa6bca978cdbb49390e212502c71d47008d48df;hpb=76275769ed7ea66b154aef4d2dd00120a53196df;p=freeside.git diff --git a/FS/FS/part_pkg_usageprice.pm b/FS/FS/part_pkg_usageprice.pm index 0fa6bca97..88e3870d4 100644 --- a/FS/FS/part_pkg_usageprice.pm +++ b/FS/FS/part_pkg_usageprice.pm @@ -2,6 +2,7 @@ package FS::part_pkg_usageprice; use base qw( FS::Record ); use strict; +use Tie::IxHash; #use FS::Record qw( qsearch qsearchs ); =head1 NAME @@ -120,6 +121,38 @@ sub check { $self->SUPER::check; } +=item targets + +Returns a hash reference. Keys are possible values for the "target" field. +Values are hash references with "label" and "multiplier" keys. + +=cut + +sub targets { + + tie my %targets, 'Tie::IxHash', # once? + #'svc_acct.totalbytes' => { label => 'Megabytes', + # multiplier => 1048576, + # }, + 'svc_acct.totalbytes' => { label => 'Gigabytes', + multiplier => 1073741824, + }, + 'svc_acct.seconds' => { label => 'Hours', + multiplier => 3600, + }, + 'svc_conferencing.participants' => { label => 'Conference Participants', + multiplier=> 1, + }, + #this will take more work: set action, not increment.. + # and then value comes from a select, not a text field + # 'svc_conferencing.confqualitynum' => { label => 'Conference Quality', + # }, + ; + + \%targets; + +} + =back =head1 BUGS