define pregen viewer access rights

diff --git a/site/cgi-bin/modules/BSE/UI/AdminPregen.pm b/site/cgi-bin/modules/BSE/UI/AdminPregen.pm
index fefd5f54d04aa5502e61ba3973c9cf5d51306bb5..96d65f9e1689febf3eb63c0c84f972f36120aa4c 100644 (file)
--- a/site/cgi-bin/modules/BSE/UI/AdminPregen.pm
+++ b/site/cgi-bin/modules/BSE/UI/AdminPregen.pm
@@ -5,13 +5,13 @@ use BSE::Util::Iterate;
 use BSE::Util::Tags qw(tag_hash);
 use BSE::Regen qw(pregenerate_list content_one_extra response_one_extra);
 
-our $VERSION = "1.001";
+our $VERSION = "1.002";
 
 my %actions =
   (
-   list => "",
-   show => "",
-   display => "",
+   list => "bse_pregen_view",
+   show => "bse_pregen_view",
+   display => "bse_pregen_view",
   );
 
 sub actions { \%actions }

diff --git a/site/templates/admin/menu.tmpl b/site/templates/admin/menu.tmpl
index e182d9f6f1ec50bcc47ce32ab9523b949be1b8a3..5c75f9c133dd59a15b7d5913c9c036f0bb673cec 100644 (file)
--- a/site/templates/admin/menu.tmpl
+++ b/site/templates/admin/menu.tmpl
@@ -35,7 +35,9 @@ section</a></li>
 
 </ul>
 
+<:.if request.user_can("bse_pregen_view") and request.user_can("regen_extras") :>
 <p><a href="<:= cfg.admin_url("pregen") | html :>">Preview Pregen pages</a></p>
+<:.end if:>
 
   </td>
   <td>