summaryrefslogtreecommitdiff
path: root/httemplate/misc/maestro-customer_status.cgi
blob: ffeb53c9117f9619822b77e613febf946e707b22 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
<% $uri->query %>
<%init>

my $uri = new URI;

my($custnum, $svcnum) = $cgi->keywords;
if ( $custnum =~ /^(\d+)$/ ) {

  use FS::Maestro;
  $uri->query_form( FS::Maestro::customer_status($1) );

} else {
  $uri->query_form( { 'error' => 'No custnum' } );
}

</%init>