<% my %search; if ( $cgi->param('showdisabled') ) { %search = (); } else { %search = ( 'disabled' => '' ); } my @part_bill_event = qsearch('part_bill_event', \%search ); my $total = scalar(@part_bill_event); %> <%= header('Invoice Event Listing', menubar( 'Main Menu' => $p) ) %> Invoice events are actions taken on overdue invoices.

<%= $total %> events <%= $cgi->param('showdisabled') ? do { $cgi->param('showdisabled', 0); '( hide disabled events )'; } : do { $cgi->param('showdisabled', 1); '( show disabled events )'; } %> <% foreach my $part_bill_event ( sort { $a->payby cmp $b->payby || $a->seconds <=> $b->seconds || $a->eventpart <=> $b->eventpart } @part_bill_event ) { my $url = "${p}edit/part_bill_event.cgi?". $part_bill_event->eventpart; use Time::Duration; my $delay = duration_exact($hashref->{seconds}); %> <% unless ( $cgi->param('showdisabled') ) { %> <% } %> <% } %>

param('showdisabled') ? 2 : 3 %>>Event	Payby	After	Code
<%= $part_bill_event->eventpart %>	<%= $part_bill_event->disabled ? 'DISABLED' : '' %>	<%= $part_bill_event->event %>	<%= $part_bill_event->payby %>	<%= $delay %>	<%= $part_bill_event->eventcode %>
Add a new billing event