added some debugging output to the ifUserCan tag handler

diff --git a/site/cgi-bin/modules/BSE/Util/Tags.pm b/site/cgi-bin/modules/BSE/Util/Tags.pm
index 1a9fb3fcdfc9ca7baf388513c99914083a406d06..a851de0472d9037db77c54e8b7518d4e9ee59c4f 100644 (file)
--- a/site/cgi-bin/modules/BSE/Util/Tags.pm
+++ b/site/cgi-bin/modules/BSE/Util/Tags.pm
@@ -631,9 +631,14 @@ my %dummy_site_article =
 sub tag_if_user_can {
   my ($req, $rperms, $args, $acts, $funcname, $templater) = @_;
 
+  my $debug = $req->cfg->entry('debug', 'ifUserCan', 0);
+  $debug 
+    and print STDERR "Handling ifUserCan $args:\n";
   my @checks = split /,/, $args;
   for my $check (@checks) {
     my ($perm, $artname) = split /:/, $check, 2;
+    $debug 
+      and print STDERR "  Perm: '$perm'\n";
     my $article;
     if ($artname) {
       if ($artname =~ /^\[/) {

diff --git a/site/docs/bse.pod b/site/docs/bse.pod
index 414a78ecf0f20557d0f174348668b0128586ab3a..30f8d3571d1dbbf440be694cbd6283263dd5e2ac 100644 (file)
--- a/site/docs/bse.pod
+++ b/site/docs/bse.pod
@@ -42,6 +42,10 @@ have bse_I<permission> permission non-rights checks (eg. checking for
 no children on edit_delete_article) do the same checks as for
 I<permission>
 
+=item *
+
+added some debugging output to the ifUserCan tag handler
+
 =back
 
 =head2 0.15_30

diff --git a/site/docs/config.pod b/site/docs/config.pod
index 755d36b861a5d82267cf298dd96da0c65f191040..9e76df7cf28f2b7ab48c2a99e8e24a7664c730f9 100644 (file)
--- a/site/docs/config.pod
+++ b/site/docs/config.pod
@@ -704,6 +704,11 @@ STDERR.
 If non-zero then information about jit_dynamic_regen is sent to
 STDERR.
 
+=item ifUserCan
+
+If non-zero then the ifUserCan tag will output some trace information
+to STDERR.
+
 =back
 
 =head2 [uri]