X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fbrowse%2Fmsgcat.cgi;h=2c916dc9fc4f335fe14f22fd59f79768bd6d337f;hb=df97be326720e596f1eeb3c3b9f70ae9c2ae9406;hp=35ea069579145003e1cab90b39d95a43aa440ae3;hpb=c8cccb4a92adceb943c635fe62dad0d034462ce0;p=freeside.git
diff --git a/httemplate/browse/msgcat.cgi b/httemplate/browse/msgcat.cgi
index 35ea06957..2c916dc9f 100755
--- a/httemplate/browse/msgcat.cgi
+++ b/httemplate/browse/msgcat.cgi
@@ -1,42 +1,44 @@
<% include('/elements/header.html', "View Message catalog", menubar(
'Edit message catalog' => $p. "edit/msgcat.cgi",
)) %>
-%
-%
-%my $widget = new HTML::Widgets::SelectLayers(
-% 'selected_layer' => 'en_US',
-% 'options' => { 'en_US'=>'en_US' },
-% 'layer_callback' => sub {
-% my $layer = shift;
-% my $html = "
Messages for locale $layer
". table().
-% "
Code | ".
-% "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. ' | '.
-% ''. $msgcat->msg. ' | ';
-% unless ( $layer eq 'en_US' ) {
-% my $en_msgcat = qsearchs('msgcat', {
-% 'locale' => 'en_US',
-% 'msgcode' => $msgcat->msgcode,
-% } );
-% $html .= ''. $en_msgcat->msg. ' | ';
-% }
-% $html .= '
';
-% }
-%
-% $html .= '';
-% $html;
-% },
-%
-%);
-%
-
-
<% $widget->html %>
<% include('/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' },
+ 'layer_callback' => sub {
+ my $layer = shift;
+ my $html = "
Messages for locale $layer
". table().
+ "Code | ".
+ "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. ' | '.
+ ''. $msgcat->msg. ' | ';
+ unless ( $layer eq 'en_US' ) {
+ my $en_msgcat = qsearchs('msgcat', {
+ 'locale' => 'en_US',
+ 'msgcode' => $msgcat->msgcode,
+ } );
+ $html .= ''. $en_msgcat->msg. ' | ';
+ }
+ $html .= '
';
+ }
+
+ $html .= '';
+ $html;
+ },
+
+);
+
+%init>