[freeside-commits] freeside/FS/FS/ClientAPI MyAccount.pm, 1.133.2.26, 1.133.2.27

[Ivan,,,]

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

Modified Files:
      Tag: FREESIDE_2_3_BRANCH
	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.133.2.26
retrieving revision 1.133.2.27
diff -u -w -d -r1.133.2.26 -r1.133.2.27
--- MyAccount.pm	8 Nov 2011 04:17:09 -0000	1.133.2.26
+++ MyAccount.pm	11 Nov 2011 23:55:35 -0000	1.133.2.27
@@ -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;