diff options
author | Jonathan Prykop <jonathan@freeside.biz> | 2015-06-25 00:51:02 -0500 |
---|---|---|
committer | Jonathan Prykop <jonathan@freeside.biz> | 2015-07-03 21:11:46 -0500 |
commit | c112a7e56557acce5a54d3b57e4cdbab7c43ecc5 (patch) | |
tree | 25847f595da1d7e781350a245d1582cbe480161e /FS/FS/msg_template.pm | |
parent | 0be0b02db98ed06dabe51805fe45b2e9704327b8 (diff) |
RT#34078: Payment History Report / Statement
Diffstat (limited to 'FS/FS/msg_template.pm')
-rw-r--r-- | FS/FS/msg_template.pm | 37 |
1 files changed, 3 insertions, 34 deletions
diff --git a/FS/FS/msg_template.pm b/FS/FS/msg_template.pm index 644663e71..cb13696a5 100644 --- a/FS/FS/msg_template.pm +++ b/FS/FS/msg_template.pm @@ -268,19 +268,7 @@ invoicing_list addresses. Multiple addresses may be comma-separated. =item substitutions -A hash reference of additional string substitutions - -=item sub_param - -A hash reference, keys are the names of existing substitutions, -values are an addition parameter object to pass to the subroutine -for that substitution, e.g. - - 'sub_param' => { - 'payment_history' => { - 'start_date' => 1434764295, - }, - }, +A hash reference of additional substitutions =back @@ -336,10 +324,7 @@ sub prepare { } elsif( ref($name) eq 'ARRAY' ) { # [ foo => sub { ... } ] - my @subparam = (); - push(@subparam, $opt{'sub_param'}->{$name->[0]}) - if $opt{'sub_param'} && $opt{'sub_param'}->{$name->[0]}; - $hash{$prefix.($name->[0])} = $name->[1]->($obj,@subparam); + $hash{$prefix.($name->[0])} = $name->[1]->($obj); } else { warn "bad msg_template substitution: '$name'\n"; @@ -352,10 +337,7 @@ sub prepare { $hash{$_} = $opt{substitutions}->{$_} foreach keys %{$opt{substitutions}}; } - foreach my $key (keys %hash) { - next if $self->no_encode($key); - $hash{$key} = encode_entities($_ || ''); - }; + $_ = encode_entities($_ || '') foreach values(%hash); ### # clean up template @@ -522,13 +504,6 @@ my $usage_warning = sub { #my $conf = new FS::Conf; -# for substitutions that handle their own encoding -sub no_encode { - my $self = shift; - my $field = shift; - return ($field eq 'payment_history'); -} - #return contexts and fill-in values # If you add anything, be sure to add a description in # httemplate/edit/msg_template.html. @@ -587,12 +562,6 @@ sub substitutions { [ selfservice_server_base_url => sub { $conf->config('selfservice_server-base_url') #, shift->agentnum) } ], - [ payment_history => sub { - my $cust_main = shift; - my $param = shift || {}; - #html works, see no_encode method - return '<PRE>' . encode_entities($cust_main->payment_history_text($param)) . '</PRE>'; - } ], ], # next_bill_date 'cust_pkg' => [qw( |