DSL status pulling, RT#13656

1 files changed, 22 insertions, 0 deletions

diff --git a/httemplate/view/svc_Status.html b/httemplate/view/svc_Status.html
new file mode 100644
index 000000000..94fa1e456
--- /dev/null
+++ b/httemplate/view/svc_Status.html
@@ -0,0 +1,22 @@
+<& /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;
+
+</%init>