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"><% $hashref->{$key} |h %></TD>
  11         </TR>
  12 %     }
  13
  14     </TABLE>
  15     <BR>
  16
  17 %   }
  18 <%init>
  19
  20 my $svc_x = shift;
  21
  22 </%init>