summaryrefslogtreecommitdiff
path: root/httemplate/view/svc_Status.html
blob: 6ef41f0241c6ccc4d4c42382c0a344678d98c1c1 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
<& /elements/header-popup.html,
     {
       'title'   => '',
       'nobr'    => 1,  #1 for no <BR><BR> after the title
     }
&>
<% $html %>
<%init>

$cgi->param('svcnum') =~ /^(\d+)$/ or die 'illegal svcnum';
my $svcnum = $1;

my $cust_svc = qsearchs( 'cust_svc', { 'svcnum' => $svcnum } );
die "Unknown svcnum" unless $cust_svc;
my $svc_x = $cust_svc->svc_x;

my $html = $svc_x->getstatus_html;

</%init>