Index: openacs-4/packages/dotlrn-catalog/lib/course-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-catalog/lib/course-chunk.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn-catalog/lib/course-chunk.tcl	16 Feb 2005 00:22:12 -0000	1.2
+++ openacs-4/packages/dotlrn-catalog/lib/course-chunk.tcl	16 Feb 2005 22:21:30 -0000	1.3
@@ -12,6 +12,16 @@
     set index ""
 }
 
+if { ![info exists to_index] } {
+    set to_index ""
+}
+
+if { [info exist return_url] } {
+    set return_url $return_url
+} else {
+    set return_url "course-info?course_id=$course_id&course_name=$name&course_key=$course_key"
+}
+
 if { ![info exists asmid] } {
     set asmid "-1"
 }
@@ -30,6 +40,16 @@
 # Get the category name
 set category_name "[category::get_name [category::get_mapped_categories $course_id]]"
 
+# Check if user has admin permission over course_id
+if { [permission::permission_p -object_id $cc_package_id -privilege "create"] } { 
+    set item_id [dotlrn_catalog::get_item_id -revision_id $course_id]
+    set admin_p [permission::permission_p -object_id $item_id -privilege "admin"]
+} else {
+    set admin_p 0
+}
 
+set obj_n 0
 # For dotlrn associations
-db_multirow relations relation { }
\ No newline at end of file
+db_multirow -extend { obj_n admin_p } relations relation { } {
+    set obj_n 1
+}
\ No newline at end of file