httemplate/edit/msgcat.cgi

   1 <% header("Edit Message catalog" ) %>
   2 <BR>
   3
   4 % if ( $cgi->param('error') ) {
   5   <FONT SIZE="+1" COLOR="#ff0000">Error: <% $cgi->param('error') %></FONT>
   6   <BR><BR>
   7 % }
   8
   9 <% $widget->html %>
  10
  11     </TABLE>
  12   </BODY>
  13 </HTML>
  14 <%init>
  15
  16 die "access denied"
  17   unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
  18
  19 my $widget = new HTML::Widgets::SelectLayers(
  20   'selected_layer' => 'en_US',
  21   'options'        => { 'en_US'=>'en_US' },
  22   'form_action'    => 'process/msgcat.cgi',
  23   'layer_callback' => sub {
  24     my $layer = shift;
  25     my $html = qq!<INPUT TYPE="hidden" NAME="locale" VALUE="$layer">!.
  26                "<BR>Messages for locale $layer<BR>". table().
  27                "<TR><TH COLSPAN=2>Code</TH>".
  28                "<TH>Message</TH>";
  29     $html .= "<TH>en_US Message</TH>" unless $layer eq 'en_US';
  30     $html .= '</TR>';
  31
  32     #foreach my $msgcat ( sort { $a->msgcode cmp $b->msgcode }
  33     #                       qsearch('msgcat', { 'locale' => $layer } ) ) {
  34     foreach my $msgcat ( qsearch('msgcat', { 'locale' => $layer } ) ) {
  35       $html .=
  36         '<TR><TD>'. $msgcat->msgnum. '</TD><TD>'. $msgcat->msgcode. '</TD>'.
  37         '<TD><INPUT TYPE="text" SIZE=32 '.
  38         qq! NAME="!. $msgcat->msgnum. '" '.
  39         qq!VALUE="!. ($cgi->param($msgcat->msgnum)||$msgcat->msg). qq!"></TD>!;
  40       unless ( $layer eq 'en_US' ) {
  41         my $en_msgcat = qsearchs('msgcat', {
  42           'locale'  => 'en_US',
  43           'msgcode' => $msgcat->msgcode,
  44         } );
  45         $html .= '<TD>'. $en_msgcat->msg. '</TD>';
  46       }
  47       $html .= '</TR>';
  48     }
  49
  50     $html .= '</TABLE><BR><INPUT TYPE="submit" VALUE="Apply changes">';
  51
  52     $html;
  53   },
  54
  55 );
  56
  57 </%init>