diff options
author | Ivan Kohler <ivan@freeside.biz> | 2013-12-26 23:35:38 -0800 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2013-12-26 23:35:38 -0800 |
commit | 484f64be9482f5ab1a7a76778b1c406a68b8929e (patch) | |
tree | fbdd66c32b14f85738770a138e192be8107648f0 /FS/FS/TemplateItem_Mixin.pm | |
parent | 5e96efd1f204142b750b62fa4a977ca50fb5b0fe (diff) |
for prepaid, display the time period triggered by a 0 recurring with freq in the setup line item, RT#26274
Diffstat (limited to 'FS/FS/TemplateItem_Mixin.pm')
-rw-r--r-- | FS/FS/TemplateItem_Mixin.pm | 53 |
1 files changed, 52 insertions, 1 deletions
diff --git a/FS/FS/TemplateItem_Mixin.pm b/FS/FS/TemplateItem_Mixin.pm index 8b0e16a..7df75d4 100644 --- a/FS/FS/TemplateItem_Mixin.pm +++ b/FS/FS/TemplateItem_Mixin.pm @@ -1,15 +1,21 @@ package FS::TemplateItem_Mixin; use strict; -use vars qw( $DEBUG $me ); # but NOT $conf +use vars qw( $DEBUG $me $conf $date_format ); use Carp; +use Date::Format; use FS::UID; use FS::Record qw( qsearch qsearchs dbh ); +use FS::Conf; use FS::part_pkg; use FS::cust_pkg; $DEBUG = 0; $me = '[FS::TemplateItem_Mixin]'; +FS::UID->install_callback( sub { + $conf = new FS::Conf; + $date_format = $conf->config('date_format') || '%x'; #/YY +} ); =item cust_pkg @@ -63,6 +69,51 @@ sub desc { } } +=item time_period_pretty PART_PKG, AGENTNUM + +Returns a formatted time period for this line item. + +=cut + +sub time_period_pretty { + my( $self, $part_pkg, $agentnum ) = @_; + + #more efficient to look some of this conf stuff up outside the + # invoice/template display loop we're called from + # (Template_Mixin::_invoice_cust_bill_pkg) and pass them in as options + + return '' if $conf->exists('disable_line_item_date_ranges') + || $part_pkg->option('disable_line_item_date_ranges',1) + || ! $self->sdate + || ! $self->edate; + + my $date_style = ''; + $date_style = $conf->config( 'cust_bill-line_item-date_style-non_monhtly', + $agentnum + ) + if $part_pkg && $part_pkg->freq !~ /^1m?$/; + $date_style ||= $conf->config( 'cust_bill-line_item-date_style', + $agentnum + ); + + my $time_period; + if ( defined($date_style) && $date_style eq 'month_of' ) { + $time_period = time2str('The month of %B', $self->sdate); + } elsif ( defined($date_style) && $date_style eq 'X_month' ) { + my $desc = $conf->config( 'cust_bill-line_item-date_description', + $agentnum + ); + $desc .= ' ' unless $desc =~ /\s$/; + $time_period = $desc. time2str('%B', $self->sdate); + } else { + $time_period = time2str($date_format, $self->sdate). + " - ". time2str($date_format, $self->edate); + } + + " ($time_period)"; + +} + =item details [ OPTION => VALUE ... ] Returns an array of detail information for the invoice line item. |