[wellwell-devel] [SCM] Interchange wellwell catalog branch, master, updated. ab90f600497d4298acb7bfc4d519b88879a05781

Stefan Hornburg racke at rt.icdevgroup.org
Tue Jan 27 13:17:35 UTC 2009

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Interchange wellwell catalog".

The branch, master has been updated
       via  ab90f600497d4298acb7bfc4d519b88879a05781 (commit)
      from  3aa102f53c9edabdb6ac21c7713981239ae8ac52 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit ab90f600497d4298acb7bfc4d519b88879a05781
Author: Stefan Hornburg (Racke) <racke at linuxia.de>
Date:   Tue Jan 27 14:17:04 2009 +0100

    uid attribute added


Summary of changes and diff:
 code/acl.tag |   11 +++++++++--
 1 files changed, 9 insertions(+), 2 deletions(-)

diff --git a/code/acl.tag b/code/acl.tag
index 2647603..092dac8 100644
--- a/code/acl.tag
+++ b/code/acl.tag
@@ -4,24 +4,31 @@
 # function=check permission=enter_titles
 # function=check permission.0=enter_titles_without_approval 
 # 	permission.1=enter_titles
+# function=check permission=change_own_titles uid="[scratch entered_by]"
 # Without body it returns first matching permission or empty string if no
 # permission is granted.
 # With body it returns the body if permission is granted.
-UserTag acl Order function permission
+UserTag acl Order function permission uid
 UserTag acl AddAttr
 UserTag acl HasEndTag
 UserTag acl Routine <<EOR
 sub {
-	my ($function, $permission, $opt, $body) = @_;
+	my ($function, $permission, $uid, $opt, $body) = @_;
 	my ($qual, $set, $ret);
 	return 1 unless $permission;
 	$Tag->perl({tables => "roles user_roles permissions"});
+	# match UID on request
+	if ($uid) {
+		return unless $uid == $Session->{username};
+	}
 	# determine qualifier based on user and corresponding roles
 	if ($Session->{logged_in}) {
 		my (@roles, $role_string);

Interchange wellwell catalog

More information about the wellwell-devel mailing list