DSL status pulling, RT#13656

diff --git a/FS/FS/part_export/http_status.pm b/FS/FS/part_export/http_status.pm
index a676840..5342106 100644 (file)
--- 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 b02e74f..5e6a149 100644 (file)
--- 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