httemplate/misc/maestro-customer_status.cgi

   1 <% $uri->query %>
   2 <%init>
   3
   4 my $uri = new URI;
   5
   6 my($custnum, $svcnum) = $cgi->keywords;
   7 if ( $custnum =~ /^(\d+)$/ ) {
   8
   9   use FS::Maestro;
  10   $uri->query_form( FS::Maestro::customer_status($1) );
  11
  12 } else {
  13   $uri->query_form( { 'error' => 'No custnum' } );
  14 }
  15
  16 </%init>