-<!-- mason kludge -->
-<%
+<% header("Edit Message catalog" ) %>
+<BR>
-print header("Message catalog", menubar(
-# 'Main Menu' => $p,
-)), '<BR>';
+<% include('/elements/error.html') %>
-print qq!<FONT SIZE="+1" COLOR="#ff0000">Error: !. $cgi->param('error')
- if $cgi->param('error');
+<% $widget->html %>
+
+ </TABLE>
+ </BODY>
+</HTML>
+<%init>
+
+die "access denied"
+ unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
my $widget = new HTML::Widgets::SelectLayers(
'selected_layer' => 'en_US',
'<TR><TD>'. $msgcat->msgnum. '</TD><TD>'. $msgcat->msgcode. '</TD>'.
'<TD><INPUT TYPE="text" SIZE=32 '.
qq! NAME="!. $msgcat->msgnum. '" '.
- qq!VALUE="!. $msgcat->msg. qq!"></TD>!;
+ qq!VALUE="!. ($cgi->param($msgcat->msgnum)||$msgcat->msg). qq!"></TD>!;
unless ( $layer eq 'en_US' ) {
my $en_msgcat = qsearchs('msgcat', {
'locale' => 'en_US',
);
-print $widget->html;
-
-print <<END;
- </TABLE>
- </BODY>
-</HTML>
-END
-
-%>
+</%init>