diff options
author | ivan <ivan> | 2011-11-11 23:59:50 +0000 |
---|---|---|
committer | ivan <ivan> | 2011-11-11 23:59:50 +0000 |
commit | 0ee87ce2f12ab1ba734f6d2b60c60469c07f9b8c (patch) | |
tree | 5f9a3319673abfb713a71b93cd9292165e753e25 /FS/FS/svc_Common.pm | |
parent | 898abe13b00b7dec565740cede15a92810335349 (diff) |
DSL status pulling, RT#13656
Diffstat (limited to 'FS/FS/svc_Common.pm')
-rw-r--r-- | FS/FS/svc_Common.pm | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/FS/FS/svc_Common.pm b/FS/FS/svc_Common.pm index 28f759a..7a93bc4 100644 --- a/FS/FS/svc_Common.pm +++ b/FS/FS/svc_Common.pm @@ -1148,8 +1148,27 @@ sub find_duplicates { return grep { $conflict_svcparts{$_->cust_svc->svcpart} } @dup; } +=item getstatus_html +=cut + +sub getstatus_html { + my $self = shift; + + my $part_svc = $self->cust_svc->part_svc; + + my $html = ''; + + foreach my $export ( grep $_->can('export_getstatus'), $part_svc->part_export ) { + my $export_html = ''; + my %hash = (); + $export->export_getstatus( $self, \$export_html, \%hash ); + $html .= $export_html; + } + $html; + +} =back |