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