X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fpart_pkg%2Frt_time.pm;h=11b7ee85c540f987b9b25e411b2c2f534d7d1e48;hb=36b4c4911bb63592edf8d5189f6d0af1d8da2b39;hp=9452d44023e04fa8ebff661ed9bfbace9d775b31;hpb=9b6b116d4a492cb0edc31e53abf1fdb43be42d0e;p=freeside.git diff --git a/FS/FS/part_pkg/rt_time.pm b/FS/FS/part_pkg/rt_time.pm index 9452d4402..11b7ee85c 100644 --- a/FS/FS/part_pkg/rt_time.pm +++ b/FS/FS/part_pkg/rt_time.pm @@ -14,13 +14,24 @@ our %info = ( 'name' => 'Bill from Time Worked on tickets in RT', 'shortname' => 'Project Billing (RT)', 'weight' => 55, + 'inherit_fields' => [ 'global_Mixin' ], 'fields' => { 'base_rate' => { 'name' => 'Rate (per minute)', 'default' => 0, }, - } + 'recur_fee' => {'disabled' => 1}, + }, + 'fieldorder' => [ 'base_rate' ], ); +sub price_info { + my $self = shift; + my $str = $self->SUPER::price_info; + my $rate = $self->option('base_rate'); + $str .= " plus $rate/min" if $rate; + $str; +} + sub calc_setup { my($self, $cust_pkg ) = @_; $self->option('setup_fee'); @@ -41,12 +52,13 @@ sub calc_recur { sub can_discount { 0; } -sub calc_cancel { - my $self = shift; - my($cust_pkg, $sdate, $details, $param ) = @_; - - $self->calc_usage(@_); -} +# use the default +#sub calc_cancel { +# my $self = shift; +# my($cust_pkg, $sdate, $details, $param ) = @_; +# +# $self->calc_usage(@_); +#} sub calc_usage { my $self = shift;