Index: openacs-4/packages/courses/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/courses/www/index.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/courses/www/index.tcl	3 Feb 2005 22:41:27 -0000	1.3
+++ openacs-4/packages/courses/www/index.tcl	8 Feb 2005 23:07:52 -0000	1.4
@@ -9,16 +9,11 @@
 }
 set page_title "[_ courses.course_catalog]"
 set context ""
-set return_url "/courses/cc-admin/course-list"
+set return_url "cc-admin/course-list"
 
 set cc_package_id [apm_package_id_from_key "courses"]
 
-set user_id [auth::get_user_id]
-if {[permission::permission_p -party_id $user_id -object_id $cc_package_id -privilege "admin"]} {
-    set admin_p 1
-} else {
-    set admin_p 0
-}
+set user_id [ad_conn user_id]
 
 if {[permission::permission_p -party_id $user_id -object_id $cc_package_id -privilege "create"]} {
     set create_p 1