<% 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); %> <%= include("/elements/header.html",'Invoice Event Listing', menubar( 'Main Menu' => $p) ) %> Invoice events are actions taken on open 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 )'; } %>

<% tie my %payby, 'Tie::IxHash', FS::payby->cust_payby2longname; tie my %freq, 'Tie::IxHash', '1d' => 'daily', '1m' => 'monthly'; foreach my $payby ( keys %payby ) { my $oldfreq = ''; my @payby_part_bill_event = grep { $payby eq $_->payby } sort { $a->seconds <=> $b->seconds || $a->weight <=> $b->weight || $a->eventpart <=> $b->eventpart } @part_bill_event; %> <% if ( @payby_part_bill_event ) { %> <%= include('/elements/table-grid.html') %> <% my $bgcolor1 = '#eeeeee'; my $bgcolor2 = '#ffffff'; my $bgcolor; %> <% foreach my $part_bill_event ( @payby_part_bill_event ) { my $url = "${p}edit/part_bill_event.cgi?". $part_bill_event->eventpart; my $delay = duration_exact($part_bill_event->seconds); ( my $plandata = $part_bill_event->plandata ) =~ s/\n/
/go; my $freq = $part_bill_event->freq || '1d'; %> <% if ( $oldfreq ne $freq ) { %> param('showdisabled') ? 7 : 8 %>><%= ucfirst($freq{$freq}) %> event tests for <%= $payby{$payby} %> customers param('showdisabled') ? 2 : 3 %>>Event After Action Options Code <% $oldfreq = $freq; $bgcolor = ''; %> <% } %> <% if ( $bgcolor eq $bgcolor1 ) { $bgcolor = $bgcolor2; } else { $bgcolor = $bgcolor1; } %> <%= $part_bill_event->eventpart %> <% unless ( $cgi->param('showdisabled') ) { %> <%= $part_bill_event->disabled ? 'DISABLED' : '' %> <% } %> <%= $part_bill_event->event %> <%= $delay %> <%= $part_bill_event->plan %> <%= $plandata %> <%= $part_bill_event->eventcode %> <% } %>

<% } %> <% } %>