<% 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.

Add a new invoice event

<%= $total %> events <%= $cgi->param('showdisabled') ? do { $cgi->param('showdisabled', 0); '( hide disabled events )'; } : do { $cgi->param('showdisabled', 1); '( show disabled events )'; } %> <%= table() %> param('showdisabled') ? 2 : 3 %>>Event Payby After Action Options Code <% foreach my $part_bill_event ( sort { $a->payby cmp $b->payby || $a->seconds <=> $b->seconds || $a->weight <=> $b->weight || $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($part_bill_event->seconds); my $plandata = $part_bill_event->plandata; $plandata =~ s/\n/
/go; %> <%= $part_bill_event->eventpart %> <% unless ( $cgi->param('showdisabled') ) { %> <%= $part_bill_event->disabled ? 'DISABLED' : '' %> <% } %> <%= $part_bill_event->event %> <%= $part_bill_event->payby %> <%= $delay %> <%= $part_bill_event->plan %> <%= $plandata %> <%= $part_bill_event->eventcode %> <% } %>