<& /elements/header-popup.html, emt("Edit Message catalog") &>
<& /elements/error.html &> <% $widget->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', }, 'form_action' => 'process/msgcat.cgi', 'layer_callback' => sub { my $layer = shift; my $html = qq!!. "
".emt("Messages for locale [_1]",$layer)."
". table(). "".emt('Code')."". "".emt('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. ''. '!; 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; }, );