httemplate/view/svc_Status.html


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

<& /elements/header-popup.html,
     {
       'title'   => '',
       'nobr'    => 0,  #1 for no <BR><BR> after the title
     }
&>
% foreach my $export ( grep $_->can('export_getstatus'), $part_svc->part_export ) {
%   my $html = '';
%   my %hash = ();
%   $export->export_getstatus( $svc_x, \$html, \%hash );
<% $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 $part_svc = $cust_svc->part_svc;

</%init>