| |
56 |
56 |
set return_url "course-info?course_id=$course_id&course_name=$name&course_key=$course_key" |
| |
57 |
57 |
} |
| |
58 |
58 |
|
| |
59 |
59 |
if { ![info exists asmid] } { |
| |
60 |
60 |
set asmid "-1" |
| |
61 |
61 |
} |
| |
62 |
62 |
|
| |
63 |
63 |
if { ![info exists revision] } { |
| |
64 |
64 |
set revision "no" |
| |
65 |
65 |
} |
| |
66 |
66 |
|
| |
67 |
67 |
set category_p [db_string get_category { } -default -1] |
| |
68 |
68 |
|
| |
69 |
69 |
set info $course_info |
| |
70 |
70 |
set name $course_name |
| |
71 |
71 |
set edit "yes" |
| |
72 |
72 |
set asm $asm_name |
| |
73 |
73 |
set info [ad_html_text_convert -from text/enhanced -to text/plain $info] |
| |
74 |
74 |
|
| |
75 |
75 |
set cc_package_id [apm_package_id_from_key "dotlrn-catalog"] |
| |
76 |
|
set tree_id [db_string get_tree_id { } -default "-1"] |
| |
77 |
76 |
|
| |
78 |
77 |
# Get the category name |
| |
79 |
|
set category_name "[category::get_name [category::get_mapped_categories $course_id]]" |
| |
|
78 |
set category_names "[category::get_names [category::get_mapped_categories $course_id]]" |
| |
80 |
79 |
|
| |
81 |
80 |
# Check if user has admin permission over course_id |
| |
82 |
81 |
set admin_p 0 |
| |
83 |
82 |
if { [permission::permission_p -object_id $cc_package_id -privilege "create"] } { |
| |
84 |
83 |
set item_id [dotlrn_catalog::get_item_id -revision_id $course_id] |
| |
85 |
84 |
if { [permission::permission_p -object_id $course_id -privilege "admin"] } { |
| |
86 |
85 |
set admin_p 1 |
| |
87 |
86 |
} else { |
| |
88 |
87 |
set admin_p 0 |
| |
89 |
88 |
} |
| |
90 |
89 |
} |
| |
91 |
90 |
|
| |
92 |
91 |
|
| |
93 |
92 |
set obj_n 0 |
| |
94 |
93 |
set dotlrn_class "(" |
| |
95 |
94 |
set dotlrn_com "(" |
| |
96 |
95 |
|
| |
97 |
96 |
# For dotlrn associations |
| |
98 |
97 |
db_multirow -extend { obj_n admin_p } relations relation { } { |
| |
99 |
98 |
set obj_n 1 |
