From 3b46d452696901ff2dec41125f68c689ecffd5b9 Mon Sep 17 00:00:00 2001 From: Jonathan Prykop Date: Thu, 25 Jun 2015 00:51:02 -0500 Subject: RT#34078: Payment History Report / Statement [refactor to not use msg_template] --- httemplate/misc/email-customer-statement.html | 91 +++++++++++++++++++++++++++ httemplate/misc/email-customers-history.html | 51 --------------- httemplate/misc/email-customers.html | 47 ++++++++------ 3 files changed, 118 insertions(+), 71 deletions(-) create mode 100644 httemplate/misc/email-customer-statement.html delete mode 100644 httemplate/misc/email-customers-history.html (limited to 'httemplate/misc') diff --git a/httemplate/misc/email-customer-statement.html b/httemplate/misc/email-customer-statement.html new file mode 100644 index 000000000..65660f1be --- /dev/null +++ b/httemplate/misc/email-customer-statement.html @@ -0,0 +1,91 @@ + + <% include('email-customers.html', + 'form_action' => 'email-customer-statement.html', + 'title' => 'Send statement to customer', + 'no_search_fields' => [ 'start_date', 'end_date' ], + 'alternate_form' => $alternate_form, + 'post_search_hook' => $post_search_hook, + ) + %> + +<%init> + +die "access denied" + unless $FS::CurrentUser::CurrentUser->access_right('View invoices'); + +my $alternate_form = sub { + # this could maaaybe be a separate element, for cleanliness + # but it's really only for use by this page, and it's not overly complicated + my $noinit = 0; + return join("\n", + '', + ( + map { + my $label = ucfirst($_); + $label =~ s/_/ /; + include('/elements/tr-input-date-field.html',{ + 'name' => $_, + 'value' => $cgi->param($_) || '', + 'label' => $label, + 'noinit' => $noinit++ + }); + } + qw( start_date end_date ) + ), + '
', + '', + '', + ); +}; + +my $post_search_hook = sub { + my %opt = @_; + return unless $cgi->param('action') eq 'preview'; + my $cust_main = qsearchs('cust_main',$opt{'search'}) + or die "Could not find customer"; + + # so that the statement indicates the latest date + my $date_format = $opt{'conf'}->config('date_format') || '%m/%d/%Y'; + $cgi->param('end_date', time2str($date_format, time)) + unless $cgi->param('end_date'); + + # set from/subject/html_body based on date range + + $cgi->param('from', + $opt{'conf'}->config('invoice_from') + ); + + # shortcut for common text + my $summary_text = $cust_main->name_short . + ($cgi->param('start_date') ? ' from ' : '') . + $cgi->param('start_date') . + ($cgi->param('end_date') ? ' through ' : '') . + $cgi->param('end_date'); + + $cgi->param('subject', + $opt{'conf'}->config('company_name') . + ' statement for ' . + $summary_text + ); + + $cgi->param('html_body', + '

' . + $opt{'conf'}->config('company_name') . + ' statement of charges and payments for ' . + $summary_text . + "

" . + include('/elements/customer-statement.html', + 'history' => [ + $cust_main->payment_history( + map { + $_ => parse_datetime($cgi->param($_)) + } + qw( start_date end_date ), + ), + ], + ) + ); +}; + + + diff --git a/httemplate/misc/email-customers-history.html b/httemplate/misc/email-customers-history.html deleted file mode 100644 index 2f9a38d23..000000000 --- a/httemplate/misc/email-customers-history.html +++ /dev/null @@ -1,51 +0,0 @@ - - <% include('email-customers.html', - 'form_action' => 'email-customers-history.html', - 'sub_param_process' => $sub_param_process, - 'alternate_form' => $alternate_form, - 'title' => 'Send payment history', - ) - %> - -<%init> - -my $sub_param_process = sub { - my $conf = shift; - my %sub_param; - foreach my $field ( qw( start_date end_date ) ) { - $sub_param{'payment_history'}->{$field} = parse_datetime($cgi->param($field)); - $cgi->delete($field); - } - $cgi->param('msgnum',$conf->config('payment_history_msgnum')); - return %sub_param; -}; - -my $alternate_form = sub { - my %sub_param = @_; - # this could maaaybe be a separate element, for cleanliness - # but it's really only for use by this page, and it's not overly complicated - my $noinit = 0; - return join("\n", - '', - ( - map { - my $label = ucfirst($_); - $label =~ s/_/ /; - include('/elements/tr-input-date-field.html',{ - 'name' => $_, - 'value' => $sub_param{'payment_history'}->{$_} || '', - 'label' => $label, - 'noinit' => $noinit++ - }); - } - qw( start_date end_date ) - ), - '
', - '', - '', - '', - ); -}; - - - diff --git a/httemplate/misc/email-customers.html b/httemplate/misc/email-customers.html index d1d5ac735..3327303e4 100644 --- a/httemplate/misc/email-customers.html +++ b/httemplate/misc/email-customers.html @@ -6,18 +6,23 @@ frozen hash in the 'search' cgi param. Form allows selecting an existing msg_te or creating a custom message, and shows a preview of the message before sending. If linked to as a popup, include the cgi parameter 'popup' for proper header handling. -This may also be used as an element in other pages, enabling you to pass along -additional substitution parameters to a message template, with the following options: +This may also be used as an element in other pages, enabling you to provide an +alternate initial form while using this for search freezing/thawing and +preview/send actions, with the following options: form_action - the URL to submit the form to -sub_param_process - subroutine to override cgi param values (such as msgnum) -and parse/delete additional form fields from the cgi; should return a %sub_param -hash to be passed along for message substitution +title - the title of the page -alternate_form - an alternate form for template selection/message creation +no_search_fields - arrayref of additional fields that are not search parameters -title - the title of the page +alternate_form - subroutine that returns alternate html for the initial form, +replaces msgnum/from/subject/html_body/action inputs and submit button, +not used if an action is specified + +post_search_hook - sub hook for additional processing after search has been processed from cgi, +gets passed options 'conf' and 'search' (a reference to the unfrozen %search hash), +should be used to set msgnum or from/subject/html_body cgi params @@ -35,9 +40,6 @@ title - the title of the page %# multi-valued search params. We are no longer in search context, so we %# pack the search into a Storable string for later use. -% if (%sub_param) { - -% } @@ -47,7 +49,7 @@ title - the title of the page <% include('/elements/progress-init.html', 'OneTrueForm', - [ qw( search table from subject html_body text_body msgnum sub_param ) ], + [ qw( search table from subject html_body text_body msgnum ) ], 'process/email-customers.html', $pdest, ) @@ -105,7 +107,7 @@ title - the title of the page -% if ( $cgi->param('action') eq 'preview' ) { +% if ( $cgi->param('action') eq 'preview' ) {