[freeside-commits] freeside/FS/FS/ClientAPI MyAccount.pm, 1.159, 1.160

[Ivan,,,]

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

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

Index: MyAccount.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/ClientAPI/MyAccount.pm,v
retrieving revision 1.159
retrieving revision 1.160
diff -u -w -d -r1.159 -r1.160
--- MyAccount.pm	8 Nov 2011 04:17:02 -0000	1.159
+++ MyAccount.pm	11 Nov 2011 23:55:30 -0000	1.160
@@ -1521,6 +1521,21 @@
 
 }
 
+sub svc_status_html {
+  my $p = shift;
+
+  my($context, $session, $custnum) = _custoragent_session_custnum($p);
+  return { 'error' => $session } if $context eq 'error';
+
+  my $svc_x = _customer_svc_x( $custnum, $p->{'svcnum'})
+    or return { 'error' => "Service not found" };
+
+  my $html = $svc_x->getstatus_html;
+
+  return { 'html' => $html };
+
+}
+
 sub list_dsl_devices {
   my $p = shift;