Index: openacs-4/packages/glossar/lib/glossar-portlet-list.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/glossar/lib/glossar-portlet-list.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/glossar/lib/glossar-portlet-list.tcl	2 Jan 2006 13:22:06 -0000	1.3
+++ openacs-4/packages/glossar/lib/glossar-portlet-list.tcl	24 May 2006 06:12:31 -0000	1.4
@@ -26,6 +26,7 @@
 set page_size 100
 set base_url "glossar"
 set user_id [ad_conn user_id]
+set contact_id $owner_id
 
 if {[empty_string_p $user_id]} {
     ad_redirect_for_registration
@@ -84,7 +85,7 @@
 
 if [permission::permission_p -object_id $owner_id -privilege admin] {
 
-} elseif {[permission::permission_p -object_id $owner_id -privilege create]} {
+} elseif {[permission::permission_p -object_id $owner_id -privilege create] || [group::member_p -group_name Employees]} {
 
     set user_perm create
 
@@ -188,8 +189,6 @@
 	set new_glossar "[export_vars -base "${base_url}/index" {owner_id {customer_id $gl_owner_id}}]"
     }
 } if_no_rows {
-
-
 }
 
 }