summaryrefslogtreecommitdiff
path: root/httemplate/misc/maestro-customer_status.cgi
blob: abd0fb48f24fde59ead8fc1155d200a0b92a22fc (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($query) = $cgi->keywords;
if ( $query =~ /^(\d+)$/ ) {

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

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

</%init>