Index: openacs-4/packages/project-manager/www/add-edit-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/add-edit-2.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/project-manager/www/add-edit-2.tcl	30 Apr 2005 06:59:33 -0000	1.2
+++ openacs-4/packages/project-manager/www/add-edit-2.tcl	30 Apr 2005 07:17:46 -0000	1.3
@@ -39,7 +39,7 @@
 # the unique identifier for this package
 set package_id [ad_conn package_id]
 set subsite_id [ad_conn subsite_id]
-set user_id    [ad_maybe_redirect_for_registration]
+set user_id    [auth::require_login]
 
 set user_group_id [application_group::group_id_from_package_id \
                        -package_id $subsite_id]
Index: openacs-4/packages/project-manager/www/add-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/add-edit.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/project-manager/www/add-edit.tcl	30 Apr 2005 06:59:33 -0000	1.2
+++ openacs-4/packages/project-manager/www/add-edit.tcl	30 Apr 2005 07:17:46 -0000	1.3
@@ -36,7 +36,7 @@
 # --------------------------------------------------------------- #
 # the unique identifier for this package
 set package_id [ad_conn package_id]
-set user_id    [ad_maybe_redirect_for_registration]
+set user_id    [auth::require_login]
 
 # terminology
 set project_term    [parameter::get -parameter "ProjectName" -default "Project"]
Index: openacs-4/packages/project-manager/www/calendar-users-update.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/calendar-users-update.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/project-manager/www/calendar-users-update.tcl	30 Apr 2005 06:59:33 -0000	1.2
+++ openacs-4/packages/project-manager/www/calendar-users-update.tcl	30 Apr 2005 07:17:46 -0000	1.3
@@ -15,7 +15,7 @@
 } -errors {
 }
 
-set user_id [ad_maybe_redirect_for_registration]
+set user_id [auth::require_login]
 
 if {[empty_string_p party_id]} {
     set party_id [list $user_id]
Index: openacs-4/packages/project-manager/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/index.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/project-manager/www/index.tcl	30 Apr 2005 06:59:33 -0000	1.2
+++ openacs-4/packages/project-manager/www/index.tcl	30 Apr 2005 07:17:46 -0000	1.3
@@ -52,7 +52,7 @@
 
 # the unique identifier for this package
 set package_id [ad_conn package_id]
-set user_id    [ad_maybe_redirect_for_registration]
+set user_id    [auth::require_login]
 
 # permissions
 permission::require_permission -party_id $user_id -object_id $package_id -privilege read
Index: openacs-4/packages/project-manager/www/log-bulk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/log-bulk.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/project-manager/www/log-bulk.tcl	30 Apr 2005 06:59:33 -0000	1.2
+++ openacs-4/packages/project-manager/www/log-bulk.tcl	30 Apr 2005 07:17:46 -0000	1.3
@@ -19,7 +19,7 @@
 }
 
 set package_id [ad_conn package_id]
-set user_id [ad_maybe_redirect_for_registration]
+set user_id [auth::require_login]
 
 set title "Log time for multiple tasks"
 
Index: openacs-4/packages/project-manager/www/one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/one.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/project-manager/www/one.tcl	30 Apr 2005 06:59:33 -0000	1.2
+++ openacs-4/packages/project-manager/www/one.tcl	30 Apr 2005 07:17:46 -0000	1.3
@@ -94,7 +94,7 @@
 # the unique identifier for this package
 set package_id  [ad_conn package_id]
 set package_url [ad_conn package_url]
-set user_id     [ad_maybe_redirect_for_registration]
+set user_id     [auth::require_login]
 
 
 # terminology and other parameters
Index: openacs-4/packages/project-manager/www/process-add-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/process-add-edit.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/project-manager/www/process-add-edit.tcl	30 Apr 2005 06:59:33 -0000	1.2
+++ openacs-4/packages/project-manager/www/process-add-edit.tcl	30 Apr 2005 07:17:46 -0000	1.3
@@ -27,7 +27,7 @@
 # --------------------------------------------------------------- #
 # the unique identifier for this package
 set package_id [ad_conn package_id]
-set user_id    [ad_maybe_redirect_for_registration]
+set user_id    [auth::require_login]
 
 # terminology and parameters
 set project_term    [parameter::get -parameter "ProjectName" -default "Project"]
Index: openacs-4/packages/project-manager/www/process-dependency-add-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/process-dependency-add-edit.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/project-manager/www/process-dependency-add-edit.tcl	30 Apr 2005 06:59:33 -0000	1.2
+++ openacs-4/packages/project-manager/www/process-dependency-add-edit.tcl	30 Apr 2005 07:17:46 -0000	1.3
@@ -69,7 +69,7 @@
 
 # the unique identifier for this package
 set package_id [ad_conn package_id]
-set user_id    [ad_maybe_redirect_for_registration]
+set user_id    [auth::require_login]
 
 # permissions
 
Index: openacs-4/packages/project-manager/www/process-instance-edit-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/process-instance-edit-2.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/project-manager/www/process-instance-edit-2.tcl	30 Apr 2005 06:59:33 -0000	1.2
+++ openacs-4/packages/project-manager/www/process-instance-edit-2.tcl	30 Apr 2005 07:17:46 -0000	1.3
@@ -17,7 +17,7 @@
 } -errors {
 }
 
-set user_id     [ad_maybe_redirect_for_registration]
+set user_id     [auth::require_login]
 set package_id  [ad_conn package_id]
 
 permission::require_permission \
Index: openacs-4/packages/project-manager/www/process-instances.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/process-instances.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/project-manager/www/process-instances.tcl	30 Apr 2005 06:59:33 -0000	1.2
+++ openacs-4/packages/project-manager/www/process-instances.tcl	30 Apr 2005 07:17:46 -0000	1.3
@@ -23,7 +23,7 @@
 
 # the unique identifier for this package
 set package_id [ad_conn package_id]
-set user_id    [ad_maybe_redirect_for_registration]
+set user_id    [auth::require_login]
 
 # permissions
 permission::require_permission -party_id $user_id -object_id $package_id -privilege read
Index: openacs-4/packages/project-manager/www/process-one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/process-one.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/project-manager/www/process-one.tcl	30 Apr 2005 06:59:33 -0000	1.2
+++ openacs-4/packages/project-manager/www/process-one.tcl	30 Apr 2005 07:17:46 -0000	1.3
@@ -30,7 +30,7 @@
 
 # the unique identifier for this package
 set package_id [ad_conn package_id]
-set user_id    [ad_maybe_redirect_for_registration]
+set user_id    [auth::require_login]
 
 # permissions
 permission::require_permission -party_id $user_id -object_id $package_id -privilege read
Index: openacs-4/packages/project-manager/www/process-task-add-edit-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/process-task-add-edit-2.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/project-manager/www/process-task-add-edit-2.tcl	30 Apr 2005 06:59:33 -0000	1.2
+++ openacs-4/packages/project-manager/www/process-task-add-edit-2.tcl	30 Apr 2005 07:17:46 -0000	1.3
@@ -81,7 +81,7 @@
 }
 
 
-set user_id    [ad_maybe_redirect_for_registration]
+set user_id    [auth::require_login]
 set package_id [ad_conn package_id]
 
 permission::require_permission -party_id $user_id -object_id $package_id -privilege create
Index: openacs-4/packages/project-manager/www/process-task-add-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/process-task-add-edit.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/project-manager/www/process-task-add-edit.tcl	30 Apr 2005 06:59:33 -0000	1.2
+++ openacs-4/packages/project-manager/www/process-task-add-edit.tcl	30 Apr 2005 07:17:46 -0000	1.3
@@ -60,7 +60,7 @@
 # --------------------------------------
 
 set package_id [ad_conn package_id]
-set user_id    [ad_maybe_redirect_for_registration]
+set user_id    [auth::require_login]
 
 # ------------------------------------------------------------
 # if process_task_id is set, then we are editing process tasks
Index: openacs-4/packages/project-manager/www/process-task-assign-add-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/process-task-assign-add-edit.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/project-manager/www/process-task-assign-add-edit.tcl	30 Apr 2005 06:59:33 -0000	1.2
+++ openacs-4/packages/project-manager/www/process-task-assign-add-edit.tcl	30 Apr 2005 07:17:46 -0000	1.3
@@ -59,7 +59,7 @@
 # the unique identifier for this package
 set package_id [ad_conn package_id]
 set subsite_id [ad_conn subsite_id]
-set user_id    [ad_maybe_redirect_for_registration]
+set user_id    [auth::require_login]
 
 set user_group_id [application_group::group_id_from_package_id \
                        -package_id $subsite_id]
Index: openacs-4/packages/project-manager/www/process-task-delete-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/process-task-delete-2.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/project-manager/www/process-task-delete-2.tcl	30 Apr 2005 06:59:33 -0000	1.2
+++ openacs-4/packages/project-manager/www/process-task-delete-2.tcl	30 Apr 2005 07:17:46 -0000	1.3
@@ -14,7 +14,7 @@
 # --------------------------------------------------------------- #
 # the unique identifier for this package
 set package_id [ad_conn package_id]
-set user_id    [ad_maybe_redirect_for_registration]
+set user_id    [auth::require_login]
 
 # permissions
 permission::require_permission -party_id $user_id -object_id $package_id -privilege write
Index: openacs-4/packages/project-manager/www/process-task-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/process-task-delete.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/project-manager/www/process-task-delete.tcl	30 Apr 2005 06:59:33 -0000	1.2
+++ openacs-4/packages/project-manager/www/process-task-delete.tcl	30 Apr 2005 07:17:46 -0000	1.3
@@ -27,7 +27,7 @@
 # --------------------------------------------------------------- #
 # the unique identifier for this package
 set package_id [ad_conn package_id]
-set user_id    [ad_maybe_redirect_for_registration]
+set user_id    [auth::require_login]
 
 # terminology
 set task_term_lower [parameter::get -parameter "taskname" -default "task"]
Index: openacs-4/packages/project-manager/www/process-use.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/process-use.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/project-manager/www/process-use.tcl	30 Apr 2005 06:59:33 -0000	1.2
+++ openacs-4/packages/project-manager/www/process-use.tcl	30 Apr 2005 07:17:46 -0000	1.3
@@ -30,7 +30,7 @@
 
 # --------------------------------------------------------------- #
 
-set user_id    [ad_maybe_redirect_for_registration]
+set user_id    [auth::require_login]
 set package_id [ad_conn package_id]
 
 # terminology
Index: openacs-4/packages/project-manager/www/processes.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/processes.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/project-manager/www/processes.tcl	30 Apr 2005 06:59:33 -0000	1.2
+++ openacs-4/packages/project-manager/www/processes.tcl	30 Apr 2005 07:17:46 -0000	1.3
@@ -40,7 +40,7 @@
 
 # the unique identifier for this package
 set package_id [ad_conn package_id]
-set user_id    [ad_maybe_redirect_for_registration]
+set user_id    [auth::require_login]
 
 # permissions
 permission::require_permission -party_id $user_id -object_id $package_id -privilege read
Index: openacs-4/packages/project-manager/www/project-assign-edit-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/project-assign-edit-2.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/project-manager/www/project-assign-edit-2.tcl	30 Apr 2005 06:59:34 -0000	1.2
+++ openacs-4/packages/project-manager/www/project-assign-edit-2.tcl	30 Apr 2005 07:17:46 -0000	1.3
@@ -17,7 +17,7 @@
 } -errors {
 }
 
-set user_id [ad_maybe_redirect_for_registration]
+set user_id [auth::require_login]
 
 # remove assignments 
 set current_assignees [pm::project::assign_remove_everyone \
Index: openacs-4/packages/project-manager/www/project-assign-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/project-assign-edit.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/project-manager/www/project-assign-edit.tcl	30 Apr 2005 06:59:34 -0000	1.2
+++ openacs-4/packages/project-manager/www/project-assign-edit.tcl	30 Apr 2005 07:17:46 -0000	1.3
@@ -20,7 +20,7 @@
 set package_id [ad_conn package_id]
 
 # The id of the person logged in and browsing this page
-set user_id [ad_maybe_redirect_for_registration]
+set user_id [auth::require_login]
 
 set subsite_id [ad_conn subsite_id]
 
Index: openacs-4/packages/project-manager/www/task-add-edit-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/task-add-edit-2.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/project-manager/www/task-add-edit-2.tcl	30 Apr 2005 06:59:34 -0000	1.2
+++ openacs-4/packages/project-manager/www/task-add-edit-2.tcl	30 Apr 2005 07:17:46 -0000	1.3
@@ -54,7 +54,7 @@
 # --------------------------------------------------------------- 
 # Set up
 # --------------------------------------------------------------- 
-set user_id       [ad_maybe_redirect_for_registration]
+set user_id       [auth::require_login]
 set package_id    [ad_conn package_id]
 set peeraddr      [ad_conn peeraddr]
 
Index: openacs-4/packages/project-manager/www/task-add-edit-3.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/task-add-edit-3.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/project-manager/www/task-add-edit-3.tcl	30 Apr 2005 06:59:34 -0000	1.2
+++ openacs-4/packages/project-manager/www/task-add-edit-3.tcl	30 Apr 2005 07:17:46 -0000	1.3
@@ -53,7 +53,7 @@
 # --------------------------------------------------------------- 
 # Set up
 # --------------------------------------------------------------- 
-set user_id       [ad_maybe_redirect_for_registration]
+set user_id       [auth::require_login]
 set package_id    [ad_conn package_id]
 set peeraddr      [ad_conn peeraddr]
 
Index: openacs-4/packages/project-manager/www/task-add-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/task-add-edit.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/project-manager/www/task-add-edit.tcl	30 Apr 2005 06:59:34 -0000	1.2
+++ openacs-4/packages/project-manager/www/task-add-edit.tcl	30 Apr 2005 07:17:46 -0000	1.3
@@ -39,7 +39,7 @@
 # --------------------------------------------------------------- 
 # Set up
 # --------------------------------------------------------------- 
-set user_id       [ad_maybe_redirect_for_registration]
+set user_id       [auth::require_login]
 set package_id    [ad_conn package_id]
 
 # use hour units or day units
Index: openacs-4/packages/project-manager/www/task-calendar.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/task-calendar.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/project-manager/www/task-calendar.tcl	30 Apr 2005 06:59:34 -0000	1.2
+++ openacs-4/packages/project-manager/www/task-calendar.tcl	30 Apr 2005 07:17:46 -0000	1.3
@@ -20,7 +20,7 @@
     roles:multirow
 }
 
-set user_id [ad_maybe_redirect_for_registration]
+set user_id [auth::require_login]
 
 set date [calendar::adjust_date -date $date -julian_date $julian_date]
 
Index: openacs-4/packages/project-manager/www/task-link.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/task-link.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/project-manager/www/task-link.tcl	30 Apr 2005 06:59:34 -0000	1.2
+++ openacs-4/packages/project-manager/www/task-link.tcl	30 Apr 2005 07:17:46 -0000	1.3
@@ -17,7 +17,7 @@
 } -errors {
 }
 
-set user_id     [ad_maybe_redirect_for_registration]
+set user_id     [auth::require_login]
 set package_id  [ad_conn package_id]
 
 permission::require_permission \
Index: openacs-4/packages/project-manager/www/task-one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/task-one.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/project-manager/www/task-one.tcl	30 Apr 2005 06:59:34 -0000	1.2
+++ openacs-4/packages/project-manager/www/task-one.tcl	30 Apr 2005 07:17:46 -0000	1.3
@@ -92,7 +92,7 @@
 # the unique identifier for this package
 set package_id  [ad_conn package_id]
 set package_url [ad_conn package_url]
-set user_id     [ad_maybe_redirect_for_registration]
+set user_id     [auth::require_login]
 
 
 # permissions
Index: openacs-4/packages/project-manager/www/task-print.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/task-print.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/project-manager/www/task-print.tcl	30 Apr 2005 06:59:34 -0000	1.2
+++ openacs-4/packages/project-manager/www/task-print.tcl	30 Apr 2005 07:17:46 -0000	1.3
@@ -74,7 +74,7 @@
 
 # the unique identifier for this package
 set package_id [ad_conn package_id]
-set user_id    [ad_maybe_redirect_for_registration]
+set user_id    [auth::require_login]
 
 set comments [general_comments_get_comments -print_content_p 1 -print_attachments_p 1 $task_id "[ad_conn url]?task_id=$task_id"]
 
Index: openacs-4/packages/project-manager/www/task-select-project.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/task-select-project.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/project-manager/www/task-select-project.tcl	30 Apr 2005 06:59:34 -0000	1.2
+++ openacs-4/packages/project-manager/www/task-select-project.tcl	30 Apr 2005 07:17:46 -0000	1.3
@@ -34,7 +34,7 @@
 
 # --------------------------------------------------------------- #
 
-set user_id    [ad_maybe_redirect_for_registration]
+set user_id    [auth::require_login]
 set package_id [ad_conn package_id]
 
 permission::require_permission -object_id $package_id -privilege write
Index: openacs-4/packages/project-manager/www/tasks.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/tasks.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/project-manager/www/tasks.tcl	30 Apr 2005 06:59:34 -0000	1.2
+++ openacs-4/packages/project-manager/www/tasks.tcl	30 Apr 2005 07:17:46 -0000	1.3
@@ -72,7 +72,7 @@
 
 # the unique identifier for this package
 set package_id [ad_conn package_id]
-set user_id    [ad_maybe_redirect_for_registration]
+set user_id    [auth::require_login]
 
 # if mine_p is true, show only my tasks
 if {[string equal $mine_p t]} {
Index: openacs-4/packages/project-manager/www/admin/default-project-roles.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/admin/default-project-roles.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/project-manager/www/admin/default-project-roles.tcl	30 Apr 2005 06:59:34 -0000	1.2
+++ openacs-4/packages/project-manager/www/admin/default-project-roles.tcl	30 Apr 2005 07:17:47 -0000	1.3
@@ -41,7 +41,7 @@
 
 # the unique identifier for this package
 set package_id [ad_conn package_id]
-set user_id    [ad_maybe_redirect_for_registration]
+set user_id    [auth::require_login]
 
 # permissions
 permission::require_permission -party_id $user_id -object_id $package_id -privilege read
Index: openacs-4/packages/project-manager/www/admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/admin/index.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/project-manager/www/admin/index.tcl	30 Apr 2005 06:59:34 -0000	1.2
+++ openacs-4/packages/project-manager/www/admin/index.tcl	30 Apr 2005 07:17:47 -0000	1.3
@@ -42,7 +42,7 @@
 
 # the unique identifier for this package
 set package_id [ad_conn package_id]
-set user_id    [ad_maybe_redirect_for_registration]
+set user_id    [auth::require_login]
 
 # set up links
 set categories_link "/categories/cadmin/one-object?object_id=$package_id"
Index: openacs-4/packages/project-manager/www/admin/roles.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/admin/roles.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/project-manager/www/admin/roles.tcl	30 Apr 2005 06:59:34 -0000	1.2
+++ openacs-4/packages/project-manager/www/admin/roles.tcl	30 Apr 2005 07:17:47 -0000	1.3
@@ -41,7 +41,7 @@
 
 # the unique identifier for this package
 set package_id [ad_conn package_id]
-set user_id    [ad_maybe_redirect_for_registration]
+set user_id    [auth::require_login]
 
 # permissions
 permission::require_permission -party_id $user_id -object_id $package_id -privilege read
Index: openacs-4/packages/project-manager/www/admin/workgroups.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/admin/workgroups.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/project-manager/www/admin/workgroups.tcl	30 Apr 2005 06:59:34 -0000	1.2
+++ openacs-4/packages/project-manager/www/admin/workgroups.tcl	30 Apr 2005 07:17:47 -0000	1.3
@@ -41,7 +41,7 @@
 
 # the unique identifier for this package
 set package_id [ad_conn package_id]
-set user_id    [ad_maybe_redirect_for_registration]
+set user_id    [auth::require_login]
 
 # permissions
 permission::require_permission -party_id $user_id -object_id $package_id -privilege read