display spam status on account view, RT#15987

diff --git a/httemplate/view/elements/svc_export_status.html b/httemplate/view/elements/svc_export_status.html
new file mode 100644 (file)
index 0000000..7efd3df
--- /dev/null
+++ b/httemplate/view/elements/svc_export_status.html
@@ -0,0 +1,24 @@
+%   my ( $html, $hashref ) = $svc_x->export_getstatus;
+%   if ( keys %$hashref ) {
+
+    Status settings
+    <% ntable('#cccccc',2) %>
+
+%     foreach my $key ( sort {$a cmp $b} keys %$hashref ) {
+        <TR>
+          <TD ALIGN="right"><% $key |h %></TD>
+          <TD BGCOLOR="#ffffff">
+            <B><% $hashref->{$key} |h %></B>
+          </TD>
+        </TR>
+%     }
+
+    </TABLE>
+    <BR>
+
+%   }
+<%init>
+
+my $svc_x = shift;
+
+</%init>

diff --git a/httemplate/view/svc_acct.cgi b/httemplate/view/svc_acct.cgi
index 6f79a01..441e494 100755 (executable)
--- a/httemplate/view/svc_acct.cgi
+++ b/httemplate/view/svc_acct.cgi
@@ -71,6 +71,8 @@
 <BR><BR>
 % }
 
+<& elements/svc_export_status.html, $svc_acct &>
+
 <& elements/svc_export_settings.html, $svc_acct &>
 
 <% joblisting({'svcnum'=>$svcnum}, 1) %>