diff options
Diffstat (limited to 'httemplate/search/cust_event.html')
| -rw-r--r-- | httemplate/search/cust_event.html | 15 |
1 files changed, 13 insertions, 2 deletions
diff --git a/httemplate/search/cust_event.html b/httemplate/search/cust_event.html index f8cf6b2a6..b22644efe 100644 --- a/httemplate/search/cust_event.html +++ b/httemplate/search/cust_event.html @@ -157,12 +157,18 @@ my $title = $cgi->param('failed') ? 'Failed billing events' : 'Billing events'; my %search = (); -my @scalars = qw ( agentnum custnum invnum pkgnum failed ); -for my $param ( @scalars ) { +my @scalars = qw( agentnum status custnum invnum pkgnum failed ); +for my $param (@scalars) { $search{$param} = scalar( $cgi->param($param) ) if $cgi->param($param); } +#lists +my @lists = qw( payby eventpart ); +foreach my $param (@lists) { + $search{$param} = [ $cgi->param($param) ]; +} + my($beginning, $ending) = FS::UI::Web::parse_beginning_ending($cgi); $search{'beginning'} = $beginning; $search{'ending'} = $ending; @@ -208,6 +214,11 @@ my $html_init = join("\n", map { } @params #keys %search ), + ( map { my $value = encode_entities( join(',', @{ $search{$_} } ) ); + qq(<INPUT TYPE="hidden" NAME="$_" VALUE="$value">); + } + @lists + ), qq!</FORM>! } qw( print_ email_ fax_ ) ). |