% include('/elements/header.html', "View Message catalog", menubar(
  'Edit message catalog' => $p. "edit/msgcat.cgi",
)) %>
%
%
%my $widget = new HTML::Widgets::SelectLayers(
%  'selected_layer' => 'en_US',
%  'options'        => { 'en_US'=>'en_US' },
%  'layer_callback' => sub {
%    my $layer = shift;
%    my $html = "
Messages for locale $layer
". table().
%               "
| Code | ".
%               "Message | ";
%    $html .= "en_US Message | " unless $layer eq 'en_US';
%    $html .= '
';
%
%    #foreach my $msgcat ( sort { $a->msgcode cmp $b->msgcode }
%    #                       qsearch('msgcat', { 'locale' => $layer } ) ) {
%    foreach my $msgcat ( qsearch('msgcat', { 'locale' => $layer } ) ) {
%      $html .= '| '. $msgcat->msgnum. ' | '.
%               ''. $msgcat->msgcode. ' | '.
%               ''. $msgcat->msg. ' | ';
%      unless ( $layer eq 'en_US' ) {
%        my $en_msgcat = qsearchs('msgcat', {
%          'locale'  => 'en_US',
%          'msgcode' => $msgcat->msgcode,
%        } );
%        $html .= ''. $en_msgcat->msg. ' | ';
%      }
%      $html .= '
';
%    }
%
%    $html .= '';
%    $html;
%  },
%
%);
%
<%  $widget->html %>
<% include('/elements/footer.html') %>