<& /elements/header.html, mt("View Message catalog"), menubar( emt('Edit message catalog') => $p. "edit/msgcat.cgi", ) &> <% $widget->html %> <& /elements/footer.html &> <%init> die "access denied" unless $FS::CurrentUser::CurrentUser->access_right('Configuration'); my $widget = new HTML::Widgets::SelectLayers( 'selected_layer' => 'en_US', 'options' => { 'en_US'=>'en_US', 'iw_IL' => 'iw_IL', }, 'layer_callback' => sub { my $layer = shift; my $html = "
".emt("Messages for locale [_1]",$layer)."
". table(). "".emt('Code')."". "".emt('Message').""; $html .= "en_US Message" unless $layer eq 'en_US'; $html .= ''; 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. '' if $en_msgcat; } $html .= ''; } $html .= ''; $html; }, );