[freeside-commits] freeside/httemplate/view svc_dsl.cgi, 1.9.2.1, 1.9.2.2 svc_Status.html, NONE, 1.1.2.2

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/httemplate/view
In directory wavetail.420.am:/tmp/cvs-serv4787/httemplate/view

Modified Files:
      Tag: FREESIDE_2_3_BRANCH
	svc_dsl.cgi 
Added Files:
      Tag: FREESIDE_2_3_BRANCH
	svc_Status.html 
Log Message:
DSL status pulling, RT#13656

Index: svc_dsl.cgi
===================================================================
RCS file: /home/cvs/cvsroot/freeside/httemplate/view/svc_dsl.cgi,v
retrieving revision 1.9.2.1
retrieving revision 1.9.2.2
diff -u -w -d -r1.9.2.1 -r1.9.2.2
--- svc_dsl.cgi	6 Oct 2011 07:00:07 -0000	1.9.2.1
+++ svc_dsl.cgi	10 Nov 2011 03:30:07 -0000	1.9.2.2
@@ -65,6 +65,19 @@
 
     }
 
+    if ( grep $_->can('export_getstatus'), $part_svc->part_export ) {
+
+      $footer .= '<BR><BR>'.
+                 include('/elements/popup_link.html', {
+                   'action' => $p.'view/svc_dsl_status.html'.
+                               '?svcnum='. $svc_dsl->svcnum,
+                   'label'  => 'View line status',
+                   'width'  => 763,
+                   'height' => 256,
+                 });
+
+    }
+
     $footer .= '<BR><BR>'.
                include( '/view/elements/svc_devices.html',
                           'svc_x'   => $svc_dsl,

--- NEW FILE: svc_Status.html ---
<& /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>