Index: openacs-4/packages/glossar/www/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/glossar/www/index.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/glossar/www/index.tcl 17 Oct 2005 16:25:23 -0000 1.2 +++ openacs-4/packages/glossar/www/index.tcl 2 Nov 2005 15:12:40 -0000 1.3 @@ -17,6 +17,13 @@ set owner_id [ad_conn user_id] +# If we do not have a customer, set the customer to the user +# this way it will be a "personal" glossar. + +if {[empty_string_p $customer_id]} { + set customer_id $owner_id +} + set package_id [ad_conn package_id] set admin_p [permission::permission_p -object_id $package_id -party_id $owner_id -privilege "admin"]