Index: openacs-4/packages/lorsm/www/tracker.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/Attic/tracker.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/lorsm/www/tracker.tcl	4 Sep 2004 14:51:21 -0000	1.1
+++ openacs-4/packages/lorsm/www/tracker.tcl	27 Oct 2004 07:46:52 -0000	1.2
@@ -22,8 +22,18 @@
 		 -user_id [ad_conn user_id]  \
 		 -community_id $community_id ]
 
+# Permissions
+dotlrn::require_user_admin_community -user_id [ad_conn user_id] -community_id $community_id
 
 
+# Checks whether the user has appropiate permissions otherwise we kick
+# him out
+if {!$admin_p} {
+        ad_returnredirect "not-allowed"
+        return -code error
+}
+
+
 set title "Set Course Track Options"
 set context [list "Set Course Options"]