OpenACS

donb
committed
MAIN:donb:20080813234828
on 14 Aug 08
Initial revision
/lib/repository-shared-courses.tcl (+1 -5)
6 6      View shared courses
7 7    
8 8     @author Ernie Ghiglione (ErnieG@mm.st)
9 9     @creation-date 2004-07-09
10 10     @arch-tag: 9dd389d3-195f-49ed-b610-ee893cde06d6
11 11     @cvs-id $Id$
12 12 } {
13 13    
14 14 } -properties {
15 15 } -validate {
16 16 } -errors {
17 17 }
18 18
19 19
20 20 set title "[_ lorsm.Shared_Courses]"
21 21 set context [list "[_ lorsm.Shared_Courses]"]
22 22
23 23 set package_id [ad_conn package_id]
24 24 set community_id [dotlrn_community::get_community_id]
25 25
26   set admin_p [dotlrn::user_can_admin_community_p  \
27                    -user_id [ad_conn user_id]  \
28                    -community_id $community_id ]
29  
30 26 set com_url [dotlrn_community::get_community_url $community_id]
31 27
32 28 template::list::create \
33 29     -name d_courses \
34 30     -multirow d_courses \
35 31     -html {width 50%} \
36 32     -key man_id \
37 33     -no_data "[_ lorsm.No_Courses]" \
38 34     -elements {
39 35         course_name {
40 36             label "[_ lorsm.Available_Courses]"
41 37             display_col course_name
42 38             link_url_eval {[export_vars -base $community_url/lorsm/shared/course-info {man_id fs_package_id folder_id}]}
43 39             link_html {title "[_ lorsm.Access_Course]"}
44 40
45 41         }
46 42         hasmetadata {
47 43             label "[_ lorsm.Metadata_1]"
48 44             link_url_eval {[export_vars -base $community_url/lorsm/md {ims_md_id}]}
49 45             link_html {title "[_ lorsm.See_metadata]" }