1 <& /elements/header.html, {
2 'title_noescape' => 'Test billing events for '. encode_entities($cust_main->name),
6 <A HREF="<%$p%>browse/part_event.html?eventtable=cust_main;test_eventtable_num=<% $custnum %>">Customer events<A>
8 <FORM METHOD="GET" ACTION="<%$p%>browse/part_event.html">
10 <INPUT TYPE="hidden" NAME="eventtable" VALUE="cust_pkg">
11 <& /elements/select-table.html,
12 'table' => 'cust_pkg',
13 'name_col' => 'pkg_label_long',
14 'hashref' => { 'custnum' => $custnum, },
15 'order_by' => 'ORDER BY pkgnum',
16 'element_name' => 'test_eventtable_num',
19 <INPUT TYPE="submit" VALUE="Test package">
22 <FORM METHOD="GET" ACTION="<%$p%>browse/part_event.html">
24 <INPUT TYPE="hidden" NAME="eventtable" VALUE="cust_bill">
25 <& /elements/select-table.html,
26 'table' => 'cust_bill',
27 'name_col' => 'invnum',
28 'hashref' => { 'custnum' => $custnum, },
29 'order_by' => 'ORDER BY invnum',
30 'element_name' => 'test_eventtable_num',
33 <INPUT TYPE="submit" VALUE="Test invoice">
37 <& /elements/footer.html &>
41 unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
43 $cgi->param('custnum') =~ /^(\d+)$/ or die 'unknown custnum';
46 my $cust_main = FS::cust_main->by_key($custnum);