[freeside-commits] freeside/httemplate/view svc_dsl.cgi, 1.10, 1.11 svc_Status.html, NONE, 1.1

Ivan,,, ivan at wavetail.420.am
Wed Nov 9 19:30:09 PST 2011


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

Modified Files:
	svc_dsl.cgi 
Added Files:
	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.10
retrieving revision 1.11
diff -u -w -d -r1.10 -r1.11
--- svc_dsl.cgi	6 Oct 2011 20:44:18 -0000	1.10
+++ svc_dsl.cgi	10 Nov 2011 03:30:07 -0000	1.11
@@ -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>



More information about the freeside-commits mailing list