httemplate/misc/test-part_event.html

   1 <& /elements/header.html, {
   2      'title_noescape' => 'Test billing events for '. encode_entities($cust_main->name),
   3    }
   4 &>
   5
   6 <A HREF="<%$p%>browse/part_event.html?eventtable=cust_main;test_eventtable_num=<% $custnum %>">Customer events<A>
   7 <BR><BR>
   8 <FORM METHOD="GET" ACTION="<%$p%>browse/part_event.html">
   9 Package events for
  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',
  17      'disable_empty' => 1,
  18 &>
  19 <INPUT TYPE="submit" VALUE="Test package">
  20 </FORM>
  21 <BR>
  22 <FORM METHOD="GET" ACTION="<%$p%>browse/part_event.html">
  23 Invoice events for
  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',
  31      'disable_empty' => 1,
  32 &>
  33 <INPUT TYPE="submit" VALUE="Test invoice">
  34 </FORM>
  35 <BR>
  36
  37 <& /elements/footer.html &>
  38 <%init>
  39
  40 die "access denied"
  41   unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
  42
  43 $cgi->param('custnum') =~ /^(\d+)$/ or die 'unknown custnum';
  44 my $custnum = $1;
  45
  46 my $cust_main = FS::cust_main->by_key($custnum);
  47
  48 </%init>