+#dotlrn.lt_Error_Nuking_first_na#
+@context_bar@
+
+#dotlrn.Sorry#
+
+
+
+#dotlrn.lt_Well_we_tried_to_nuke#
+
+
+
+@error_msg@
+
+
+
+#dotlrn.lt_Return_to_where_you_w#
Index: openacs-4/packages/dotlrn-admin/www/admin/user-nuke-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-admin/www/admin/user-nuke-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-admin/www/admin/user-nuke-oracle.xql 20 Aug 2004 14:44:22 -0000 1.1
@@ -0,0 +1,14 @@
+
+
+
+ oracle8.1.6
+
+
+
+ begin
+ acs.remove_user(:user_id);
+ end;
+
+
+
+
Index: openacs-4/packages/dotlrn-admin/www/admin/user-nuke-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-admin/www/admin/user-nuke-postgresql.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-admin/www/admin/user-nuke-postgresql.xql 20 Aug 2004 14:44:22 -0000 1.1
@@ -0,0 +1,12 @@
+
+
+
+ postgresql7.1
+
+
+
+ select acs__remove_user(:user_id);
+
+
+
+
Index: openacs-4/packages/dotlrn-admin/www/admin/user-nuke.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-admin/www/admin/user-nuke.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-admin/www/admin/user-nuke.adp 20 Aug 2004 14:44:22 -0000 1.1
@@ -0,0 +1,11 @@
+
+#dotlrn.lt_Nuke_first_names_last#
+@context_bar@
+
+#dotlrn.Confirmation#
+
+
+
+#dotlrn.lt_Please_confirm_that_y#
+
+
\ No newline at end of file
Index: openacs-4/packages/dotlrn-admin/www/admin/user-nuke.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-admin/www/admin/user-nuke.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-admin/www/admin/user-nuke.tcl 20 Aug 2004 14:44:22 -0000 1.1
@@ -0,0 +1,54 @@
+ad_page_contract {
+
+ Try to delete a pending user from the database.
+
+ @author Andrew Grumet (aegrumet@alum.mit.edu)
+ @creation-date 2002-08-08
+ @version $Id: user-nuke.tcl,v 1.1 2004/08/20 14:44:22 andrewg Exp $
+} {
+ user_id:integer,notnull
+ {referer "[dotlrn::get_admin_url]/users"}
+}
+
+db_1row select_user_info {
+ select email,
+ first_names,
+ last_name
+ from cc_users
+ where user_id = :user_id
+}
+
+form create confirm_delete
+
+element create confirm_delete user_id \
+ -label "[_ dotlrn.User_ID_1]" \
+ -datatype integer \
+ -widget hidden \
+ -value $user_id
+
+element create confirm_delete confirmed_p \
+ -label "[_ dotlrn.Are_you_sure]" \
+ -datatype text \
+ -widget radio \
+ -options [list [list [_ dotlrn.No] f] [list [_ dotlrn.Yes] t]] \
+ -value f
+
+set context_bar [list [list users [_ dotlrn.Users]] [_ dotlrn.Nuke]]
+
+if [form is_valid confirm_delete] {
+ form get_values confirm_delete user_id confirmed_p
+ if [string equal $confirmed_p t] {
+ if [catch { dotlrn::remove_user_completely -user_id $user_id } errMsg ] {
+ set error_msg $errMsg
+ ad_return_template user-nuke-error
+ } else {
+ # Nuke was successful.
+ ad_returnredirect $referer
+ ad_script_abort
+ }
+ } else {
+ # Nuke cancelled
+ ad_returnredirect $referer
+ ad_script_abort
+ }
+}
Index: openacs-4/packages/dotlrn-admin/www/admin/user-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-admin/www/admin/user-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-admin/www/admin/user-oracle.xql 20 Aug 2004 14:44:22 -0000 1.1
@@ -0,0 +1,78 @@
+
+
+
+ oracle8.1.6
+
+
+
+ select dotlrn_users.*, guest_p
+ from dotlrn_users, dotlrn_guest_status
+ where dotlrn_users.user_id = :user_id
+ and dotlrn_guest_status.user_id(+) = dotlrn_users.user_id
+
+
+
+
+
+ select cr_items.live_revision as revision_id,
+ nvl(cr_revisions.title, 'view this portrait') as portrait_title
+ from acs_rels,
+ cr_items,
+ cr_revisions
+ where acs_rels.object_id_two = cr_items.item_id
+ and cr_items.live_revision = cr_revisions.revision_id
+ and acs_rels.object_id_one = :user_id
+ and acs_rels.rel_type = 'user_portrait_rel'
+
+
+
+
+
+ select dotlrn_class_instances_full.*,
+ dotlrn_member_rels_approved.rel_type,
+ dotlrn_member_rels_approved.role,
+ '' as role_pretty_name
+ from dotlrn_class_instances_full,
+ dotlrn_member_rels_approved
+ where dotlrn_member_rels_approved.user_id = :user_id
+ and dotlrn_member_rels_approved.community_id = dotlrn_class_instances_full.class_instance_id
+ order by dotlrn_class_instances_full.department_name,
+ dotlrn_class_instances_full.department_key,
+ dotlrn_class_instances_full.pretty_name,
+ dotlrn_class_instances_full.community_key
+
+
+
+
+
+ select dotlrn_clubs_full.*,
+ dotlrn_member_rels_approved.rel_type,
+ dotlrn_member_rels_approved.role,
+ '' as role_pretty_name
+ from dotlrn_clubs_full,
+ dotlrn_member_rels_approved
+ where dotlrn_member_rels_approved.user_id = :user_id
+ and dotlrn_member_rels_approved.community_id = dotlrn_clubs_full.club_id
+ order by dotlrn_clubs_full.pretty_name,
+ dotlrn_clubs_full.community_key
+
+
+
+
+
+ select dotlrn_communities.*,
+ dotlrn_community.url(dotlrn_communities.community_id) as url,
+ dotlrn_member_rels_approved.rel_type,
+ dotlrn_member_rels_approved.role,
+ '' as role_pretty_name
+ from dotlrn_communities,
+ dotlrn_member_rels_approved
+ where dotlrn_member_rels_approved.user_id = :user_id
+ and dotlrn_member_rels_approved.community_id = dotlrn_communities.community_id
+ and dotlrn_communities.community_type = 'dotlrn_community'
+ order by dotlrn_communities.pretty_name,
+ dotlrn_communities.community_key
+
+
+
+
Index: openacs-4/packages/dotlrn-admin/www/admin/user-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-admin/www/admin/user-postgresql.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-admin/www/admin/user-postgresql.xql 20 Aug 2004 14:44:22 -0000 1.1
@@ -0,0 +1,78 @@
+
+
+
+ postgresql7.1
+
+
+
+ select dotlrn_users.*, guest_p
+ from dotlrn_users left outer join dotlrn_guest_status
+ on dotlrn_guest_status.user_id = dotlrn_users.user_id
+ where dotlrn_users.user_id = :user_id
+
+
+
+
+
+ select cr_items.live_revision as revision_id,
+ coalesce(cr_revisions.title, 'view this portrait') as portrait_title
+ from acs_rels,
+ cr_items,
+ cr_revisions
+ where acs_rels.object_id_two = cr_items.item_id
+ and cr_items.live_revision = cr_revisions.revision_id
+ and acs_rels.object_id_one = :user_id
+ and acs_rels.rel_type = 'user_portrait_rel'
+
+
+
+
+
+ select dotlrn_class_instances_full.*,
+ dotlrn_member_rels_approved.rel_type,
+ dotlrn_member_rels_approved.role,
+ '' as role_pretty_name
+ from dotlrn_class_instances_full,
+ dotlrn_member_rels_approved
+ where dotlrn_member_rels_approved.user_id = :user_id
+ and dotlrn_member_rels_approved.community_id = dotlrn_class_instances_full.class_instance_id
+ order by dotlrn_class_instances_full.department_name,
+ dotlrn_class_instances_full.department_key,
+ dotlrn_class_instances_full.pretty_name,
+ dotlrn_class_instances_full.community_key
+
+
+
+
+
+ select dotlrn_clubs_full.*,
+ dotlrn_member_rels_approved.rel_type,
+ dotlrn_member_rels_approved.role,
+ '' as role_pretty_name
+ from dotlrn_clubs_full,
+ dotlrn_member_rels_approved
+ where dotlrn_member_rels_approved.user_id = :user_id
+ and dotlrn_member_rels_approved.community_id = dotlrn_clubs_full.club_id
+ order by dotlrn_clubs_full.pretty_name,
+ dotlrn_clubs_full.community_key
+
+
+
+
+
+ select dotlrn_communities.*,
+ dotlrn_community__url(dotlrn_communities.community_id) as url,
+ dotlrn_member_rels_approved.rel_type,
+ dotlrn_member_rels_approved.role,
+ '' as role_pretty_name
+ from dotlrn_communities,
+ dotlrn_member_rels_approved
+ where dotlrn_member_rels_approved.user_id = :user_id
+ and dotlrn_member_rels_approved.community_id = dotlrn_communities.community_id
+ and dotlrn_communities.community_type = 'dotlrn_community'
+ order by dotlrn_communities.pretty_name,
+ dotlrn_communities.community_key
+
+
+
+
Index: openacs-4/packages/dotlrn-admin/www/admin/user.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-admin/www/admin/user.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-admin/www/admin/user.adp 20 Aug 2004 14:44:22 -0000 1.1
@@ -0,0 +1,201 @@
+<%
+
+ #
+ # Copyright (C) 2001, 2002 MIT
+ #
+ # This file is part of dotLRN.
+ #
+ # dotLRN is free software; you can redistribute it and/or modify it under the
+ # terms of the GNU General Public License as published by the Free Software
+ # Foundation; either version 2 of the License, or (at your option) any later
+ # version.
+ #
+ # dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY
+ # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+ # FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+ # details.
+ #
+
+%>
+
+
+@first_names@ @last_name@
+@context_bar@
+
+#dotlrn.General_Information#
+
+
+
+ -
+ #dotlrn.Person_name#
+ @first_names@ @last_name@
+
+ [ #dotlrn.Edit# ]
+
+
+
+ -
+ #dotlrn.Email#
+ @email@
+
+ [ #dotlrn.Edit# ]
+
+
+
+ -
+ #dotlrn.Screen_name#
+ @screen_name@
+
+ [ #dotlrn.Edit# ]
+
+
+
+ -
+ #dotlrn.User_ID#
+ @user_id@
+
+
+ -
+ #dotlrn.Registration_date#
+ @registration_date@
+
+
+
+ -
+ #dotlrn.Last_Visit#
+ @last_visit@
+
+
+
+ -
+ #dotlrn.lt_Last_Visit_None_#: @remove_user_url;noquote@
+
+
+
+
+ -
+ #dotlrn.Portrait# @portrait_title@
+
+
+
+ -
+ #dotlrn.Member_state#
+ @member_state@
+
+ @change_state_links;noquote@
+
+
+
+
+
+#dotlrn.dotLRN_Information#
+
+
+
+
+
+ -
+ #dotlrn.User_type#
+ <%= [lang::util::localize @pretty_type@] %>
+
+
+ -
+ #dotlrn.Access_level#
+ #dotlrn.Full# [ #dotlrn.Limited# ]#dotlrn.Limited# [ #dotlrn.Full# ]
+
+
+ -
+ #dotlrn.Guest#
+ #dotlrn.Yes# [ #dotlrn.No# ]#dotlrn.No# [ #dotlrn.Yes# ]
+
+
+ -
+ #dotlrn.ID#
+ #dotlrn.ltnone_set_upgt#@id@
+
+
+
+
+ -
+ #dotlrn.Edit# #dotlrn.lt_dotLRN_properties_for#
+
+
+
+
+
+
+ #dotlrn.class_memberships#
+
+
+
+
+
+
+
+ #dotlrn.community_memberships#
+
+
+
+
+
+
+
+ #dotlrn.subcommunity_memberships#
+
+
+
+
+
+
+
+
+
+
+
+ #dotlrn.add_to_dotlrn#
+
+
+#dotlrn.lt_This_user_is_currentl#.
+
+
+
+
+#dotlrn.lt_Administrative_Action#
+
+
Index: openacs-4/packages/dotlrn-admin/www/admin/user.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-admin/www/admin/user.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-admin/www/admin/user.tcl 20 Aug 2004 14:44:22 -0000 1.1
@@ -0,0 +1,108 @@
+#
+# Copyright (C) 2001, 2002 MIT
+#
+# This file is part of dotLRN.
+#
+# dotLRN is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+# FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+# details.
+#
+
+ad_page_contract {
+ One user view by a dotLRN admin
+
+ @author yon (yon@openforce.net)
+ @creation-date 2002-03-13
+ @version $Id: user.tcl,v 1.1 2004/08/20 14:44:22 andrewg Exp $
+} {
+ user_id:integer,notnull
+} -properties {
+ context_bar:onevalue
+ first_names:onevalue
+ last_name:onevalue
+ email:onevalue
+ screen_name:onevalue
+ user_id:onevalue
+ registration_date:onevalue
+ last_visit:onevalue
+ export_edit_vars:onevalue
+ portrait_p:onevalue
+ portrait_title:onevalue
+ change_state_links:onevalue
+ return_url:onevalue
+ dotlrn_user_p:onevalue
+ member_classes:multirow
+ member_clubs:multirow
+}
+
+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"
+set export_edit_vars "user_id=$user_id&return_url=$return_url"
+
+set dotlrn_url [dotlrn::get_url]
+set root_object_id [acs_magic_object security_context_root]
+if {![db_0or1row select_user_info {}]} {
+ ad_return_complaint 1 "[_ dotlrn.couldnt_find_user_id [list user_id $user_id]]"
+ ad_script_abort
+}
+if {[empty_string_p $screen_name]} {
+ set screen_name "<[_ dotlrn.none_set_up]>"
+}
+set registration_date [lc_time_fmt $registration_date "%q"]
+if {![empty_string_p $last_visit]} {
+ set last_visit [lc_time_fmt $last_visit "%q"]
+}
+
+set dotlrn_package_id [dotlrn::get_package_id]
+set dotlrn_user_p 0
+if {[db_0or1row select_dotlrn_user_info {}]} {
+ set dotlrn_user_p 1
+}
+set can_browse_p [dotlrn::user_can_browse_p -user_id $user_id]
+
+set portrait_p 0
+if {[ad_parameter "show_portrait_p" dotlrn] && [db_0or1row select_portrait_info {}]} {
+ set portrait_p 1
+}
+
+set change_state_links "\[[join [ad_registration_finite_state_machine_admin_links $member_state $email_verified_p $user_id $return_url] " | "]\]"
+
+db_multirow member_classes select_member_classes {} {
+ set role_pretty_name [dotlrn_community::get_role_pretty_name -community_id $class_instance_id -rel_type $rel_type]
+}
+db_multirow member_clubs select_member_clubs {} {
+ set role_pretty_name [dotlrn_community::get_role_pretty_name -community_id $club_id -rel_type $rel_type]
+}
+db_multirow member_subgroups select_member_subgroups {} {
+ set role_pretty_name [dotlrn_community::get_role_pretty_name -community_id $community_id -rel_type $rel_type]
+}
+
+set site_wide_admin_p [permission::permission_p \
+ -party_id $user_id \
+ -object_id [acs_magic_object "security_context_root"] \
+ -privilege admin \
+ ]
+
+set context_bar [list [list users [_ dotlrn.Users]] "$first_names $last_name"]
+
+set dual_approve_return_url [ns_urlencode [dotlrn::get_admin_url]/user-new-2?user_id=$user_id&referer=$return_url]
+
+set approve_user_url "/acs-admin/users/member-state-change?user_id=$user_id&member_state=approved&return_url=$dual_approve_return_url"
+
+set remove_user_url "\[Nuke\]"
+
+# Used in some en_US messages in the adp file
+set class_instances_pretty_name [parameter::get -localize -parameter class_instances_pretty_name]
+set clubs_pretty_name [parameter::get -localize -parameter clubs_pretty_name]
+set subcommunities_pretty_name [parameter::get -localize -parameter subcommunities_pretty_name]
+
+set dual_approve_return_url [ns_urlencode [dotlrn::get_admin_url]/user-new-2?user_id=$user_id&referer=$return_url]
+
+ad_return_template
Index: openacs-4/packages/dotlrn-admin/www/admin/user.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-admin/www/admin/user.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-admin/www/admin/user.xql 20 Aug 2004 14:44:22 -0000 1.1
@@ -0,0 +1,21 @@
+
+
+
+
+
+
+ select first_names,
+ last_name,
+ email,
+ screen_name,
+ creation_date as registration_date,
+ creation_ip,
+ last_visit,
+ member_state,
+ email_verified_p
+ from cc_users
+ where user_id = :user_id
+
+
+
+
Index: openacs-4/packages/dotlrn-admin/www/admin/users-add-to-community.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-admin/www/admin/users-add-to-community.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-admin/www/admin/users-add-to-community.adp 20 Aug 2004 14:44:22 -0000 1.1
@@ -0,0 +1,34 @@
+<%
+
+ #
+ # Copyright (C) 2001, 2002 MIT
+ #
+ # This file is part of dotLRN.
+ #
+ # dotLRN is free software; you can redistribute it and/or modify it under the
+ # terms of the GNU General Public License as published by the Free Software
+ # Foundation; either version 2 of the License, or (at your option) any later
+ # version.
+ #
+ # dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY
+ # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+ # FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+ # details.
+ #
+
+%>
+
+
+#dotlrn.Add_Users_to_Group#
+@context_bar@
+
+
+#dotlrn.Note#
+#dotlrn.lt_This_action_will_take# <%= [expr [llength $users] * 3] %> #dotlrn.seconds#
+
+
+
+
+
+
+
Index: openacs-4/packages/dotlrn-admin/www/admin/users-add-to-community.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-admin/www/admin/users-add-to-community.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-admin/www/admin/users-add-to-community.tcl 20 Aug 2004 14:44:22 -0000 1.1
@@ -0,0 +1,109 @@
+#
+# Copyright (C) 2001, 2002 MIT
+#
+# This file is part of dotLRN.
+#
+# dotLRN is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+# FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+# details.
+#
+
+ad_page_contract {
+ Add a set of users to a community
+
+ @author yon (yon@openforce.net)
+ @creation-date 2002-02-10
+ @version $Id: users-add-to-community.tcl,v 1.1 2004/08/20 14:44:22 andrewg Exp $
+} -query {
+ users
+ {referer "users-search"}
+} -properties {
+ context_bar:onevalue
+}
+
+set context_bar [list [list users [_ dotlrn.Users]] [list users-search [_ dotlrn.User_Search]] [_ dotlrn.Add_Users_to_Group]]
+
+form create select_community
+
+element create select_community users \
+ -label " " \
+ -datatype text \
+ -widget hidden \
+ -value $users
+
+element create select_community referer \
+ -label "[_ dotlrn.Referer]" \
+ -datatype text \
+ -widget hidden \
+ -value $referer
+
+set communities [db_list_of_lists select_all_communities {
+ select dotlrn_communities.pretty_name,
+ dotlrn_communities.community_id
+ from dotlrn_communities
+ where dotlrn_communities.portal_id is not NULL
+ order by dotlrn_communities.pretty_name,
+ dotlrn_communities.community_id
+}]
+
+if {[llength $communities]} {
+ element create select_community community_id \
+ -label "[_ dotlrn.Add_users_to]" \
+ -datatype text \
+ -widget select \
+ -options "{{} {}} $communities"
+} else {
+ element create select_community community_id \
+ -label "[_ dotlrn.No_groups_to_add_to]" \
+ -datatype text \
+ -widget hidden \
+ -value ""
+}
+
+if {[form is_valid select_community]} {
+ form get_values select_community \
+ users community_id
+
+ if {![empty_string_p $community_id]} {
+ db_transaction {
+ foreach user $users {
+ dotlrn_community::add_user $community_id $user
+ }
+ }
+
+ # Now notify the users that they've been added to the community.
+
+ set sender_email [cc_email_from_party [ad_conn user_id]]
+ foreach {community} $communities {
+ if { $community_id == [lindex $community 1] } {
+ set community_name [lindex $community 0]
+ break
+ }
+ }
+
+ set subject "You have been added to the \"$community_name\" community at [ad_parameter -package_id [ad_acs_kernel_id] SystemURL]"
+ set message "To visit the community's home page, point your browser at [ad_parameter -package_id [ad_acs_kernel_id] SystemURL],
+log in, and click on the \"$community_name\" link in the \"Groups\" portlet.
+"
+
+ spam::send \
+ -recepients $users \
+ -from $sender_email \
+ -real_from $sender_email \
+ -subject $subject \
+ -message $message \
+ -message_values [list]
+ }
+
+ ad_returnredirect $referer
+ ad_script_abort
+}
+
+ad_return_template
+
Index: openacs-4/packages/dotlrn-admin/www/admin/users-bulk-upload-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-admin/www/admin/users-bulk-upload-2.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-admin/www/admin/users-bulk-upload-2.tcl 20 Aug 2004 14:44:22 -0000 1.1
@@ -0,0 +1,168 @@
+#
+# Copyright (C) 2001, 2002 MIT
+#
+# This file is part of dotLRN.
+#
+# dotLRN is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+# FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+# details.
+#
+
+ad_page_contract {
+ Process the upload
+
+ @author ben (ben@openforce.net)
+ @creation-date 2002-03-05
+ @version $Id: users-bulk-upload-2.tcl,v 1.1 2004/08/20 14:44:22 andrewg Exp $
+}
+
+# get location of the file
+set file_location [ns_queryget users_csv_file.tmpfile]
+
+# Prepare stuff
+set headers {first_names last_name email}
+
+set admin_user_id [ad_verify_and_get_user_id]
+set admin_email [db_string select_admin_email {
+ select email
+ from parties
+ where party_id = :admin_user_id
+}]
+
+doc_body_append "[_ dotlrn.Bulk_Uploading]"
+
+set list_of_user_ids [list]
+set list_of_addresses_and_passwords [list]
+
+# Do the stuff
+# We can't do this too generically, so we'll just do the CSV stuff right here
+db_transaction {
+
+ oacs_util::csv_foreach -file $file_location -array_name row {
+
+ # First make sure the required data is there
+ if { ![info exists row(email)] || ![info exists row(first_names)] || ![info exists row(last_name)] } {
+ doc_body_append "
Datafile must include at least the email, first_names and last_name fields
"
+ db_abort_transaction
+ return
+ }
+
+ # We need to insert the ACS user
+ set password [ad_generate_random_string]
+
+ # Check if this user already exists
+ set user_id [cc_lookup_email_user $row(email)]
+ if {![empty_string_p $user_id]} {
+ doc_body_append [_ dotlrn.user_email_already_exists [list user_email $row(email)]]
+ lappend list_of_user_ids $user_id
+ } else {
+
+ set user_id [db_nextval acs_object_id_seq]
+
+ auth::create_user \
+ -user_id $user_id \
+ -username "" \
+ -email $row(email) \
+ -first_names $row(first_names) \
+ -last_name $row(last_name) \
+ -password $password
+
+
+ lappend list_of_user_ids $user_id
+
+ if {![info exists row(type)]} {
+ set row(type) student
+ }
+
+ if {![info exists row(access_level)]} {
+ set row(access_level) full
+ }
+
+ if {![info exists row(guest)]} {
+ set row(guest) f
+ }
+
+ if {![info exists row(id)]} {
+ set row(id) $row(email)
+ }
+
+ doc_body_append "Creating user $row(email)...."
+
+ # Now we make them a dotLRN user
+ switch -exact $row(access_level) {
+ limited {
+ dotlrn::user_add -user_id $user_id -id $row(id) -type $row(type)
+ }
+ full -
+ default {
+ dotlrn::user_add -user_id $user_id -id $row(id) -type $row(type) -can_browse
+ }
+ }
+
+ # Set the privacy
+ dotlrn_privacy::set_user_guest_p -user_id $user_id -value $row(guest)
+
+ doc_body_append [_ dotlrn.user_email_created [list user_email $row(email)]]
+ set msg_subst_list [list system_name [ad_system_name] \
+ system_url [ad_parameter SystemUrl] \
+ user_email $row(email) \
+ user_password $password]
+ set message [_ dotlrn.user_add_confirm_email_body $msg_subst_list]
+ set subject [_ dotlrn.user_add_confirm_email_subject $msg_subst_list]
+
+ # Send note to new user
+ if [catch {ns_sendmail "$row(email)" "$admin_email" "$subject" "$message"} errmsg] {
+ doc_body_append "[_ dotlrn.lt_emailing_this_user_fa]"
+ set fail_p 1
+ } else {
+ doc_body_append "[_ dotlrn.email_sent]"
+ }
+
+ lappend list_of_addresses_and_passwords $row(email) $password
+ }
+
+ doc_body_append "
"
+
+ }
+} on_error {
+ doc_body_append "
The database choked while trying to create the last user in the list above!
The transaction has been aborted, no users have been entered, and no e-mail notifications have been sent.
"
+ ad_script_abort
+}
+
+set fail_p 0
+
+doc_body_append "
Sending email notifications to users...
"
+
+foreach {email password} $list_of_addresses_and_passwords {
+ if { ![string equal $password ""] } {
+ set message "
+You have been added as a user to [ad_system_name] at [ad_parameter -package_id [ad_acs_kernel_id] SystemURL].
+
+Login: $email
+Password: $password
+"
+ # Send note to new user
+ if [catch {ns_sendmail "$email" "$admin_email" "You have been added as a user to [ad_system_name] at [ad_parameter -package_id [ad_acs_kernel_id] SystemURL]" "$message"} errmsg] {
+ doc_body_append "emailing \"$email\" failed!
"
+ set fail_p 1
+ } else {
+ doc_body_append "email sent to \"$email\"
"
+ }
+ }
+}
+
+if {$fail_p} {
+ doc_body_append "
[_ dotlrn.lt_Some_of_the_emails_fa]
"
+}
+
+doc_body_append "
"
+doc_body_append "[_ dotlrn.or_return_to] [_ dotlrn.User_Management]."
Index: openacs-4/packages/dotlrn-admin/www/admin/users-bulk-upload.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-admin/www/admin/users-bulk-upload.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-admin/www/admin/users-bulk-upload.adp 20 Aug 2004 14:44:22 -0000 1.1
@@ -0,0 +1,108 @@
+<%
+
+ #
+ # Copyright (C) 2001, 2002 MIT
+ #
+ # This file is part of dotLRN.
+ #
+ # dotLRN is free software; you can redistribute it and/or modify it under the
+ # terms of the GNU General Public License as published by the Free Software
+ # Foundation; either version 2 of the License, or (at your option) any later
+ # version.
+ #
+ # dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY
+ # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+ # FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+ # details.
+ #
+
+%>
+
+
+#dotlrn.Users_Bulk_Upload#
+@context_bar@
+
+#dotlrn.lt_Here_you_can_create_s#
+
+
+
+#dotlrn.Be_sure# #dotlrn.lt_to_use_vaild_email_ad#
+
+
+
+
+#dotlrn.CSV_File_Format#
+
+
+
+ #dotlrn.First_Line#
+
+
+
+ #dotlrn.first_line_of_file_must_be#
+
+
+ first_names,last_name,email,id,type,access_level,guest
+
+
+
+
+
+
+
+
+ #dotlrn.Fields#
+
+
+ - first_names - #dotlrn.required#
+
- last_name - #dotlrn.required#
+
- email - #dotlrn.required#
+
- id - #dotlrn.optional_defaults_to# email #dotlrn.lt_a_secondary#
+
- type - #dotlrn.required# #dotlrn.must_have_values#
+
+ - professor
+
- student
+
- admin
+
- external
+
+ - access_level - #dotlrn.optional_defaults_to# full -
+ #dotlrn.must_have_values# full, limited
+
- guest - #dotlrn.optional_defaults_to# guest -
+ #dotlrn.must_have_values# t, f
+
+
+
+
+
+
+ #dotlrn.Example_File#
+
+
+ first_names,last_name,email,id,type,access_level,guest
+ Joe,Student,joe@_somewhere_.net,123-456-7890,student,full,f
+ Albert,Einstein,al@_school_.edu,al,professor,full,f
+ Systems,Hacker,syshacker@_company_.com,,admin,,,
+ Intersted,Onlooker,onlooker@_somewhere_.net,,external,,limited,t
+
+
+
+
+
+
+#dotlrn.lt_Note_you_will_have_th#
+
+
+
+
+
+
+
+
+
+
+
Index: openacs-4/packages/dotlrn-admin/www/admin/users-bulk-upload.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-admin/www/admin/users-bulk-upload.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-admin/www/admin/users-bulk-upload.tcl 20 Aug 2004 14:44:22 -0000 1.1
@@ -0,0 +1,28 @@
+#
+# Copyright (C) 2001, 2002 MIT
+#
+# This file is part of dotLRN.
+#
+# dotLRN is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+# FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+# details.
+#
+
+ad_page_contract {
+ Display the page for bulk uploading of a bunch of users
+
+ @author ben (ben@openforce.net)
+ @creation-date 2002-03-05
+ @version $Id: users-bulk-upload.tcl,v 1.1 2004/08/20 14:44:22 andrewg Exp $
+}
+
+set context_bar [list [list users [_ dotlrn.Users]] [_ dotlrn.Bulk_Upload]]
+
+ad_return_template
+
Index: openacs-4/packages/dotlrn-admin/www/admin/users-chunk-large-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-admin/www/admin/users-chunk-large-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-admin/www/admin/users-chunk-large-oracle.xql 20 Aug 2004 14:44:22 -0000 1.1
@@ -0,0 +1,87 @@
+
+
+
+ oracle8.1.6
+
+
+
+ select dotlrn_users.user_id,
+ dotlrn_users.first_names,
+ dotlrn_users.last_name,
+ dotlrn_users.email,
+ dotlrn_privacy.guest_p(dotlrn_users.user_id) as guest_p,
+ acs_permission.permission_p(:root_object_id, dotlrn_users.user_id, 'admin') as site_wide_admin_p
+ from dotlrn_users
+ where dotlrn_users.type = :type
+ and (
+ lower(dotlrn_users.last_name) like lower('%' || :search_text || '%')
+ or lower(dotlrn_users.first_names) like lower('%' || :search_text || '%')
+ or lower(dotlrn_users.email) like lower('%' || :search_text || '%')
+ )
+ order by dotlrn_users.last_name
+
+
+
+
+
+ select users.user_id,
+ persons.first_names,
+ persons.last_name,
+ parties.email,
+ 'f' as guest_p,
+ acs_permission.permission_p(:root_object_id, users.user_id, 'admin') as site_wide_admin_p
+ from parties,
+ users,
+ persons,
+ acs_rels,
+ membership_rels
+ where parties.party_id = users.user_id
+ and member_state not in ('banned','deleted','rejected')
+ and users.user_id = persons.person_id
+ and persons.person_id = acs_rels.object_id_two
+ and acs_rels.object_id_one = acs.magic_object_id('registered_users')
+ and acs_rels.rel_id = membership_rels.rel_id
+ and users.email_verified_p = 't'
+ and not exists (select 1
+ from acs_rels a,
+ dotlrn_user_types
+ where a.object_id_one = dotlrn_user_types.group_id
+ and a.object_id_two = acs_rels.object_id_two)
+ and (
+ lower(persons.last_name) like lower('%' || :search_text || '%')
+ or lower(persons.first_names) like lower('%' || :search_text || '%')
+ or lower(parties.email) like lower('%' || :search_text || '%')
+ )
+ order by persons.last_name
+
+
+
+
+
+ select users.user_id,
+ persons.first_names,
+ persons.last_name,
+ parties.email,
+ 'f' as guest_p,
+ acs_permission.permission_p(:root_object_id, users.user_id, 'admin') as site_wide_admin_p
+ from parties,
+ users,
+ persons,
+ acs_rels,
+ membership_rels
+ where parties.party_id = users.user_id
+ and users.user_id = persons.person_id
+ and persons.person_id = acs_rels.object_id_two
+ and acs_rels.object_id_one = acs.magic_object_id('registered_users')
+ and acs_rels.rel_id = membership_rels.rel_id
+ and membership_rels.member_state = 'banned'
+ and (
+ lower(persons.last_name) like lower('%' || :search_text || '%')
+ or lower(persons.first_names) like lower('%' || :search_text || '%')
+ or lower(parties.email) like lower('%' || :search_text || '%')
+ )
+ order by persons.last_name
+
+
+
+
Index: openacs-4/packages/dotlrn-admin/www/admin/users-chunk-large-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-admin/www/admin/users-chunk-large-postgresql.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-admin/www/admin/users-chunk-large-postgresql.xql 20 Aug 2004 14:44:22 -0000 1.1
@@ -0,0 +1,87 @@
+
+
+
+ postgresql7.1
+
+
+
+ select dotlrn_users.user_id,
+ dotlrn_users.first_names,
+ dotlrn_users.last_name,
+ dotlrn_users.email,
+ dotlrn_privacy__guest_p(dotlrn_users.user_id) as guest_p,
+ acs_permission__permission_p(:root_object_id, dotlrn_users.user_id, 'admin') as site_wide_admin_p
+ from dotlrn_users
+ where dotlrn_users.type = :type
+ and (
+ lower(dotlrn_users.last_name) like lower('%' || :search_text || '%')
+ or lower(dotlrn_users.first_names) like lower('%' || :search_text || '%')
+ or lower(dotlrn_users.email) like lower('%' || :search_text || '%')
+ )
+ order by dotlrn_users.last_name
+
+
+
+
+
+ select users.user_id,
+ persons.first_names,
+ persons.last_name,
+ parties.email,
+ 'f' as guest_p,
+ acs_permission__permission_p(:root_object_id, users.user_id, 'admin') as site_wide_admin_p
+ from parties,
+ users,
+ persons,
+ acs_rels,
+ membership_rels
+ where parties.party_id = users.user_id
+ and member_state not in ('banned','deleted','rejected')
+ and users.user_id = persons.person_id
+ and persons.person_id = acs_rels.object_id_two
+ and acs_rels.object_id_one = acs__magic_object_id('registered_users')
+ and acs_rels.rel_id = membership_rels.rel_id
+ and users.email_verified_p = 't'
+ and not exists (select 1
+ from acs_rels a,
+ dotlrn_user_types
+ where a.object_id_one = dotlrn_user_types.group_id
+ and a.object_id_two = acs_rels.object_id_two)
+ and (
+ lower(persons.last_name) like lower('%' || :search_text || '%')
+ or lower(persons.first_names) like lower('%' || :search_text || '%')
+ or lower(parties.email) like lower('%' || :search_text || '%')
+ )
+ order by persons.last_name
+
+
+
+
+
+ select users.user_id,
+ persons.first_names,
+ persons.last_name,
+ parties.email,
+ 'f' as guest_p,
+ acs_permission__permission_p(:root_object_id, users.user_id, 'admin') as site_wide_admin_p
+ from parties,
+ users,
+ persons,
+ acs_rels,
+ membership_rels
+ where parties.party_id = users.user_id
+ and users.user_id = persons.person_id
+ and persons.person_id = acs_rels.object_id_two
+ and acs_rels.object_id_one = acs__magic_object_id('registered_users')
+ and acs_rels.rel_id = membership_rels.rel_id
+ and membership_rels.member_state = 'banned'
+ and (
+ lower(persons.last_name) like lower('%' || :search_text || '%')
+ or lower(persons.first_names) like lower('%' || :search_text || '%')
+ or lower(parties.email) like lower('%' || :search_text || '%')
+ )
+ order by persons.last_name
+
+
+
+
Index: openacs-4/packages/dotlrn-admin/www/admin/users-chunk-large.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-admin/www/admin/users-chunk-large.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-admin/www/admin/users-chunk-large.adp 20 Aug 2004 14:44:22 -0000 1.1
@@ -0,0 +1,40 @@
+<%
+
+ #
+ # Copyright (C) 2001, 2002 MIT
+ #
+ # This file is part of dotLRN.
+ #
+ # dotLRN is free software; you can redistribute it and/or modify it under the
+ # terms of the GNU General Public License as published by the Free Software
+ # Foundation; either version 2 of the License, or (at your option) any later
+ # version.
+ #
+ # dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY
+ # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+ # FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+ # details.
+ #
+
+%>
+
+
+
+
+
+
+
+
+
+
+
+
+
Index: openacs-4/packages/dotlrn-admin/www/admin/users-chunk-large.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-admin/www/admin/users-chunk-large.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-admin/www/admin/users-chunk-large.tcl 20 Aug 2004 14:44:22 -0000 1.1
@@ -0,0 +1,91 @@
+#
+# Copyright (C) 2001, 2002 MIT
+#
+# This file is part of dotLRN.
+#
+# dotLRN is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+# FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+# details.
+#
+
+ad_page_contract {
+ @author yon (yon@openforce.net)
+ @creation-date 2002-01-30
+ @version $Id: users-chunk-large.tcl,v 1.1 2004/08/20 14:44:22 andrewg Exp $
+} -query {
+ {search_text ""}
+} -properties {
+ user_id:onevalue
+ users:multirow
+}
+
+if {![exists_and_not_null type]} {
+ set type admin
+}
+
+if {![exists_and_not_null referer]} {
+ set referer "[dotlrn::get_admin_url]/users"
+}
+
+set user_id [ad_conn user_id]
+
+form create user_search
+
+element create user_search search_text \
+ -label [_ dotlrn.Search] \
+ -datatype text \
+ -widget text \
+ -value $search_text
+
+element create user_search type \
+ -label [_ dotlrn.Type] \
+ -datatype text \
+ -widget hidden \
+ -value $type
+
+element create user_search referer \
+ -label [_ dotlrn.Referer] \
+ -datatype text \
+ -widget hidden \
+ -value $referer
+
+if {[form is_valid user_search]} {
+ form get_values user_search search_text referer
+
+ set user_id [ad_conn user_id]
+ set dotlrn_package_id [dotlrn::get_package_id]
+ set root_object_id [acs_magic_object security_context_root]
+ set i 1
+
+ if {[string equal $type deactivated] == 1} {
+ db_multirow users select_deactivated_users {} {
+ set users:${i}(access_level) Limited
+ incr i
+ }
+ } elseif {[string equal $type pending] == 1} {
+ db_multirow users select_non_dotlrn_users {} {
+ set users:${i}(access_level) N/A
+ incr i
+ }
+ } else {
+ db_multirow users select_dotlrn_users {} {
+ if {[dotlrn::user_can_browse_p -user_id $user_id]} {
+ set users:${i}(access_level) Full
+ } else {
+ set users:${i}(access_level) Limited
+ }
+ incr i
+ }
+ }
+} else {
+ multirow create users dummy
+}
+
+ad_return_template
+
Index: openacs-4/packages/dotlrn-admin/www/admin/users-chunk-medium-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-admin/www/admin/users-chunk-medium-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-admin/www/admin/users-chunk-medium-oracle.xql 20 Aug 2004 14:44:22 -0000 1.1
@@ -0,0 +1,142 @@
+
+
+
+ oracle8.1.6
+
+
+
+ select dotlrn_users.user_id,
+ dotlrn_users.first_names,
+ dotlrn_users.last_name,
+ dotlrn_users.email,
+ dotlrn_privacy.guest_p(dotlrn_users.user_id) as guest_p,
+ acs_permission.permission_p(:root_object_id, dotlrn_users.user_id, 'admin') as site_wide_admin_p
+ from dotlrn_users
+ where dotlrn_users.type = :type
+ and upper(substr(dotlrn_users.last_name, 1, 1)) = :section
+ order by dotlrn_users.last_name
+
+
+
+
+
+ select dotlrn_users.user_id,
+ dotlrn_users.first_names,
+ dotlrn_users.last_name,
+ dotlrn_users.email,
+ dotlrn_privacy.guest_p(dotlrn_users.user_id) as guest_p,
+ acs_permission.permission_p(:root_object_id, dotlrn_users.user_id, 'admin') as site_wide_admin_p
+ from dotlrn_users
+ where dotlrn_users.type = :type
+ and upper(substr(dotlrn_users.last_name, 1, 1)) not in ('[join $dimension_list "\', \'"]')
+ order by dotlrn_users.last_name
+
+
+
+
+
+ select users.user_id,
+ persons.first_names,
+ persons.last_name,
+ parties.email,
+ 'f' as guest_p,
+ acs_permission.permission_p(:root_object_id, users.user_id, 'admin') as site_wide_admin_p
+ from parties,
+ users,
+ persons,
+ acs_rels,
+ membership_rels
+ where parties.party_id = users.user_id
+ and member_state not in ('banned','deleted','rejected')
+ and users.user_id = persons.person_id
+ and persons.person_id = acs_rels.object_id_two
+ and acs_rels.object_id_one = acs.magic_object_id('registered_users')
+ and acs_rels.rel_id = membership_rels.rel_id
+ and users.email_verified_p = 't'
+ and not exists (select 1
+ from acs_rels a,
+ dotlrn_user_types
+ where a.object_id_one = dotlrn_user_types.group_id
+ and a.object_id_two = acs_rels.object_id_two)
+ and upper(substr(persons.last_name, 1, 1)) = :section
+ order by persons.last_name
+
+
+
+
+
+ select users.user_id,
+ persons.first_names,
+ persons.last_name,
+ parties.email,
+ 'f' as guest_p,
+ acs_permission.permission_p(:root_object_id, users.user_id, 'admin') as site_wide_admin_p
+ from parties,
+ users,
+ persons,
+ acs_rels,
+ membership_rels
+ where parties.party_id = users.user_id
+ and users.user_id = persons.person_id
+ and persons.person_id = acs_rels.object_id_two
+ and acs_rels.rel_id = membership_rels.rel_id
+ and membership_rels.member_state = 'approved'
+ and not exists (select 1
+ from acs_rels a,
+ dotlrn_user_types
+ where a.object_id_one = dotlrn_user_types.group_id
+ and a.object_id_two = acs_rels.object_id_two)
+ and upper(substr(person.last_name, 1, 1)) not in ('[join $dimension_list "\', \'"]')
+ order by persons.last_name
+
+
+
+
+
+ select users.user_id,
+ persons.first_names,
+ persons.last_name,
+ parties.email,
+ 'f' as guest_p,
+ acs_permission.permission_p(:root_object_id, users.user_id, 'admin') as site_wide_admin_p
+ from parties,
+ users,
+ persons,
+ acs_rels,
+ membership_rels
+ where parties.party_id = users.user_id
+ and users.user_id = persons.person_id
+ and persons.person_id = acs_rels.object_id_two
+ and acs_rels.object_id_one = acs.magic_object_id('registered_users')
+ and acs_rels.rel_id = membership_rels.rel_id
+ and membership_rels.member_state = 'banned'
+ and upper(substr(persons.last_name, 1, 1)) = :section
+ order by persons.last_name
+
+
+
+
+
+ select users.user_id,
+ persons.first_names,
+ persons.last_name,
+ parties.email,
+ 'f' as guest_p,
+ acs_permission.permission_p(:root_object_id, users.user_id, 'admin') as site_wide_admin_p
+ from parties,
+ users,
+ persons,
+ acs_rels,
+ membership_rels
+ where parties.party_id = users.user_id
+ and users.user_id = persons.person_id
+ and persons.person_id = acs_rels.object_id_two
+ and acs_rels.object_id_one = acs.magic_object_id('registered_users')
+ and acs_rels.rel_id = membership_rels.rel_id
+ and membership_rels.member_state = 'banned'
+ and upper(substr(person.last_name, 1, 1)) not in ('[join $dimension_list "\', \'"]')
+ order by persons.last_name
+
+
+
+
Index: openacs-4/packages/dotlrn-admin/www/admin/users-chunk-medium-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-admin/www/admin/users-chunk-medium-postgresql.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-admin/www/admin/users-chunk-medium-postgresql.xql 20 Aug 2004 14:44:22 -0000 1.1
@@ -0,0 +1,142 @@
+
+
+
+ postgresql7.1
+
+
+
+ select dotlrn_users.user_id,
+ dotlrn_users.first_names,
+ dotlrn_users.last_name,
+ dotlrn_users.email,
+ dotlrn_privacy__guest_p(dotlrn_users.user_id) as guest_p,
+ acs_permission__permission_p(:root_object_id, dotlrn_users.user_id, 'admin') as site_wide_admin_p
+ from dotlrn_users
+ where dotlrn_users.type = :type
+ and upper(substr(dotlrn_users.last_name, 1, 1)) = :section
+ order by dotlrn_users.last_name
+
+
+
+
+
+ select dotlrn_users.user_id,
+ dotlrn_users.first_names,
+ dotlrn_users.last_name,
+ dotlrn_users.email,
+ dotlrn_privacy__guest_p(dotlrn_users.user_id) as guest_p,
+ acs_permission__permission_p(:root_object_id, dotlrn_users.user_id, 'admin') as site_wide_admin_p
+ from dotlrn_users
+ where dotlrn_users.type = :type
+ and upper(substr(dotlrn_users.last_name, 1, 1)) not in ('[join $dimension_list "\', \'"]')
+ order by dotlrn_users.last_name
+
+
+
+
+
+ select users.user_id,
+ persons.first_names,
+ persons.last_name,
+ parties.email,
+ 'f' as guest_p,
+ acs_permission__permission_p(:root_object_id, users.user_id, 'admin') as site_wide_admin_p
+ from parties,
+ users,
+ persons,
+ acs_rels,
+ membership_rels
+ where parties.party_id = users.user_id
+ and member_state not in ('banned','deleted','rejected')
+ and users.user_id = persons.person_id
+ and persons.person_id = acs_rels.object_id_two
+ and acs_rels.object_id_one = acs__magic_object_id('registered_users')
+ and acs_rels.rel_id = membership_rels.rel_id
+ and users.email_verified_p = 't'
+ and not exists (select 1
+ from acs_rels a,
+ dotlrn_user_types
+ where a.object_id_one = dotlrn_user_types.group_id
+ and a.object_id_two = acs_rels.object_id_two)
+ and upper(substr(persons.last_name, 1, 1)) = :section
+ order by persons.last_name
+
+
+
+
+
+ select users.user_id,
+ persons.first_names,
+ persons.last_name,
+ parties.email,
+ 'f' as guest_p,
+ acs_permission__permission_p(:root_object_id, users.user_id, 'admin') as site_wide_admin_p
+ from parties,
+ users,
+ persons,
+ acs_rels,
+ membership_rels
+ where parties.party_id = users.user_id
+ and users.user_id = persons.person_id
+ and persons.person_id = acs_rels.object_id_two
+ and acs_rels.rel_id = membership_rels.rel_id
+ and membership_rels.member_state = 'approved'
+ and not exists (select 1
+ from acs_rels a,
+ dotlrn_user_types
+ where a.object_id_one = dotlrn_user_types.group_id
+ and a.object_id_two = acs_rels.object_id_two)
+ and upper(substr(person.last_name, 1, 1)) not in ('[join $dimension_list "\', \'"]')
+ order by persons.last_name
+
+
+
+
+
+ select users.user_id,
+ persons.first_names,
+ persons.last_name,
+ parties.email,
+ 'f' as guest_p,
+ acs_permission__permission_p(:root_object_id, users.user_id, 'admin') as site_wide_admin_p
+ from parties,
+ users,
+ persons,
+ acs_rels,
+ membership_rels
+ where parties.party_id = users.user_id
+ and users.user_id = persons.person_id
+ and persons.person_id = acs_rels.object_id_two
+ and acs_rels.object_id_one = acs__magic_object_id('registered_users')
+ and acs_rels.rel_id = membership_rels.rel_id
+ and membership_rels.member_state = 'banned'
+ and upper(substr(persons.last_name, 1, 1)) = :section
+ order by persons.last_name
+
+
+
+
+
+ select users.user_id,
+ persons.first_names,
+ persons.last_name,
+ parties.email,
+ 'f' as guest_p,
+ acs_permission__permission_p(:root_object_id, users.user_id, 'admin') as site_wide_admin_p
+ from parties,
+ users,
+ persons,
+ acs_rels,
+ membership_rels
+ where parties.party_id = users.user_id
+ and users.user_id = persons.person_id
+ and persons.person_id = acs_rels.object_id_two
+ and acs_rels.object_id_one = acs__magic_object_id('registered_users')
+ and acs_rels.rel_id = membership_rels.rel_id
+ and membership_rels.member_state = 'banned'
+ and upper(substr(person.last_name, 1, 1)) not in ('[join $dimension_list "\', \'"]')
+ order by persons.last_name
+
+
+
+
Index: openacs-4/packages/dotlrn-admin/www/admin/users-chunk-medium.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-admin/www/admin/users-chunk-medium.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-admin/www/admin/users-chunk-medium.adp 20 Aug 2004 14:44:22 -0000 1.1
@@ -0,0 +1,25 @@
+<%
+
+ #
+ # Copyright (C) 2001, 2002 MIT
+ #
+ # This file is part of dotLRN.
+ #
+ # dotLRN is free software; you can redistribute it and/or modify it under the
+ # terms of the GNU General Public License as published by the Free Software
+ # Foundation; either version 2 of the License, or (at your option) any later
+ # version.
+ #
+ # dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY
+ # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+ # FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+ # details.
+ #
+
+%>
+
+@control_bar;noquote@
+
+
+
+
Index: openacs-4/packages/dotlrn-admin/www/admin/users-chunk-medium.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-admin/www/admin/users-chunk-medium.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-admin/www/admin/users-chunk-medium.tcl 20 Aug 2004 14:44:22 -0000 1.1
@@ -0,0 +1,84 @@
+#
+# Copyright (C) 2001, 2002 MIT
+#
+# This file is part of dotLRN.
+#
+# dotLRN is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+# FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+# details.
+#
+
+ad_page_contract {
+ @author yon (yon@openforce.net)
+ @creation-date 2002-01-30
+ @version $Id: users-chunk-medium.tcl,v 1.1 2004/08/20 14:44:22 andrewg Exp $
+} -query {
+ {section A}
+} -properties {
+ user_id:onevalue
+ control_bar:onevalue
+ users:multirow
+}
+
+set user_id [ad_conn user_id]
+set dotlrn_package_id [dotlrn::get_package_id]
+set root_object_id [acs_magic_object security_context_root]
+
+if {![exists_and_not_null type]} {
+ set type admin
+}
+
+if {![exists_and_not_null referer]} {
+ set referer "[dotlrn::get_admin_url]/users"
+}
+
+set dimension_list {A B C D E F G H I J K L M N O P Q R S T U V W X Y Z}
+foreach dimension $dimension_list {
+ lappend dimensions [list $dimension $dimension {}]
+}
+lappend dimensions [list Other Other {}]
+
+set control_bar [portal::dimensional -no_bars [list [list section {} $section $dimensions]]]
+
+set i 1
+if {[string equal $type deactivated] == 1} {
+ set query select_deactivated_users
+ if {[string match Other $section]} {
+ append query "_other"
+ }
+ db_multirow users $query {} {
+ set users:${i}(access_level) Limited
+ incr i
+ }
+} elseif {[string equal $type pending] == 1} {
+ set query select_non_dotlrn_users
+ if {[string match Other $section]} {
+ append query "_other"
+ }
+ db_multirow users $query {} {
+ set users:${i}(access_level) N/A
+ incr i
+ }
+} else {
+ set query select_dotlrn_users
+ if {[string match Other $section]} {
+ append query "_other"
+ }
+ db_multirow users $query {} {
+ if {[dotlrn::user_can_browse_p -user_id $user_id]} {
+ set users:${i}(access_level) Full
+ } else {
+ set users:${i}(access_level) Limited
+ }
+ incr i
+ }
+}
+
+ad_return_template
+
Index: openacs-4/packages/dotlrn-admin/www/admin/users-chunk-small-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-admin/www/admin/users-chunk-small-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-admin/www/admin/users-chunk-small-oracle.xql 20 Aug 2004 14:44:22 -0000 1.1
@@ -0,0 +1,72 @@
+
+
+
+ oracle8.1.6
+
+
+
+ select dotlrn_users.user_id,
+ dotlrn_users.first_names,
+ dotlrn_users.last_name,
+ dotlrn_users.email,
+ dotlrn_privacy.guest_p(dotlrn_users.user_id) as guest_p,
+ acs_permission.permission_p(:root_object_id, dotlrn_users.user_id, 'admin') as site_wide_admin_p
+ from dotlrn_users
+ where dotlrn_users.type = :type
+ order by dotlrn_users.last_name
+
+
+
+
+
+ select users.user_id,
+ persons.first_names,
+ persons.last_name,
+ parties.email,
+ 'f' as guest_p,
+ acs_permission.permission_p(:root_object_id, users.user_id, 'admin') as site_wide_admin_p, member_state
+ from parties,
+ users,
+ persons,
+ acs_rels,
+ membership_rels
+ where parties.party_id = users.user_id
+ and member_state not in ('banned','deleted','rejected')
+ and users.user_id = persons.person_id
+ and persons.person_id = acs_rels.object_id_two
+ and acs_rels.object_id_one = acs.magic_object_id('registered_users')
+ and acs_rels.rel_id = membership_rels.rel_id
+ and users.email_verified_p = 't'
+ and not exists (select 1
+ from acs_rels a,
+ dotlrn_user_types
+ where a.object_id_one = dotlrn_user_types.group_id
+ and a.object_id_two = acs_rels.object_id_two)
+ order by persons.last_name
+
+
+
+
+
+ select users.user_id,
+ persons.first_names,
+ persons.last_name,
+ parties.email,
+ 'f' as guest_p,
+ acs_permission.permission_p(:root_object_id, users.user_id, 'admin') as site_wide_admin_p
+ from parties,
+ users,
+ persons,
+ acs_rels,
+ membership_rels
+ where parties.party_id = users.user_id
+ and users.user_id = persons.person_id
+ and persons.person_id = acs_rels.object_id_two
+ and acs_rels.object_id_one = acs.magic_object_id('registered_users')
+ and acs_rels.rel_id = membership_rels.rel_id
+ and membership_rels.member_state = 'banned'
+ order by persons.last_name
+
+
+
+
Index: openacs-4/packages/dotlrn-admin/www/admin/users-chunk-small-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-admin/www/admin/users-chunk-small-postgresql.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-admin/www/admin/users-chunk-small-postgresql.xql 20 Aug 2004 14:44:22 -0000 1.1
@@ -0,0 +1,73 @@
+
+
+
+ postgresql7.1
+
+
+
+ select dotlrn_users.user_id,
+ dotlrn_users.first_names,
+ dotlrn_users.last_name,
+ dotlrn_users.email,
+ dotlrn_privacy__guest_p(dotlrn_users.user_id) as guest_p,
+ acs_permission__permission_p(:root_object_id,dotlrn_users.user_id, 'admin') as site_wide_admin_p
+ from dotlrn_users
+ where dotlrn_users.type = :type
+ order by dotlrn_users.last_name
+
+
+
+
+
+ select users.user_id,
+ persons.first_names,
+ persons.last_name,
+ parties.email,
+ 'f' as guest_p,
+ acs_permission__permission_p(:root_object_id, users.user_id, 'admin') as site_wide_admin_p,
+ member_state
+ from parties,
+ users,
+ persons,
+ acs_rels,
+ membership_rels
+ where parties.party_id = users.user_id
+ and member_state not in ('banned','deleted','rejected')
+ and users.user_id = persons.person_id
+ and persons.person_id = acs_rels.object_id_two
+ and acs_rels.object_id_one = acs__magic_object_id('registered_users')
+ and acs_rels.rel_id = membership_rels.rel_id
+ and users.email_verified_p = 't'
+ and not exists (select 1
+ from acs_rels a,
+ dotlrn_user_types
+ where a.object_id_one = dotlrn_user_types.group_id
+ and a.object_id_two = acs_rels.object_id_two)
+ order by persons.last_name
+
+
+
+
+
+ select users.user_id,
+ persons.first_names,
+ persons.last_name,
+ parties.email,
+ 'f' as guest_p,
+ acs_permission__permission_p(:root_object_id, users.user_id, 'admin') as site_wide_admin_p
+ from parties,
+ users,
+ persons,
+ acs_rels,
+ membership_rels
+ where parties.party_id = users.user_id
+ and users.user_id = persons.person_id
+ and persons.person_id = acs_rels.object_id_two
+ and acs_rels.object_id_one = acs__magic_object_id('registered_users')
+ and acs_rels.rel_id = membership_rels.rel_id
+ and membership_rels.member_state = 'banned'
+ order by persons.last_name
+
+
+
+
Index: openacs-4/packages/dotlrn-admin/www/admin/users-chunk-small.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-admin/www/admin/users-chunk-small.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-admin/www/admin/users-chunk-small.adp 20 Aug 2004 14:44:22 -0000 1.1
@@ -0,0 +1,21 @@
+<%
+
+ #
+ # Copyright (C) 2001, 2002 MIT
+ #
+ # This file is part of dotLRN.
+ #
+ # dotLRN is free software; you can redistribute it and/or modify it under the
+ # terms of the GNU General Public License as published by the Free Software
+ # Foundation; either version 2 of the License, or (at your option) any later
+ # version.
+ #
+ # dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY
+ # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+ # FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+ # details.
+ #
+
+%>
+
+
Index: openacs-4/packages/dotlrn-admin/www/admin/users-chunk-small.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-admin/www/admin/users-chunk-small.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-admin/www/admin/users-chunk-small.tcl 20 Aug 2004 14:44:22 -0000 1.1
@@ -0,0 +1,63 @@
+#
+# Copyright (C) 2001, 2002 MIT
+#
+# This file is part of dotLRN.
+#
+# dotLRN is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+# FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+# details.
+#
+
+ad_page_contract {
+ @author yon (yon@openforce.net)
+ @creation-date 2002-01-30
+ @version $Id: users-chunk-small.tcl,v 1.1 2004/08/20 14:44:22 andrewg Exp $
+} -query {
+} -properties {
+ user_id:onevalue
+ users:multirow
+}
+
+set user_id [ad_conn user_id]
+set dotlrn_package_id [dotlrn::get_package_id]
+set root_object_id [acs_magic_object security_context_root]
+
+if {![exists_and_not_null type]} {
+ set type admin
+}
+
+if {![exists_and_not_null referer]} {
+ set referer "[dotlrn::get_admin_url]/users"
+}
+
+# Currently, just present a list of dotLRN users
+set i 1
+if {[string equal $type deactivated] == 1} {
+ db_multirow users select_deactivated_users {} {
+ set users:${i}(access_level) Limited
+ incr i
+ }
+} elseif {[string equal $type pending] == 1} {
+ db_multirow users select_non_dotlrn_users {} {
+ set users:${i}(access_level) N/A
+ incr i
+ }
+} else {
+ db_multirow users select_dotlrn_users {} {
+ if {[dotlrn::user_can_browse_p -user_id $user_id]} {
+ set users:${i}(access_level) Full
+ } else {
+ set users:${i}(access_level) Limited
+ }
+ incr i
+ }
+}
+
+ad_return_template
+
Index: openacs-4/packages/dotlrn-admin/www/admin/users-chunk.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-admin/www/admin/users-chunk.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-admin/www/admin/users-chunk.adp 20 Aug 2004 14:44:22 -0000 1.1
@@ -0,0 +1,124 @@
+<%
+
+ #
+ # Copyright (C) 2001, 2002 MIT
+ #
+ # This file is part of dotLRN.
+ #
+ # dotLRN is free software; you can redistribute it and/or modify it under the
+ # terms of the GNU General Public License as published by the Free Software
+ # Foundation; either version 2 of the License, or (at your option) any later
+ # version.
+ #
+ # dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY
+ # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+ # FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+ # details.
+ #
+
+%>
+
+<%
+ # The structure of this table is determined by the type of user we
+ # are displaying. It doesn't make much sense to display access
+ # level, guest status, and admin status for pending users. Instead we
+ # will offer links to common actions.
+
+ # Note: There is some redundant logic inside the table and in
+ # other files that display access and guest status fields as N/A
+ # for pending users. Previous to the change, this page was
+ # displaying "Limited" and "Yes", respectively, which are wrong
+ # and confused our site administrator.
+ # The N/A logic is a failsafe in case these columns come back for
+ # some reason. aegrumet@mit.edu 2002-08-08.
+
+%>
+
+
+
+
+
+
+
+
Index: openacs-4/packages/dotlrn-admin/www/admin/users-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-admin/www/admin/users-chunk.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-admin/www/admin/users-chunk.tcl 20 Aug 2004 14:44:22 -0000 1.1
@@ -0,0 +1,35 @@
+#
+# Copyright (C) 2001, 2002 MIT
+#
+# This file is part of dotLRN.
+#
+# dotLRN is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+# FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+# details.
+#
+
+ad_page_contract {
+ @author yon (yon@openforce.net)
+ @creation-date 2002-01-30
+ @version $Id: users-chunk.tcl,v 1.1 2004/08/20 14:44:22 andrewg Exp $
+} -query {
+ {section ""}
+} -properties {
+ user_id:onevalue
+}
+
+set oacs_site_wide_admin_p [acs_user::site_wide_admin_p]
+set user_id [ad_conn user_id]
+
+if {![exists_and_not_null referer]} {
+ set referer "[dotlrn::get_admin_url]/users"
+}
+
+ad_return_template
+
Index: openacs-4/packages/dotlrn-admin/www/admin/users-deactivate.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-admin/www/admin/users-deactivate.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-admin/www/admin/users-deactivate.adp 20 Aug 2004 14:44:22 -0000 1.1
@@ -0,0 +1,32 @@
+<%
+
+ #
+ # Copyright (C) 2001, 2002 MIT
+ #
+ # This file is part of dotLRN.
+ #
+ # dotLRN is free software; you can redistribute it and/or modify it under the
+ # terms of the GNU General Public License as published by the Free Software
+ # Foundation; either version 2 of the License, or (at your option) any later
+ # version.
+ #
+ # dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY
+ # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+ # FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+ # details.
+ #
+
+%>
+
+
+#dotlrn.Deactivate_Users#
+@context_bar@
+
+
+ #dotlrn.lt_Are_you_sure_you_want#
+
+
+
+
+
+
Index: openacs-4/packages/dotlrn-admin/www/admin/users-deactivate.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-admin/www/admin/users-deactivate.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-admin/www/admin/users-deactivate.tcl 20 Aug 2004 14:44:22 -0000 1.1
@@ -0,0 +1,55 @@
+#
+# Copyright (C) 2001, 2002 MIT
+#
+# This file is part of dotLRN.
+#
+# dotLRN is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+# FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+# details.
+#
+
+# dotlrn/www/admin/users-deactivate.tcl
+
+ad_page_contract {
+ Deactivate a set of users.
+
+ @author yon (yon@openforce.net)
+ @creation-date 2002-02-14
+ @version $Id: users-deactivate.tcl,v 1.1 2004/08/20 14:44:22 andrewg Exp $
+} -query {
+ users
+ {referer "users-search"}
+} -properties {
+ context_bar:onevalue
+}
+
+set context_bar [list [list users [_ dotlrn.Users]] [list users-search [_ dotlrn.User_Search]] [_ dotlrn.Deactivate_Users]]
+
+form create confirm_deactivate
+
+element create confirm_deactivate users \
+ -label " " \
+ -datatype text \
+ -widget hidden \
+ -value $users
+
+if {[form is_valid confirm_deactivate]} {
+ form get_values confirm_deactivate \
+ users
+
+ foreach user $users {
+ acs_user::ban -user_id $user
+ }
+
+ ad_returnredirect $referer
+ ad_script_abort
+}
+
+ad_return_template
+
Index: openacs-4/packages/dotlrn-admin/www/admin/users-delete.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-admin/www/admin/users-delete.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-admin/www/admin/users-delete.adp 20 Aug 2004 14:44:22 -0000 1.1
@@ -0,0 +1,32 @@
+<%
+
+ #
+ # Copyright (C) 2001, 2002 MIT
+ #
+ # This file is part of dotLRN.
+ #
+ # dotLRN is free software; you can redistribute it and/or modify it under the
+ # terms of the GNU General Public License as published by the Free Software
+ # Foundation; either version 2 of the License, or (at your option) any later
+ # version.
+ #
+ # dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY
+ # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+ # FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+ # details.
+ #
+
+%>
+
+
+#dotlrn.Nuke_Users#
+@context_bar@
+
+
+ #dotlrn.lt_Are_you_sure_you_want_nuke_users#
+
+
+
+
+
+
Index: openacs-4/packages/dotlrn-admin/www/admin/users-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-admin/www/admin/users-delete.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-admin/www/admin/users-delete.tcl 20 Aug 2004 14:44:22 -0000 1.1
@@ -0,0 +1,59 @@
+#
+# Copyright (C) 2001, 2002 MIT
+#
+# This file is part of dotLRN.
+#
+# dotLRN is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+# FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+# details.
+#
+
+# dotlrn/www/admin/users-delete.tcl
+
+ad_page_contract {
+ Nuke a set of users.
+
+ @author yon (yon@openforce.net)
+ @creation-date 2002-02-14
+ @version $Id: users-delete.tcl,v 1.1 2004/08/20 14:44:22 andrewg Exp $
+} -query {
+ users
+ {referer "users-search"}
+} -properties {
+ context_bar:onevalue
+}
+
+set context_bar [list [list users [_ dotlrn.Users]] [list users-search [_ dotlrn.User_Search]] [_ dotlrn.Nuke_Users]]
+
+form create confirm_delete
+
+element create confirm_delete users \
+ -label " " \
+ -datatype text \
+ -widget hidden \
+ -value $users
+
+element create confirm_delete referer \
+ -label " " \
+ -datatype text \
+ -widget hidden \
+ -value $referer
+
+if {[form is_valid confirm_delete]} {
+ form get_values confirm_delete \
+ users
+
+ dotlrn::remove_users_completely -users $users
+
+ ad_returnredirect $referer
+ ad_script_abort
+}
+
+ad_return_template
+
Index: openacs-4/packages/dotlrn-admin/www/admin/users-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-admin/www/admin/users-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-admin/www/admin/users-oracle.xql 20 Aug 2004 14:44:22 -0000 1.1
@@ -0,0 +1,35 @@
+
+
+
+ oracle8.1.6
+
+
+
+ select count(*)
+ from (select acs_rels.object_id_two
+ from acs_rels, membership_rels
+ where acs_rels.object_id_one = (select acs.magic_object_id('registered_users') from dual)
+ and acs_rels.rel_id = membership_rels.rel_id
+ and membership_rels.member_state
+ not in ('banned','deleted','rejected')
+ minus
+ select acs_rels.object_id_two
+ from acs_rels, dotlrn_user_types
+ where acs_rels.object_id_one = dotlrn_user_types.group_id)
+
+
+
+
+
+ select count(*)
+ from persons,
+ acs_rels,
+ membership_rels
+ where acs_rels.object_id_one = (select acs.magic_object_id('registered_users') from dual)
+ and acs_rels.object_id_two = persons.person_id
+ and acs_rels.rel_id = membership_rels.rel_id
+ and membership_rels.member_state = 'banned'
+
+
+
+
Index: openacs-4/packages/dotlrn-admin/www/admin/users-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-admin/www/admin/users-postgresql.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-admin/www/admin/users-postgresql.xql 20 Aug 2004 14:44:22 -0000 1.1
@@ -0,0 +1,36 @@
+
+
+
+ postgresql7.1
+
+
+
+ select count(*)
+ from (select acs_rels.object_id_two
+ from acs_rels, membership_rels
+ where acs_rels.object_id_one = (select acs__magic_object_id('registered_users') from dual)
+ and acs_rels.rel_id = membership_rels.rel_id
+ and membership_rels.member_state
+ not in ('banned','deleted','rejected')
+ and acs_rels.object_id_two not in (
+ select acs_rels.object_id_two
+ from acs_rels,
+ dotlrn_user_types
+ where acs_rels.object_id_one = dotlrn_user_types.group_id)) as foo
+
+
+
+
+
+ select count(*)
+ from persons,
+ acs_rels,
+ membership_rels
+ where acs_rels.object_id_one = (select acs__magic_object_id('registered_users') from dual)
+ and acs_rels.object_id_two = persons.person_id
+ and acs_rels.rel_id = membership_rels.rel_id
+ and membership_rels.member_state = 'banned'
+
+
+
+
Index: openacs-4/packages/dotlrn-admin/www/admin/users-search.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-admin/www/admin/users-search.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-admin/www/admin/users-search.adp 20 Aug 2004 14:44:22 -0000 1.1
@@ -0,0 +1,100 @@
+<%
+
+ #
+ # Copyright (C) 2001, 2002 MIT
+ #
+ # This file is part of dotLRN.
+ #
+ # dotLRN is free software; you can redistribute it and/or modify it under the
+ # terms of the GNU General Public License as published by the Free Software
+ # Foundation; either version 2 of the License, or (at your option) any later
+ # version.
+ #
+ # dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY
+ # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+ # FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+ # details.
+ #
+
+%>
+
+
+#dotlrn.Users_Search#
+@context_bar;noquote@
+
+
+
+
+
+
+
+
+
+
+
+
+
+ #dotlrn.lt_Your_search_returned_#
+
+
+
+
+
+
Index: openacs-4/packages/dotlrn-admin/www/admin/users-search.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-admin/www/admin/users-search.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-admin/www/admin/users-search.tcl 20 Aug 2004 14:44:22 -0000 1.1
@@ -0,0 +1,270 @@
+#
+# Copyright (C) 2001, 2002 MIT
+#
+# This file is part of dotLRN.
+#
+# dotLRN is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+# FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+# details.
+#
+
+ad_page_contract {
+ Replicate User Management Page
+
+ @author yon (yon@openforce.net)
+ @creation-date 2002-02-10
+ @version $Id: users-search.tcl,v 1.1 2004/08/20 14:44:22 andrewg Exp $
+} -query {
+ {type "any"}
+ {can_browse_p "any"}
+ {guest_p "any"}
+ {join_criteria "and"}
+ {n_users 0}
+ {action "none"}
+} -properties {
+ context_bar:onevalue
+ is_request:onevalue
+ n_users:onevalue
+}
+
+set context_bar [list [list users [_ dotlrn.Users]] [_ dotlrn.User_Search]]
+
+set package_id [ad_conn package_id]
+
+form create user_search_results
+
+element create user_search_results selected_users \
+ -label " " \
+ -datatype text \
+ -widget checkbox
+
+element create user_search_results search_action \
+ -label "[_ dotlrn.Action]" \
+ -datatype text \
+ -widget radio \
+ -options [list \
+ [list [_ dotlrn.None] none] \
+ [list [_ dotlrn.Spam_] spam] \
+ [list [_ dotlrn.Add_to_group_] add_to_community] \
+ [list [_ dotlrn.Deactivate_] deactivate] \
+ [list [_ dotlrn.Nuke_] delete] \
+ ] \
+ -value $action
+
+if {[form is_valid user_search_results]} {
+ form get_values user_search_results search_action
+
+ set selected_users [element get_values user_search_results selected_users]
+
+ switch -exact $search_action {
+ "spam" {
+ ad_returnredirect "users-spam?[export_vars {{users $selected_users}}]"
+ }
+ "add_to_community" {
+ ad_returnredirect "users-add-to-community?[export_vars {{users $selected_users}}]"
+ }
+ "deactivate" {
+ ad_returnredirect "users-deactivate?[export_vars {{users $selected_users}}]"
+ }
+ "delete" {
+ ad_returnredirect "users-delete?[export_vars {{users $selected_users}}]"
+ }
+ }
+}
+
+form create user_search
+
+element create user_search name \
+ -label "[_ dotlrn.Name__Email]" \
+ -datatype text \
+ -widget text \
+ -html {size 30} \
+ -optional
+
+element create user_search id \
+ -label "[_ dotlrn.ID_1]" \
+ -datatype text \
+ -widget text \
+ -html {size 10} \
+ -optional
+
+element create user_search type \
+ -label "[_ dotlrn.Type]" \
+ -datatype text \
+ -widget select \
+ -options "[list [_ dotlrn.Any] any] [dotlrn::get_user_types_as_options]" \
+ -value $type
+
+element create user_search can_browse_p \
+ -label "[_ dotlrn.Access_Level]" \
+ -datatype text \
+ -widget select \
+ -options [list [list [_ dotlrn.Any] any] [list [_ dotlrn.Limited] 0] [list [_ dotlrn.Full] 1]] \
+ -value $can_browse_p
+
+element create user_search guest_p \
+ -label "[_ dotlrn.Guest_1]" \
+ -datatype text \
+ -widget select \
+ -options [list [list [_ dotlrn.Any] any] [list [_ dotlrn.Yes] t] [list [_ dotlrn.No] f]] \
+ -value $guest_p
+
+element create user_search role \
+ -label "[_ dotlrn.Role]" \
+ -datatype text \
+ -widget checkbox \
+ -options [dotlrn_community::get_all_roles_as_options] \
+ -optional
+
+element create user_search last_visit_greater \
+ -label "[_ dotlrn.lt_Last_Visit_Over_in_da]" \
+ -datatype text \
+ -widget text \
+ -html {size 10} \
+ -optional
+
+element create user_search last_visit_less \
+ -label "[_ dotlrn.lt_Last_Visit_Within_in_]" \
+ -datatype text \
+ -widget text \
+ -html {size 10} \
+ -optional
+
+element create user_search join_criteria \
+ -label "[_ dotlrn.lt_Join_the_above_criter_1]" \
+ -datatype text \
+ -widget select \
+ -options [list [list [_ dotlrn.And] and] [list [_ dotlrn.Or] or]] \
+ -value $join_criteria
+
+set is_request [form is_request user_search]
+
+if {[form is_valid user_search]} {
+ form get_values user_search \
+ id type can_browse_p guest_p last_visit_greater last_visit_less name join_criteria
+
+ if {([string equal "and" $join_criteria] == 0) && ([string equal "or" $join_criteria] == 0)} {
+ ad_return_error \
+ "[_ dotlrn.lt_There_was_a_bug_in_th]" \
+ "[_ dotlrn.lt_There_was_a_bug_in_th_1]"
+ }
+
+ set context_bar [list [list users [_ dotlrn.Users]] [list users-search [_ dotlrn.User_Search]] [_ dotlrn.Results]]
+
+ set tables [list "dotlrn_users"]
+ set cols [list \
+ "distinct dotlrn_users.user_id" \
+ "dotlrn_users.id" \
+ "dotlrn_users.first_names" \
+ "dotlrn_users.last_name" \
+ "dotlrn_users.email" \
+ "dotlrn_users.type" \
+ ]
+ set wheres [list]
+
+ if {![empty_string_p $name]} {
+ lappend wheres "(lower(dotlrn_users.last_name) like lower('%' || :name || '%') or lower(dotlrn_users.first_names) like lower('%' || :name || '%') or lower(dotlrn_users.email) like lower('%' || :name || '%'))"
+ }
+
+ if {![empty_string_p $id]} {
+ lappend wheres "(lower(dotlrn_users.id) like lower('%' || :id || '%'))"
+ }
+
+ if {![empty_string_p $type]} {
+ if {[string equal "any" $type] == 1} {
+ lappend wheres "dotlrn_users.type in (\'[join [dotlrn::get_user_types] \',\']\')"
+ } else {
+ lappend wheres "dotlrn_users.type = :type"
+ }
+ }
+
+ switch -exact $can_browse_p {
+ any {}
+ 1 {
+ lappend wheres "exists (select 1 from acs_permissions where object_id = :package_id and grantee_id = dotlrn_users.user_id and privilege = 'dotlrn_browse')"
+ }
+ 0 {
+ lappend wheres "not exists (select 1 from acs_permissions where object_id = :package_id and grantee_id = dotlrn_users.user_id and privilege = 'dotlrn_browse')"
+ }
+ }
+
+ switch -exact $guest_p {
+ any {}
+ t {
+ lappend wheres "exists (select 1 from dotlrn_guest_status where dotlrn_guest_status.user_id = dotlrn_users.user_id and guest_p = 't')"
+ }
+ f {
+ lappend wheres "exists (select 1 from dotlrn_guest_status where dotlrn_guest_status.user_id = dotlrn_users.user_id and guest_p = 'f')"
+ }
+ }
+
+ if {![empty_string_p $last_visit_greater]} {
+ if {[lsearch -exact $tables "users"] == -1} {
+ lappend tables "users"
+ }
+ lappend wheres "(dotlrn_users.user_id = users.user_id and users.last_visit <= (sysdate - :last_visit_greater))"
+ }
+
+ if {![empty_string_p $last_visit_less]} {
+ if {[lsearch -exact $tables "users"] == -1} {
+ lappend tables "users"
+ }
+ lappend wheres "(dotlrn_users.user_id = users.user_id and users.last_visit >= (sysdate - :last_visit_less))"
+ }
+
+ set role_list [element get_values user_search role]
+ set role_list_length [llength $role_list]
+
+ if {$role_list_length} {
+ if {[lsearch -exact $tables "acs_rels"] == -1} {
+ lappend tables "acs_rels"
+ }
+ set in_clause "(dotlrn_users.user_id = acs_rels.object_id_two and acs_rels.rel_type in ("
+
+ set in_elements [list]
+ for {set i 0} {$i < $role_list_length} {incr i} {
+ set in_element__${i} [lindex $role_list $i]
+ lappend in_elements ":in_element__${i}"
+ }
+
+ append in_clause [join $in_elements ", "]
+ append in_clause "))"
+
+ lappend wheres $in_clause
+ }
+
+ set sql "select "
+ append sql [join $cols ", "]
+
+ append sql " from "
+ append sql [join $tables ", "]
+
+ if {[llength $wheres]} {
+ append sql " where "
+ append sql [join $wheres " $join_criteria "]
+ append sql "order by last_name, first_names"
+ }
+
+ set referer [ns_conn url]
+ set selected_users_options [list]
+ set selected_users_values [list]
+ db_foreach select_users $sql {
+ lappend selected_users_options [list "$last_name, $first_names ($email)" $user_id]
+ lappend selected_users_values $user_id
+ }
+
+ element set_properties user_search_results selected_users \
+ -options $selected_users_options \
+ -values $selected_users_values
+
+ set n_users [llength $selected_users_values]
+}
+
+ad_return_template
+
Index: openacs-4/packages/dotlrn-admin/www/admin/users-spam.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-admin/www/admin/users-spam.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-admin/www/admin/users-spam.adp 20 Aug 2004 14:44:22 -0000 1.1
@@ -0,0 +1,30 @@
+<%
+
+ #
+ # Copyright (C) 2001, 2002 MIT
+ #
+ # This file is part of dotLRN.
+ #
+ # dotLRN is free software; you can redistribute it and/or modify it under the
+ # terms of the GNU General Public License as published by the Free Software
+ # Foundation; either version 2 of the License, or (at your option) any later
+ # version.
+ #
+ # dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY
+ # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+ # FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+ # details.
+ #
+
+%>
+
+
+#dotlrn.Spam_Users#
+@context_bar@
+
+
+
+
+
+
+
Index: openacs-4/packages/dotlrn-admin/www/admin/users-spam.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-admin/www/admin/users-spam.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-admin/www/admin/users-spam.tcl 20 Aug 2004 14:44:22 -0000 1.1
@@ -0,0 +1,102 @@
+#
+# Copyright (C) 2001, 2002 MIT
+#
+# This file is part of dotLRN.
+#
+# dotLRN is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+# FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+# details.
+#
+
+# dotlrn/www/admin/users-spam.tcl
+
+ad_page_contract {
+ Spam a set of users.
+
+ @author yon (yon@openforce.net)
+ @creation-date 2002-02-14
+ @version $Id: users-spam.tcl,v 1.1 2004/08/20 14:44:22 andrewg Exp $
+} -query {
+ users
+ {referer "users-search"}
+} -properties {
+ context_bar:onevalue
+}
+
+set context_bar [list [list users [_ dotlrn.Users]] [list users-search [_ dotlrn.User_Search]] [_ dotlrn.Spam_Users]]
+
+set sender_id [ad_conn user_id]
+
+db_1row select_sender_info {
+ select parties.email as sender_email,
+ persons.first_names as sender_first_names,
+ persons.last_name as sender_last_name
+ from parties,
+ persons
+ where parties.party_id = :sender_id
+ and persons.person_id = :sender_id
+}
+
+form create spam_message
+
+element create spam_message users \
+ -label " " \
+ -datatype text \
+ -widget hidden \
+ -value $users
+
+element create spam_message from \
+ -label [_ dotlrn.From] \
+ -datatype text \
+ -widget text \
+ -html {size 60} \
+ -value $sender_email
+
+element create spam_message subject \
+ -label [_ dotlrn.Subject] \
+ -datatype text \
+ -widget text \
+ -html {size 60}
+
+element create spam_message message \
+ -label [_ dotlrn.Message] \
+ -datatype text \
+ -widget textarea \
+ -html {rows 10 cols 80 wrap soft}
+
+element create spam_message referer \
+ -label [_ dotlrn.Referer] \
+ -datatype text \
+ -widget hidden \
+ -value $referer
+
+if {[form is_valid spam_message]} {
+ form get_values spam_message \
+ users from subject message referer
+
+ # YON: should redirect and close the connection here so that the user
+ # doesn't have to wait for the emails to get sent out.
+
+ set message_values [list]
+ lappend message_values [list {} $from]
+
+ spam::send \
+ -recepients $users \
+ -from $from \
+ -real_from $sender_email \
+ -subject $subject \
+ -message $message \
+ -message_values $message_values
+
+ ad_returnredirect $referer
+ ad_script_abort
+}
+
+ad_return_template
+
Index: openacs-4/packages/dotlrn-admin/www/admin/users.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-admin/www/admin/users.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-admin/www/admin/users.adp 20 Aug 2004 14:44:22 -0000 1.1
@@ -0,0 +1,62 @@
+<%
+
+ #
+ # Copyright (C) 2001, 2002 MIT
+ #
+ # This file is part of dotLRN.
+ #
+ # dotLRN is free software; you can redistribute it and/or modify it under the
+ # terms of the GNU General Public License as published by the Free Software
+ # Foundation; either version 2 of the License, or (at your option) any later
+ # version.
+ #
+ # dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY
+ # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+ # FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+ # details.
+ #
+
+%>
+
+
+#dotlrn.Users#
+@context_bar;noquote@
+
+<% set referer "[dotlrn::get_admin_url]/users" %>
+
+[
+ #dotlrn.Create_A_New_User#
+ |
+ #dotlrn.Search_Users#
+ |
+ #dotlrn.Bulk_Upload#
+]
+
+
+
+
+
+
+
+
+
+@control_bar;noquote@
+
+
+
+
+
+
+
+
+
+
+
+
Index: openacs-4/packages/dotlrn-admin/www/admin/users.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-admin/www/admin/users.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-admin/www/admin/users.tcl 20 Aug 2004 14:44:22 -0000 1.1
@@ -0,0 +1,67 @@
+#
+# Copyright (C) 2001, 2002 MIT
+#
+# This file is part of dotLRN.
+#
+# dotLRN is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+# FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+# details.
+#
+
+ad_page_contract {
+ Displays the admin users page
+
+ @author yon (yon@openforce.net)
+ @creation-date 2002-01-30
+ @version $Id: users.tcl,v 1.1 2004/08/20 14:44:22 andrewg Exp $
+} -query {
+ {type "pending"}
+} -properties {
+ context_bar:onevalue
+ control_bar:onevalue
+ n_users:onevalue
+}
+
+set context_bar [_ dotlrn.Users]
+
+set dotlrn_roles [db_list_of_lists select_dotlrn_roles {
+ select dotlrn_user_types.type,
+ dotlrn_user_types.pretty_name || ' (' || (select count(*)
+ from dotlrn_users
+ where dotlrn_users.type = dotlrn_user_types.type) || ')',
+ ''
+ from dotlrn_user_types
+ order by dotlrn_user_types.pretty_name
+}]
+
+# The roles are stored as message keys in the database so we need to localize them
+# on the fly here
+set dotlrn_roles_localized [list]
+foreach role_pair $dotlrn_roles {
+ lappend dotlrn_roles_localized [list [lindex $role_pair 0] [lang::util::localize [lindex $role_pair 1]]]
+}
+
+set n_pending_users [db_string select_non_dotlrn_users_count {}]
+lappend dotlrn_roles_localized [list pending "[_ dotlrn.Pending] ($n_pending_users)" {}]
+
+set n_deactivated_users [db_string select_deactivated_users_count {}]
+lappend dotlrn_roles_localized [list deactivated "[_ dotlrn.Deactivated] ($n_deactivated_users)" {}]
+
+set control_bar [ad_dimensional [list [list type "[_ dotlrn.User_Type]:" $type $dotlrn_roles_localized]]]
+
+if {[string equal $type "deactivated"] == 1} {
+ set n_users $n_deactivated_users
+} elseif {[string equal $type "pending"] == 1} {
+ set n_users $n_pending_users
+} else {
+ set n_users [db_string select_dotlrn_users_count {}]
+}
+
+ad_return_template
+
Index: openacs-4/packages/dotlrn-admin/www/admin/users.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-admin/www/admin/users.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn-admin/www/admin/users.xql 20 Aug 2004 14:44:22 -0000 1.1
@@ -0,0 +1,13 @@
+
+
+
+
+
+
+ select count(*)
+ from dotlrn_users
+ where dotlrn_users.type = :type
+
+
+
+
