<& /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;
},
);