[freeside-commits] freeside/FS/FS svc_Common.pm, 1.64, 1.65 ClientAPI_XMLRPC.pm, 1.13, 1.14

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail.420.am:/tmp/cvs-serv26735/FS/FS

Modified Files:
	svc_Common.pm ClientAPI_XMLRPC.pm 
Log Message:
DSL status pulling, RT#13656

Index: svc_Common.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/svc_Common.pm,v
retrieving revision 1.64
retrieving revision 1.65
diff -u -w -d -r1.64 -r1.65
--- svc_Common.pm	10 Nov 2011 21:55:49 -0000	1.64
+++ svc_Common.pm	11 Nov 2011 23:55:30 -0000	1.65
@@ -1148,8 +1148,27 @@
   return grep { $conflict_svcparts{$_->cust_svc->svcpart} } @dup;
 }
 
+=item getstatus_html
+
+=cut
+
+sub getstatus_html {
+  my $self = shift;
 
+  my $part_svc = $self->cust_svc->part_svc;
 
+  my $html = '';
+
+  foreach my $export ( grep $_->can('export_getstatus'), $part_svc->part_export ) {
+    my $export_html = '';
+    my %hash = ();
+    $export->export_getstatus( $self, \$export_html, \%hash );
+    $html .= $export_html;
+  }
+
+  $html;
+
+}
 
 =back
 

Index: ClientAPI_XMLRPC.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/ClientAPI_XMLRPC.pm,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -w -d -r1.13 -r1.14
--- ClientAPI_XMLRPC.pm	31 Oct 2011 02:33:28 -0000	1.13
+++ ClientAPI_XMLRPC.pm	11 Nov 2011 23:55:30 -0000	1.14
@@ -120,6 +120,7 @@
   'list_pkgs'                 => 'MyAccount/list_pkgs',     #add to ss (added?)
   'list_svcs'                 => 'MyAccount/list_svcs',     #add to ss (added?)
   'list_svc_usage'            => 'MyAccount/list_svc_usage',   
+  'svc_status_html'           => 'MyAccount/svc_status_html',
   'list_dsl_devices'          => 'MyAccount/list_dsl_devices',   
   'add_dsl_device'            => 'MyAccount/add_dsl_device',   
   'delete_dsl_device'         => 'MyAccount/delete_dsl_device',