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 %           if ( ref($hashref->{$key}) eq 'ARRAY' ) {
  12 %             foreach (@{ $hashref->{$key} }) {
  13                 <% $_ |h %><BR>
  14 %             }
  15 %           } else {
  16               <% $hashref->{$key} |h %>
  17 %           }
  18           </TD>
  19         </TR>
  20 %     }
  21
  22     </TABLE>
  23     <BR>
  24
  25 %   }
  26 <%init>
  27
  28 my $svc_x = shift;
  29
  30 </%init>