X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fsearch%2Fcust_event.html;fp=httemplate%2Fsearch%2Fcust_event.html;h=122bee09b7d43c344f002ce2472704b52736dea8;hp=241a0267a225c6c371227dd15bce260479c7a9f6;hb=8ff31f04ed1e2da3e09c56e72ab0f879d0b7ab75;hpb=3df15084eeaacb2326ffb66ecf74216e950f3060 diff --git a/httemplate/search/cust_event.html b/httemplate/search/cust_event.html index 241a0267a..122bee09b 100644 --- a/httemplate/search/cust_event.html +++ b/httemplate/search/cust_event.html @@ -1,6 +1,6 @@ <& elements/search.html, 'title' => $title, - 'html_init' => $html_init, + 'html_init' => include('.init'), 'menubar' => $menubar, 'name' => 'billing events', 'query' => $sql_query, @@ -140,6 +140,11 @@ my $trigger_link = sub { }; +<%shared> +my @scalars = qw( agentnum status custnum invnum pkgnum failed ); +my @lists = qw( eventpart event_status ); +my %search; + <%init> my $curuser = $FS::CurrentUser::CurrentUser; @@ -159,17 +164,12 @@ if ( $statuses[0] eq 'failed' and !defined($statuses[1]) ) { $title = 'Failed billing events'; } -my %search = (); - -my @scalars = qw( agentnum status custnum invnum pkgnum failed ); for my $param (@scalars) { $search{$param} = scalar( $cgi->param($param) ) if $cgi->param($param); } -$search{event_status} = \@statuses; #lists -my @lists = qw( eventpart ); foreach my $param (@lists) { $search{$param} = [ $cgi->param($param) ]; } @@ -209,55 +209,6 @@ my $count_sql = "SELECT COUNT(*) FROM cust_event $join $where"; my $conf = new FS::Conf; -my @params = ( @scalars, qw( beginning ending ) ); - -my $html_init = join("\n", map { - ( my $action = $_ ) =~ s/_$//; - include('/elements/progress-init.html', - $_.'form', - [ 'action', @params ], - "../misc/${_}events.cgi", - { 'message' => "Invoices re-${action}ed" }, #would be nice to show the number of them, but... - $_, #key - ), - qq!
!, - qq!!, #not used though - ( map { my $value = encode_entities( $search{$_} ); - qq(); - } - @params #keys %search - ), - ( map { my $value = encode_entities( join(',', @{ $search{$_} } ) ); - qq(); - } - @lists - ), - qq!
! -} qw( print_ email_ fax_ ) ). - -''; - my $menubar = []; if ( $curuser->access_right('Resend invoices') ) { @@ -282,3 +233,46 @@ my $link_cust = sub { }; +<%def .init> +% # action is part of the target URL, don't need to pass it as a param +% foreach my $action (qw(print email fax)) { +<& /elements/progress-init.html, + $action.'_form', + [ @scalars, @lists, 'beginning', 'ending' ], + "../misc/${action}_events.cgi", + { 'message' => "Invoices re-${action}ed" }, #would be nice to show the number of them, but... + $action.'_', #key +&> +
+% foreach my $param (@scalars, 'beginning', 'ending') { + +% } +% foreach my $param (@lists) { +% foreach my $value (@{ $search{$param} }) { + +% } +% } +
+% } # foreach $action + +