<& /elements/header-popup.html, { 'title' => '', 'nobr' => 0, #1 for no

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;