X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fsvc_Common.pm;h=7a93bc497219a37409db8734593122d9a80ed830;hp=28f759ae243aba4e2058395b1a8b733c418895c1;hb=0ee87ce2f12ab1ba734f6d2b60c60469c07f9b8c;hpb=898abe13b00b7dec565740cede15a92810335349

diff --git a/FS/FS/svc_Common.pm b/FS/FS/svc_Common.pm
index 28f759ae2..7a93bc497 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