From 36894819ac7b6b9539c353c22d4a65b5f4d8c540 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Fri, 11 Nov 2011 23:29:27 +0000
Subject: [PATCH] DSL status pulling, RT#13656

---
 FS/FS/part_export/http_status.pm | 3 +++
 FS/FS/svc_dsl.pm                 | 9 +++++++++
 2 files changed, 12 insertions(+)

diff --git a/FS/FS/part_export/http_status.pm b/FS/FS/part_export/http_status.pm
index a67684092..5342106b4 100644
--- a/FS/FS/part_export/http_status.pm
+++ b/FS/FS/part_export/http_status.pm
@@ -33,6 +33,9 @@ sub export_getstatus {
   {
     no strict 'refs';
     ${$_} = $svc_x->getfield($_) foreach $svc_x->fields;
+    if ( $svc_x->table eq 'svc_dsl' ) {
+      ${$_} = $svc_x->$_() foreach (qw( gateway_access_or_phonenum ));
+    }
 
     $url = eval(qq("$urlopt"));
   }
diff --git a/FS/FS/svc_dsl.pm b/FS/FS/svc_dsl.pm
index b02e74fa7..5e6a149e8 100644
--- a/FS/FS/svc_dsl.pm
+++ b/FS/FS/svc_dsl.pm
@@ -279,6 +279,15 @@ sub check {
   $self->SUPER::check;
 }
 
+=item gateway_access_or_phonenum
+
+=cut
+
+sub gateway_access_or_phonenum {
+  my $self = shift;
+  $self->gateway_access_number || $self->phonenum;
+}
+
 =item dsl_device
 
 Returns the MAC addresses associated with this DSL service, as FS::dsl_device
-- 
2.11.0