diff options
| -rw-r--r-- | httemplate/view/elements/svc_export_status.html | 24 | ||||
| -rwxr-xr-x | httemplate/view/svc_acct.cgi | 2 |
2 files changed, 26 insertions, 0 deletions
diff --git a/httemplate/view/elements/svc_export_status.html b/httemplate/view/elements/svc_export_status.html new file mode 100644 index 000000000..7efd3df16 --- /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 6f79a01a4..441e4945d 100755 --- 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) %> |