diff options
author | jeff <jeff> | 2007-10-02 15:31:18 +0000 |
---|---|---|
committer | jeff <jeff> | 2007-10-02 15:31:18 +0000 |
commit | 985471ae93dd484f351daef7ad4ebe33b07acd33 (patch) | |
tree | fdfcf3809f71b873bd160a707b6e9cd27b45dfd0 /httemplate/search | |
parent | 01bf775c484b7766bbbe39ba1400b4312390ad9d (diff) |
fix up re-email these events
Diffstat (limited to 'httemplate/search')
-rw-r--r-- | httemplate/search/cust_bill_event.cgi | 28 |
1 files changed, 9 insertions, 19 deletions
diff --git a/httemplate/search/cust_bill_event.cgi b/httemplate/search/cust_bill_event.cgi index ada7e4362..f45c8a59d 100644 --- a/httemplate/search/cust_bill_event.cgi +++ b/httemplate/search/cust_bill_event.cgi @@ -71,32 +71,24 @@ my $title = $cgi->param('failed') ? 'Failed invoice events' : 'Invoice events'; -my @search = (); +my %search = (); if ( $cgi->param('agentnum') && $cgi->param('agentnum') =~ /^(\d+)$/ ) { - push @search, "agentnum = $1"; - #my $agent = qsearchs('agent', { 'agentnum' => $1 } ); - #die "unknown agentnum $1" unless $agent; + $search{agentnum} = $1; } -my($beginning, $ending) = FS::UI::Web::parse_beginning_ending($cgi); -push @search, "cust_bill_event._date >= $beginning", - "cust_bill_event._date <= $ending"; +($search{beginning}, $search{ending}) + = FS::UI::Web::parse_beginning_ending($cgi); if ( $cgi->param('failed') ) { - push @search, "statustext != ''", - "statustext IS NOT NULL", - "statustext != 'N/A'"; + $search{failed} = '1'; } if ( $cgi->param('part_bill_event.payby') =~ /^(\w+)$/ ) { - push @search, "part_bill_event.payby = '$1'"; + $search{payby} = $1; } -#here is the agent virtualization -push @search, $FS::CurrentUser::CurrentUser->agentnums_sql; - -my $where = 'WHERE '. join(' AND ', @search ); +my $where = 'WHERE '. FS::cust_bill_event->search_sql(\%search); my $join = 'LEFT JOIN part_bill_event USING ( eventpart ) '. 'LEFT JOIN cust_bill USING ( invnum ) '. @@ -127,16 +119,14 @@ my $html_init = join("\n", map { ( my $action = $_ ) =~ s/_$//; include('/elements/progress-init.html', $_.'form', - [ 'action', 'beginning', 'ending', 'failed' ], + [ keys(%search) ], "../misc/${_}invoice_events.cgi", { 'message' => "Invoices re-${action}ed" }, #would be nice to show the number of them, but... $_, #key ), qq!<FORM NAME="${_}form">!, qq!<INPUT TYPE="hidden" NAME="action" VALUE="$_">!, #not used though - qq!<INPUT TYPE="hidden" NAME="beginning" VALUE="$beginning">!, - qq!<INPUT TYPE="hidden" NAME="ending" VALUE="$ending">!, - qq!<INPUT TYPE="hidden" NAME="failed" VALUE="$failed">!, + (map {qq!<INPUT TYPE="hidden" NAME="$_" VALUE="$search{$_}">!} keys(%search)), qq!</FORM>! } qw( print_ email_ fax_ ) ); |