% 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') %>