httemplate/view/svc_Status.html

   1 <& /elements/header-popup.html,
   2      {
   3        'title'   => '',
   4        'nobr'    => 0,  #1 for no <BR><BR> after the title
   5      }
   6 &>
   7 % foreach my $export ( grep $_->can('export_getstatus'), $part_svc->part_export ) {
   8 %   my $html = '';
   9 %   my %hash = ();
  10 %   $export->export_getstatus( $svc_x, \$html, \%hash );
  11 <% $html %>
  12 % }
  13 <%init>
  14
  15 $cgi->param('svcnum') =~ /^(\d+)$/ or die 'illegal svcnum';
  16 my $svcnum = $1;
  17
  18 my $cust_svc = qsearchs( 'cust_svc', { 'svcnum' => $svcnum } );
  19 die "Unknown svcnum" unless $cust_svc;
  20 my $svc_x = $cust_svc->svc_x;
  21
  22 my $part_svc = $cust_svc->part_svc;
  23
  24 </%init>