diff options
| author | Jonathan Prykop <jonathan@freeside.biz> | 2015-06-22 18:34:27 -0500 |
|---|---|---|
| committer | Jonathan Prykop <jonathan@freeside.biz> | 2015-07-03 20:53:47 -0500 |
| commit | 4fe1fa31dffa6689d9cb88e2a0cda408b826b89d (patch) | |
| tree | 31b0e094d8804cde15659b3bcdf7584c24953383 /FS/FS/cust_main_Mixin.pm | |
| parent | f1d92e2f79225df5a4b6f56fcd616e016df425c0 (diff) | |
RT#34078: Payment History Report / Statement
Diffstat (limited to 'FS/FS/cust_main_Mixin.pm')
| -rw-r--r-- | FS/FS/cust_main_Mixin.pm | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/FS/FS/cust_main_Mixin.pm b/FS/FS/cust_main_Mixin.pm index bdad511..83ca3a2 100644 --- a/FS/FS/cust_main_Mixin.pm +++ b/FS/FS/cust_main_Mixin.pm @@ -394,6 +394,11 @@ HTML body Text body +=item sub_param + +Optional list of parameter hashrefs to be passed +along to L<FS::msg_template/prepare>. + =back Returns an error message, or false for success. @@ -470,6 +475,8 @@ sub email_search_result { 'cust_main' => $cust_main, 'object' => $obj, ); + $message{'sub_param'} = $param->{'sub_param'} + if $param->{'sub_param'}; } else { my @to = $cust_main->invoicing_list_emailonly; @@ -547,7 +554,9 @@ sub process_email_search_result { $param->{'search'} = thaw(decode_base64($param->{'search'})) or die "process_email_search_result requires search params.\n"; - + $param->{'sub_param'} = thaw(decode_base64($param->{'sub_param'})) + or die "process_email_search_result error decoding sub_param\n" + if $param->{'sub_param'}; # $param->{'payby'} = [ split(/\0/, $param->{'payby'}) ] # unless ref($param->{'payby'}); |