OpenACS

hamiltonc
committed
MAIN:hamiltonc:20051228013123
on 28 Dec 05
also make sure that the attendance admin page fails gracefully with a nice error message and a link to create session calendar type if a ses… Show more
also make sure that the attendance admin page fails gracefully with a nice error message and a link to create session calendar type if a session calendar type does not exist, add the tcl file that creates the session and redirect back to attendance admin page

Show less

openacs-4/.../tcl/dotlrn-wps-procs.tcl (+2 -2)
96 96     ad_proc -public remove_applet_from_community {
97 97         community_id
98 98     } {
99 99         remove the applet from the community
100 100     } {
101 101         ad_return_complaint 1 "[applet_key] remove_applet_from_community not implimented!"
102 102     }
103 103
104 104     ad_proc -public add_user {
105 105         user_id
106 106     } {
107 107         one time user-specifuc init
108 108     } {
109 109         # noop
110 110     }
111 111
112 112     ad_proc -public remove_user {
113 113         user_id
114 114     } {
115 115     } {
116           ad_return_complaint 1 "[applet_key] remove_user not implimented!"
  116         # noop
117 117     }
118 118
119 119     ad_proc -public add_user_to_community {
120 120         community_id
121 121         user_id
122 122     } {
123 123         Add a user to a specifc dotlrn community
124 124     } {
125 125         set package_id [dotlrn_community::get_applet_package_id -community_id $community_id -applet_key [applet_key]]
126 126         set portal_id [dotlrn::get_portal_id -user_id $user_id]
127 127
128 128         # use "append" here since we want to aggregate
129 129         set args [ns_set create]
130 130         ns_set put $args package_id $package_id
131 131         ns_set put $args param_action append
132 132         add_portlet_helper $portal_id $args
133 133     }
134 134
135 135     ad_proc -public remove_user_from_community {
136 136         community_id