Index: openacs-4/packages/dotlrn/www/admin/add-instructor-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/add-instructor-2.tcl,v
diff -u -r1.8 -r1.8.6.1
--- openacs-4/packages/dotlrn/www/admin/add-instructor-2.tcl 21 Oct 2003 22:28:45 -0000 1.8
+++ openacs-4/packages/dotlrn/www/admin/add-instructor-2.tcl 25 Aug 2004 15:50:58 -0000 1.8.6.1
@@ -28,6 +28,9 @@
users:multirow
}
+#Pages in this directory are only runnable by dotlrn-wide admins.
+dotlrn::require_admin
+
set context_bar [list [_ dotlrn.Add_a_Professor]]
# LARS 2003-10-21: We should probably limit this in some way, so you can't get 30000 hits.
Index: openacs-4/packages/dotlrn/www/admin/add-instructor-3.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/add-instructor-3.tcl,v
diff -u -r1.10.2.1 -r1.10.2.1.4.1
--- openacs-4/packages/dotlrn/www/admin/add-instructor-3.tcl 21 Feb 2004 02:36:51 -0000 1.10.2.1
+++ openacs-4/packages/dotlrn/www/admin/add-instructor-3.tcl 25 Aug 2004 15:50:58 -0000 1.10.2.1.4.1
@@ -26,6 +26,9 @@
{referer ""}
}
+#Pages in this directory are only runnable by dotlrn-wide admins.
+dotlrn::require_admin
+
set is_dotlrn_user [db_string is_dotlrn_user {}]
# if the user isn't already a dotLRN user make him so
Index: openacs-4/packages/dotlrn/www/admin/add-instructor.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/add-instructor.tcl,v
diff -u -r1.8 -r1.8.6.1
--- openacs-4/packages/dotlrn/www/admin/add-instructor.tcl 23 Oct 2002 12:38:40 -0000 1.8
+++ openacs-4/packages/dotlrn/www/admin/add-instructor.tcl 25 Aug 2004 15:50:58 -0000 1.8.6.1
@@ -25,6 +25,9 @@
{referer "./"}
}
+#Pages in this directory are only runnable by dotlrn-wide admins.
+dotlrn::require_admin
+
set context_bar [list [_ dotlrn.Add_a_Professor]]
ad_return_template
Index: openacs-4/packages/dotlrn/www/admin/admin-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/admin-add-2.tcl,v
diff -u -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/dotlrn/www/admin/admin-add-2.tcl 19 Jul 2004 18:39:39 -0000 1.1.2.1
+++ openacs-4/packages/dotlrn/www/admin/admin-add-2.tcl 25 Aug 2004 15:50:58 -0000 1.1.2.2
@@ -29,7 +29,10 @@
}
+#Pages in this directory are only runnable by dotlrn-wide admins.
+dotlrn::require_admin
+
# Get user information
db_1row select_user_info {
select first_names,
Index: openacs-4/packages/dotlrn/www/admin/admin-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/admin-add.tcl,v
diff -u -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/dotlrn/www/admin/admin-add.tcl 19 Jul 2004 18:39:39 -0000 1.1.2.1
+++ openacs-4/packages/dotlrn/www/admin/admin-add.tcl 25 Aug 2004 15:50:58 -0000 1.1.2.2
@@ -27,6 +27,9 @@
{referer "dotlrn-admins"}
}
+#Pages in this directory are only runnable by dotlrn-wide admins.
+dotlrn::require_admin
+
set search_text [string trim $search_text]
set community_id [dotlrn_community::get_community_id]
Index: openacs-4/packages/dotlrn/www/admin/admin-remove.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/admin-remove.tcl,v
diff -u -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/dotlrn/www/admin/admin-remove.tcl 19 Jul 2004 18:39:39 -0000 1.1.2.1
+++ openacs-4/packages/dotlrn/www/admin/admin-remove.tcl 25 Aug 2004 15:50:58 -0000 1.1.2.2
@@ -24,6 +24,9 @@
user_id
}
+#Pages in this directory are only runnable by dotlrn-wide admins.
+dotlrn::require_admin
+
set group_id [db_string group_id_from_name "
select group_id from groups where group_name='dotlrn-admin'" -default ""]
if {![empty_string_p $group_id] } {
Index: openacs-4/packages/dotlrn/www/admin/archived-communities.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/archived-communities.tcl,v
diff -u -r1.4.6.2 -r1.4.6.3
--- openacs-4/packages/dotlrn/www/admin/archived-communities.tcl 6 Aug 2004 14:39:01 -0000 1.4.6.2
+++ openacs-4/packages/dotlrn/www/admin/archived-communities.tcl 25 Aug 2004 15:50:58 -0000 1.4.6.3
@@ -26,6 +26,9 @@
archived_comms:multirow
}
+#Pages in this directory are only runnable by dotlrn-wide admins.
+dotlrn::require_admin
+
set groups_pretty_plural "[parameter::get -localize -parameter class_instances_pretty_plural] / [parameter::get -localize -parameter clubs_pretty_plural]"
set title "[_ dotlrn.archived_groups]"
Index: openacs-4/packages/dotlrn/www/admin/browse-toggle.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/browse-toggle.tcl,v
diff -u -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/dotlrn/www/admin/browse-toggle.tcl 17 Jun 2004 16:34:09 -0000 1.1.2.1
+++ openacs-4/packages/dotlrn/www/admin/browse-toggle.tcl 25 Aug 2004 15:50:58 -0000 1.1.2.2
@@ -26,6 +26,8 @@
{referer "users"}
}
+#Pages in this directory are only runnable by dotlrn-wide admins.
+dotlrn::require_admin
#update can_browse_p
dotlrn::set_can_browse -user_id $user_id -can_browse\=$can_browse_p
Index: openacs-4/packages/dotlrn/www/admin/class-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/class-edit.tcl,v
diff -u -r1.8 -r1.8.6.1
--- openacs-4/packages/dotlrn/www/admin/class-edit.tcl 29 May 2003 18:05:01 -0000 1.8
+++ openacs-4/packages/dotlrn/www/admin/class-edit.tcl 25 Aug 2004 15:50:58 -0000 1.8.6.1
@@ -28,6 +28,9 @@
context_bar:onevalue
}
+#Pages in this directory are only runnable by dotlrn-wide admins.
+dotlrn::require_admin
+
if {![db_0or1row select_class_info {}]} {
ad_return_complaint 1 "[_ dotlrn.Invalid] class_key $class_key"
ad_script_abort
Index: openacs-4/packages/dotlrn/www/admin/class-instance-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/class-instance-new.tcl,v
diff -u -r1.24 -r1.24.6.1
--- openacs-4/packages/dotlrn/www/admin/class-instance-new.tcl 21 Oct 2003 14:33:35 -0000 1.24
+++ openacs-4/packages/dotlrn/www/admin/class-instance-new.tcl 25 Aug 2004 15:50:58 -0000 1.24.6.1
@@ -25,6 +25,9 @@
{referer ""}
}
+#Pages in this directory are only runnable by dotlrn-wide admins.
+dotlrn::require_admin
+
if {![db_0or1row select_class_info {}]} {
set class_name ""
set class_description ""
Index: openacs-4/packages/dotlrn/www/admin/class-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/class-new.tcl,v
diff -u -r1.15 -r1.15.6.1
--- openacs-4/packages/dotlrn/www/admin/class-new.tcl 11 Dec 2002 13:53:51 -0000 1.15
+++ openacs-4/packages/dotlrn/www/admin/class-new.tcl 25 Aug 2004 15:50:58 -0000 1.15.6.1
@@ -29,6 +29,9 @@
context_bar:onevalue
}
+#Pages in this directory are only runnable by dotlrn-wide admins.
+dotlrn::require_admin
+
# Used in en_US title
set classes_pretty_name [parameter::get -localize -parameter classes_pretty_name]
set title "[_ dotlrn.new_class_1]"
Index: openacs-4/packages/dotlrn/www/admin/class.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/class.tcl,v
diff -u -r1.17 -r1.17.6.1
--- openacs-4/packages/dotlrn/www/admin/class.tcl 11 Dec 2002 13:53:51 -0000 1.17
+++ openacs-4/packages/dotlrn/www/admin/class.tcl 25 Aug 2004 15:50:58 -0000 1.17.6.1
@@ -31,6 +31,9 @@
can_instantiate:onevalue
}
+#Pages in this directory are only runnable by dotlrn-wide admins.
+dotlrn::require_admin
+
# Get information about that class
if {![db_0or1row select_class_info {}]} {
ad_returnredirect classes
Index: openacs-4/packages/dotlrn/www/admin/classes.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/classes.tcl,v
diff -u -r1.14 -r1.14.6.1
--- openacs-4/packages/dotlrn/www/admin/classes.tcl 23 Oct 2002 12:38:40 -0000 1.14
+++ openacs-4/packages/dotlrn/www/admin/classes.tcl 25 Aug 2004 15:50:58 -0000 1.14.6.1
@@ -27,6 +27,9 @@
context_bar:onevalue
}
+#Pages in this directory are only runnable by dotlrn-wide admins.
+dotlrn::require_admin
+
set title [parameter::get -localize -parameter classes_pretty_plural]
set context_bar $title
Index: openacs-4/packages/dotlrn/www/admin/club-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/club-new.tcl,v
diff -u -r1.17 -r1.17.6.1
--- openacs-4/packages/dotlrn/www/admin/club-new.tcl 11 Dec 2002 13:53:51 -0000 1.17
+++ openacs-4/packages/dotlrn/www/admin/club-new.tcl 25 Aug 2004 15:50:58 -0000 1.17.6.1
@@ -27,6 +27,9 @@
context_bar:onevalue
}
+#Pages in this directory are only runnable by dotlrn-wide admins.
+dotlrn::require_admin
+
form create add_club
element create add_club pretty_name \
Index: openacs-4/packages/dotlrn/www/admin/club.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/club.tcl,v
diff -u -r1.14 -r1.14.6.1
--- openacs-4/packages/dotlrn/www/admin/club.tcl 23 Oct 2002 12:38:40 -0000 1.14
+++ openacs-4/packages/dotlrn/www/admin/club.tcl 25 Aug 2004 15:50:58 -0000 1.14.6.1
@@ -32,6 +32,9 @@
description:onevalue
}
+#Pages in this directory are only runnable by dotlrn-wide admins.
+dotlrn::require_admin
+
db_1row select_club {}
set description [ad_quotehtml $description]
Index: openacs-4/packages/dotlrn/www/admin/clubs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/clubs.tcl,v
diff -u -r1.13 -r1.13.6.1
--- openacs-4/packages/dotlrn/www/admin/clubs.tcl 11 Dec 2002 13:53:51 -0000 1.13
+++ openacs-4/packages/dotlrn/www/admin/clubs.tcl 25 Aug 2004 15:50:58 -0000 1.13.6.1
@@ -29,6 +29,9 @@
clubs:multirow
}
+#Pages in this directory are only runnable by dotlrn-wide admins.
+dotlrn::require_admin
+
set title [parameter::get -localize -parameter clubs_pretty_plural]
set context_bar [list $title]
Index: openacs-4/packages/dotlrn/www/admin/cockpit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/cockpit.tcl,v
diff -u -r1.1.2.1 -r1.1.2.2
Binary files differ
Index: openacs-4/packages/dotlrn/www/admin/community-members-add-to-community.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/community-members-add-to-community.tcl,v
diff -u -r1.2.6.1 -r1.2.6.2
--- openacs-4/packages/dotlrn/www/admin/community-members-add-to-community.tcl 17 Jun 2004 15:23:19 -0000 1.2.6.1
+++ openacs-4/packages/dotlrn/www/admin/community-members-add-to-community.tcl 25 Aug 2004 15:50:58 -0000 1.2.6.2
@@ -28,6 +28,8 @@
context_bar:onevalue
}
+#Pages in this directory are only runnable by dotlrn-wide admins.
+dotlrn::require_admin
set community_name [db_string select_community_info {}]
set users [dotlrn_community::list_users $source_community_id]
Index: openacs-4/packages/dotlrn/www/admin/department-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/department-delete.tcl,v
diff -u -r1.4 -r1.4.6.1
--- openacs-4/packages/dotlrn/www/admin/department-delete.tcl 9 Oct 2003 12:36:14 -0000 1.4
+++ openacs-4/packages/dotlrn/www/admin/department-delete.tcl 25 Aug 2004 15:50:58 -0000 1.4.6.1
@@ -14,6 +14,9 @@
# details.
#
+#Pages in this directory are only runnable by dotlrn-wide admins.
+dotlrn::require_admin
+
ad_page_contract {
delete an empty department
Index: openacs-4/packages/dotlrn/www/admin/department-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/department-edit.tcl,v
diff -u -r1.7 -r1.7.6.1
--- openacs-4/packages/dotlrn/www/admin/department-edit.tcl 23 Oct 2002 12:38:40 -0000 1.7
+++ openacs-4/packages/dotlrn/www/admin/department-edit.tcl 25 Aug 2004 15:50:58 -0000 1.7.6.1
@@ -28,6 +28,9 @@
context_bar:onevalue
}
+#Pages in this directory are only runnable by dotlrn-wide admins.
+dotlrn::require_admin
+
if {![db_0or1row select_department_info {}]} {
ad_return_complaint 1 "[_ dotlrn.Invalid] department_key $department_key"
ad_script_abort
Index: openacs-4/packages/dotlrn/www/admin/department-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/department-new.tcl,v
diff -u -r1.8 -r1.8.6.1
--- openacs-4/packages/dotlrn/www/admin/department-new.tcl 23 Oct 2002 12:38:40 -0000 1.8
+++ openacs-4/packages/dotlrn/www/admin/department-new.tcl 25 Aug 2004 15:50:58 -0000 1.8.6.1
@@ -27,6 +27,9 @@
context_bar:onevalue
}
+#Pages in this directory are only runnable by dotlrn-wide admins.
+dotlrn::require_admin
+
set title "[_ dotlrn.New] [parameter::get -localize -parameter departments_pretty_name]"
set context_bar [list [list departments [parameter::get -localize -parameter departments_pretty_plural]] [_ dotlrn.New]]
Index: openacs-4/packages/dotlrn/www/admin/department.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/department.tcl,v
diff -u -r1.13 -r1.13.6.1
--- openacs-4/packages/dotlrn/www/admin/department.tcl 11 Dec 2002 13:53:51 -0000 1.13
+++ openacs-4/packages/dotlrn/www/admin/department.tcl 25 Aug 2004 15:50:58 -0000 1.13.6.1
@@ -30,6 +30,9 @@
classes:multirow
}
+#Pages in this directory are only runnable by dotlrn-wide admins.
+dotlrn::require_admin
+
if {[empty_string_p $department_key]} {
ad_returnredirect "[dotlrn::get_admin_url]/classes"
ad_script_abort
Index: openacs-4/packages/dotlrn/www/admin/departments.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/departments.tcl,v
diff -u -r1.9 -r1.9.6.1
--- openacs-4/packages/dotlrn/www/admin/departments.tcl 23 Oct 2002 12:38:40 -0000 1.9
+++ openacs-4/packages/dotlrn/www/admin/departments.tcl 25 Aug 2004 15:50:58 -0000 1.9.6.1
@@ -27,6 +27,9 @@
departments:multirow
}
+#Pages in this directory are only runnable by dotlrn-wide admins.
+dotlrn::require_admin
+
set title [parameter::get -localize -parameter departments_pretty_plural]
set context_bar [parameter::get -localize -parameter departments_pretty_plural]
set referer departments
Index: openacs-4/packages/dotlrn/www/admin/dotlrn-admins.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/dotlrn-admins.tcl,v
diff -u -r1.1.2.2 -r1.1.2.3
--- openacs-4/packages/dotlrn/www/admin/dotlrn-admins.tcl 22 Jul 2004 19:11:33 -0000 1.1.2.2
+++ openacs-4/packages/dotlrn/www/admin/dotlrn-admins.tcl 25 Aug 2004 15:50:58 -0000 1.1.2.3
@@ -22,6 +22,9 @@
@cvs-id $Id$
}
+#Pages in this directory are only runnable by dotlrn-wide admins.
+dotlrn::require_admin
+
set context_bar "[_ dotlrn.Administrators]"
set referer [ns_conn url]
Index: openacs-4/packages/dotlrn/www/admin/edit-preapproved-emails.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/edit-preapproved-emails.tcl,v
diff -u -r1.8 -r1.8.6.1
--- openacs-4/packages/dotlrn/www/admin/edit-preapproved-emails.tcl 23 Oct 2002 12:38:40 -0000 1.8
+++ openacs-4/packages/dotlrn/www/admin/edit-preapproved-emails.tcl 25 Aug 2004 15:50:58 -0000 1.8.6.1
@@ -22,6 +22,9 @@
context_bar:onevalue
}
+#Pages in this directory are only runnable by dotlrn-wide admins.
+dotlrn::require_admin
+
form create edit_emails
element create edit_emails emails \
Index: openacs-4/packages/dotlrn/www/admin/guest-toggle.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/guest-toggle.tcl,v
diff -u -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/dotlrn/www/admin/guest-toggle.tcl 17 Jun 2004 16:34:09 -0000 1.1.2.1
+++ openacs-4/packages/dotlrn/www/admin/guest-toggle.tcl 25 Aug 2004 15:50:58 -0000 1.1.2.2
@@ -26,6 +26,9 @@
{referer "users"}
}
+#Pages in this directory are only runnable by dotlrn-wide admins.
+dotlrn::require_admin
+
# Update permissions
dotlrn_privacy::set_user_guest_p \
-user_id $user_id \
Index: openacs-4/packages/dotlrn/www/admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/index.tcl,v
diff -u -r1.15.6.1 -r1.15.6.2
--- openacs-4/packages/dotlrn/www/admin/index.tcl 19 Jul 2004 18:39:39 -0000 1.15.6.1
+++ openacs-4/packages/dotlrn/www/admin/index.tcl 25 Aug 2004 15:50:58 -0000 1.15.6.2
@@ -21,6 +21,9 @@
@creation-date 2001-11-04
}
+#Pages in this directory are only runnable by dotlrn-wide admins.
+dotlrn::require_admin
+
set oacs_site_wide_admin_p [acs_user::site_wide_admin_p]
set admin_pretty_name [parameter::get -localize -parameter dotlrn_admin_pretty_name]
Index: openacs-4/packages/dotlrn/www/admin/need-term-note.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/need-term-note.tcl,v
diff -u -r1.1 -r1.1.6.1
--- openacs-4/packages/dotlrn/www/admin/need-term-note.tcl 11 Dec 2002 13:53:51 -0000 1.1
+++ openacs-4/packages/dotlrn/www/admin/need-term-note.tcl 25 Aug 2004 15:50:58 -0000 1.1.6.1
@@ -1,3 +1,5 @@
+#Pages in this directory are only runnable by dotlrn-wide admins.
+dotlrn::require_admin
# Used by the en_US version of the message in the adp file
set terms_url "terms"
Index: openacs-4/packages/dotlrn/www/admin/password-update-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/Attic/password-update-2.tcl,v
diff -u -r1.2.6.1 -r1.2.6.2
--- openacs-4/packages/dotlrn/www/admin/password-update-2.tcl 13 May 2004 13:59:30 -0000 1.2.6.1
+++ openacs-4/packages/dotlrn/www/admin/password-update-2.tcl 25 Aug 2004 15:50:58 -0000 1.2.6.2
@@ -21,6 +21,9 @@
}
}
+#Pages in this directory are only runnable by dotlrn-wide admins.
+dotlrn::require_admin
+
ad_change_password $user_id $password_1
Index: openacs-4/packages/dotlrn/www/admin/password-update.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/password-update.tcl,v
diff -u -r1.2 -r1.2.6.1
--- openacs-4/packages/dotlrn/www/admin/password-update.tcl 4 Dec 2002 09:51:04 -0000 1.2
+++ openacs-4/packages/dotlrn/www/admin/password-update.tcl 25 Aug 2004 15:50:58 -0000 1.2.6.1
@@ -9,6 +9,9 @@
{password_old ""}
}
+#Pages in this directory are only runnable by dotlrn-wide admins.
+dotlrn::require_admin
+
db_1row user_information {}
set context_bar [list [list users Users] [list "user.tcl?user_id=$user_id" "$first_names $last_name"] "[_ dotlrn.Update_Password]"]
Index: openacs-4/packages/dotlrn/www/admin/portal-templates.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/portal-templates.tcl,v
diff -u -r1.4.2.1 -r1.4.2.1.4.1
--- openacs-4/packages/dotlrn/www/admin/portal-templates.tcl 24 Nov 2003 19:02:40 -0000 1.4.2.1
+++ openacs-4/packages/dotlrn/www/admin/portal-templates.tcl 25 Aug 2004 15:50:58 -0000 1.4.2.1.4.1
@@ -26,6 +26,9 @@
departments:multirow
}
+#Pages in this directory are only runnable by dotlrn-wide admins.
+dotlrn::require_admin
+
set title [_ dotlrn.Templates]
set context_bar $title
set url "[portal::mount_point]admin"
Index: openacs-4/packages/dotlrn/www/admin/site-wide-admin-toggle.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/site-wide-admin-toggle.tcl,v
diff -u -r1.8.6.1 -r1.8.6.2
--- openacs-4/packages/dotlrn/www/admin/site-wide-admin-toggle.tcl 19 Jul 2004 18:39:39 -0000 1.8.6.1
+++ openacs-4/packages/dotlrn/www/admin/site-wide-admin-toggle.tcl 25 Aug 2004 15:50:58 -0000 1.8.6.2
@@ -26,6 +26,9 @@
{referer "users"}
}
+#Pages in this directory are only runnable by dotlrn-wide admins.
+dotlrn::require_admin
+
if { ![acs_user::site_wide_admin_p] } {
ns_log notice "user has tried to site-wide-admin-toggle without permission"
ad_return_forbidden \
Index: openacs-4/packages/dotlrn/www/admin/term-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/term-edit.tcl,v
diff -u -r1.6.2.2 -r1.6.2.2.4.1
--- openacs-4/packages/dotlrn/www/admin/term-edit.tcl 20 Nov 2003 20:07:14 -0000 1.6.2.2
+++ openacs-4/packages/dotlrn/www/admin/term-edit.tcl 25 Aug 2004 15:50:58 -0000 1.6.2.2.4.1
@@ -30,6 +30,9 @@
context_bar:onevalue
}
+#Pages in this directory are only runnable by dotlrn-wide admins.
+dotlrn::require_admin
+
if {![db_0or1row select_term_info {}]} {
ad_return_complaint 1 "[_ dotlrn.Invalid] term_key $term_id"
ad_script_abort
Index: openacs-4/packages/dotlrn/www/admin/term-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/term-new.tcl,v
diff -u -r1.8 -r1.8.6.1
--- openacs-4/packages/dotlrn/www/admin/term-new.tcl 29 May 2003 18:05:01 -0000 1.8
+++ openacs-4/packages/dotlrn/www/admin/term-new.tcl 25 Aug 2004 15:50:58 -0000 1.8.6.1
@@ -26,6 +26,9 @@
context_bar:onevalue
}
+#Pages in this directory are only runnable by dotlrn-wide admins.
+dotlrn::require_admin
+
ad_form -name add_term -export referer -form {
{term_name:text {label "Term (e.g. Spring, Fall)"} {maxlength 20}
Index: openacs-4/packages/dotlrn/www/admin/term.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/term.tcl,v
diff -u -r1.12 -r1.12.6.1
--- openacs-4/packages/dotlrn/www/admin/term.tcl 11 Dec 2002 13:53:51 -0000 1.12
+++ openacs-4/packages/dotlrn/www/admin/term.tcl 25 Aug 2004 15:50:58 -0000 1.12.6.1
@@ -27,6 +27,9 @@
classes:multirow
}
+#Pages in this directory are only runnable by dotlrn-wide admins.
+dotlrn::require_admin
+
set departments [db_list_of_lists select_departments_for_select_widget {
select dotlrn_departments_full.pretty_name,
dotlrn_departments_full.department_key
Index: openacs-4/packages/dotlrn/www/admin/terms.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/terms.tcl,v
diff -u -r1.6 -r1.6.6.1
--- openacs-4/packages/dotlrn/www/admin/terms.tcl 18 Nov 2002 17:58:53 -0000 1.6
+++ openacs-4/packages/dotlrn/www/admin/terms.tcl 25 Aug 2004 15:50:58 -0000 1.6.6.1
@@ -26,6 +26,9 @@
terms:multirow
}
+#Pages in this directory are only runnable by dotlrn-wide admins.
+dotlrn::require_admin
+
set context_bar "[_ dotlrn.Terms]"
db_multirow -extend { start_date_pretty end_date_pretty } terms select_terms {} {
Index: openacs-4/packages/dotlrn/www/admin/unarchive.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/unarchive.tcl,v
diff -u -r1.1.2.1 -r1.1.2.2
Binary files differ
Index: openacs-4/packages/dotlrn/www/admin/user-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/user-edit.tcl,v
diff -u -r1.20.2.1 -r1.20.2.1.4.1
--- openacs-4/packages/dotlrn/www/admin/user-edit.tcl 21 Feb 2004 02:36:51 -0000 1.20.2.1
+++ openacs-4/packages/dotlrn/www/admin/user-edit.tcl 25 Aug 2004 15:50:58 -0000 1.20.2.1.4.1
@@ -26,6 +26,9 @@
user_id
}
+#Pages in this directory are only runnable by dotlrn-wide admins.
+dotlrn::require_admin
+
set context_bar [list [list users [_ dotlrn.Users]] [_ dotlrn.Edit]]
set dotlrn_package_id [dotlrn::get_package_id]
Index: openacs-4/packages/dotlrn/www/admin/user-new-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/user-new-2.tcl,v
diff -u -r1.30.2.1 -r1.30.2.1.4.1
--- openacs-4/packages/dotlrn/www/admin/user-new-2.tcl 21 Feb 2004 02:36:51 -0000 1.30.2.1
+++ openacs-4/packages/dotlrn/www/admin/user-new-2.tcl 25 Aug 2004 15:50:58 -0000 1.30.2.1.4.1
@@ -25,6 +25,9 @@
{referer "[dotlrn::get_admin_url]/users"}
}
+#Pages in this directory are only runnable by dotlrn-wide admins.
+dotlrn::require_admin
+
set context_bar [list [list users [_ dotlrn.Users]] [_ dotlrn.New]]
db_1row select_user_info {
Index: openacs-4/packages/dotlrn/www/admin/user-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/user-new.tcl,v
diff -u -r1.9 -r1.9.6.1
--- openacs-4/packages/dotlrn/www/admin/user-new.tcl 23 Oct 2002 12:38:40 -0000 1.9
+++ openacs-4/packages/dotlrn/www/admin/user-new.tcl 25 Aug 2004 15:50:58 -0000 1.9.6.1
@@ -24,6 +24,9 @@
search_text
}
+#Pages in this directory are only runnable by dotlrn-wide admins.
+dotlrn::require_admin
+
# Just search
db_multirow users select_users {}
Index: openacs-4/packages/dotlrn/www/admin/user-nuke.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/user-nuke.tcl,v
diff -u -r1.3.6.1 -r1.3.6.2
--- openacs-4/packages/dotlrn/www/admin/user-nuke.tcl 12 Aug 2004 07:34:29 -0000 1.3.6.1
+++ openacs-4/packages/dotlrn/www/admin/user-nuke.tcl 25 Aug 2004 15:50:58 -0000 1.3.6.2
@@ -10,6 +10,9 @@
{referer "[dotlrn::get_admin_url]/users"}
}
+#Pages in this directory are only runnable by dotlrn-wide admins.
+dotlrn::require_admin
+
db_1row select_user_info {
select email,
first_names,
Index: openacs-4/packages/dotlrn/www/admin/user.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/user.tcl,v
diff -u -r1.16.6.3 -r1.16.6.4
--- openacs-4/packages/dotlrn/www/admin/user.tcl 12 Aug 2004 07:34:29 -0000 1.16.6.3
+++ openacs-4/packages/dotlrn/www/admin/user.tcl 25 Aug 2004 15:50:58 -0000 1.16.6.4
@@ -41,6 +41,9 @@
member_clubs:multirow
}
+#Pages in this directory are only runnable by dotlrn-wide admins.
+dotlrn::require_admin
+
set oacs_site_wide_admin_p [acs_user::site_wide_admin_p]
set return_url "[ad_parameter -package_id [ad_acs_kernel_id] CommunityMemberAdminURL]?user_id=$user_id"
Index: openacs-4/packages/dotlrn/www/admin/users-add-to-community.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/users-add-to-community.tcl,v
diff -u -r1.11 -r1.11.6.1
--- openacs-4/packages/dotlrn/www/admin/users-add-to-community.tcl 1 Nov 2003 10:25:13 -0000 1.11
+++ openacs-4/packages/dotlrn/www/admin/users-add-to-community.tcl 25 Aug 2004 15:50:58 -0000 1.11.6.1
@@ -27,6 +27,9 @@
context_bar:onevalue
}
+#Pages in this directory are only runnable by dotlrn-wide admins.
+dotlrn::require_admin
+
set context_bar [list [list users [_ dotlrn.Users]] [list users-search [_ dotlrn.User_Search]] [_ dotlrn.Add_Users_to_Group]]
form create select_community
Index: openacs-4/packages/dotlrn/www/admin/users-bulk-upload-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/users-bulk-upload-2.tcl,v
diff -u -r1.11.2.1.4.1 -r1.11.2.1.4.2
--- openacs-4/packages/dotlrn/www/admin/users-bulk-upload-2.tcl 31 May 2004 21:21:32 -0000 1.11.2.1.4.1
+++ openacs-4/packages/dotlrn/www/admin/users-bulk-upload-2.tcl 25 Aug 2004 15:50:58 -0000 1.11.2.1.4.2
@@ -22,6 +22,9 @@
@version $Id$
}
+#Pages in this directory are only runnable by dotlrn-wide admins.
+dotlrn::require_admin
+
# get location of the file
set file_location [ns_queryget users_csv_file.tmpfile]
Index: openacs-4/packages/dotlrn/www/admin/users-bulk-upload.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/users-bulk-upload.tcl,v
diff -u -r1.4 -r1.4.6.1
--- openacs-4/packages/dotlrn/www/admin/users-bulk-upload.tcl 23 Oct 2002 12:38:40 -0000 1.4
+++ openacs-4/packages/dotlrn/www/admin/users-bulk-upload.tcl 25 Aug 2004 15:50:58 -0000 1.4.6.1
@@ -22,6 +22,9 @@
@version $Id$
}
+#Pages in this directory are only runnable by dotlrn-wide admins.
+dotlrn::require_admin
+
set context_bar [list [list users [_ dotlrn.Users]] [_ dotlrn.Bulk_Upload]]
ad_return_template
Index: openacs-4/packages/dotlrn/www/admin/users-deactivate.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/users-deactivate.tcl,v
diff -u -r1.4 -r1.4.6.1
--- openacs-4/packages/dotlrn/www/admin/users-deactivate.tcl 23 Oct 2002 12:38:40 -0000 1.4
+++ openacs-4/packages/dotlrn/www/admin/users-deactivate.tcl 25 Aug 2004 15:50:58 -0000 1.4.6.1
@@ -29,6 +29,9 @@
context_bar:onevalue
}
+#Pages in this directory are only runnable by dotlrn-wide admins.
+dotlrn::require_admin
+
set context_bar [list [list users [_ dotlrn.Users]] [list users-search [_ dotlrn.User_Search]] [_ dotlrn.Deactivate_Users]]
form create confirm_deactivate
Index: openacs-4/packages/dotlrn/www/admin/users-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/users-delete.tcl,v
diff -u -r1.6 -r1.6.6.1
--- openacs-4/packages/dotlrn/www/admin/users-delete.tcl 4 Dec 2002 09:51:04 -0000 1.6
+++ openacs-4/packages/dotlrn/www/admin/users-delete.tcl 25 Aug 2004 15:50:58 -0000 1.6.6.1
@@ -29,6 +29,9 @@
context_bar:onevalue
}
+#Pages in this directory are only runnable by dotlrn-wide admins.
+dotlrn::require_admin
+
set context_bar [list [list users [_ dotlrn.Users]] [list users-search [_ dotlrn.User_Search]] [_ dotlrn.Nuke_Users]]
form create confirm_delete
Index: openacs-4/packages/dotlrn/www/admin/users-search.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/users-search.tcl,v
diff -u -r1.24.2.1 -r1.24.2.1.4.1
--- openacs-4/packages/dotlrn/www/admin/users-search.tcl 21 Feb 2004 02:36:51 -0000 1.24.2.1
+++ openacs-4/packages/dotlrn/www/admin/users-search.tcl 25 Aug 2004 15:50:58 -0000 1.24.2.1.4.1
@@ -33,6 +33,9 @@
n_users:onevalue
}
+#Pages in this directory are only runnable by dotlrn-wide admins.
+dotlrn::require_admin
+
set context_bar [list [list users [_ dotlrn.Users]] [_ dotlrn.User_Search]]
set package_id [ad_conn package_id]
Index: openacs-4/packages/dotlrn/www/admin/users-spam.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/users-spam.tcl,v
diff -u -r1.4 -r1.4.6.1
--- openacs-4/packages/dotlrn/www/admin/users-spam.tcl 23 Oct 2002 12:38:40 -0000 1.4
+++ openacs-4/packages/dotlrn/www/admin/users-spam.tcl 25 Aug 2004 15:50:58 -0000 1.4.6.1
@@ -29,6 +29,9 @@
context_bar:onevalue
}
+#Pages in this directory are only runnable by dotlrn-wide admins.
+dotlrn::require_admin
+
set context_bar [list [list users [_ dotlrn.Users]] [list users-search [_ dotlrn.User_Search]] [_ dotlrn.Spam_Users]]
set sender_id [ad_conn user_id]
Index: openacs-4/packages/dotlrn/www/admin/users.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/users.tcl,v
diff -u -r1.19 -r1.19.6.1
--- openacs-4/packages/dotlrn/www/admin/users.tcl 4 Dec 2002 09:51:04 -0000 1.19
+++ openacs-4/packages/dotlrn/www/admin/users.tcl 25 Aug 2004 15:50:58 -0000 1.19.6.1
@@ -28,6 +28,9 @@
n_users:onevalue
}
+#Pages in this directory are only runnable by dotlrn-wide admins.
+dotlrn::require_admin
+
set context_bar [_ dotlrn.Users]
set dotlrn_roles [db_list_of_lists select_dotlrn_roles {