diff options
Diffstat (limited to 'FS')
| -rw-r--r-- | FS/FS/part_export/http_status.pm | 3 | ||||
| -rw-r--r-- | FS/FS/svc_dsl.pm | 9 |
2 files changed, 12 insertions, 0 deletions
diff --git a/FS/FS/part_export/http_status.pm b/FS/FS/part_export/http_status.pm index a676840..5342106 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 b02e74f..5e6a149 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 |