httemplate/view/elements/svc_export_status.html

   1 %   my ( $html, $hashref ) = $svc_x->export_getstatus;
   2 %   if ( keys %$hashref ) {
   3
   4     Status settings
   5     <% ntable('#cccccc',2) %>
   6
   7 %     foreach my $key ( sort {$a cmp $b} keys %$hashref ) {
   8         <TR>
   9           <TD ALIGN="right"><% $key |h %></TD>
  10           <TD BGCOLOR="#ffffff">
  11             <B><% $hashref->{$key} |h %></B>
  12           </TD>
  13         </TR>
  14 %     }
  15
  16     </TABLE>
  17     <BR>
  18
  19 %   }
  20 <%init>
  21
  22 my $svc_x = shift;
  23
  24 </%init>