OpenACS

ben
committed
MAIN:ben:20020123020653
on 23 Jan 02
added user extension procs
/tcl/community-core-procs.tcl (+7 -33)
138 138 }
139 139
140 140 namespace eval acs_user {
141 141
142 142     ad_proc -public change_state {
143 143         {-user_id:required}
144 144         {-state:required}
145 145     } {
146 146         Change the membership state of a user.
147 147     } {
148 148         set rel_id [db_string select_rel_id {
149 149             select rel_id
150 150             from cc_users
151 151             where user_id = :user_id
152 152         } -default ""]
153 153
154 154         if {[empty_string_p $rel_id]} {
155 155             return
156 156         }
157 157
158           switch -exact $state {
159               "approved" {
160                   db_exec_plsql member_approve {
161                       begin membership_rel.approve(rel_id => :rel_id); end;
  158         membership_rel::change_state -rel_id $rel_id -state $state
162 159     }
163               }
164               "banned" {
165                   db_exec_plsql member_ban {
166                       begin membership_rel.ban(rel_id => :rel_id); end;
167                   }
168               }
169               "rejected" {
170                   db_exec_plsql member_reject {
171                       begin membership_rel.reject(rel_id => :rel_id); end;
172                   }
173               }
174               "deleted" {
175                   db_exec_plsql member_delete {
176                       begin membership_rel.delete(rel_id => :rel_id); end;
177                   }
178               }
179               "needs approval" {
180                   db_exec_plsql member_unapprove {
181                       begin membership_rel.unapprove(rel_id => :rel_id); end;
182                   }
183               }
184           }
185       }
186 160
187 161     ad_proc -public approve {
188 162         {-user_id:required}
189 163     } {
190 164         Approve a user
191 165     } {
192 166         change_state -user_id $user_id -state "approved"
193 167     }
194 168
195 169     ad_proc -public ban {
196 170         {-user_id:required}
197 171     } {
198 172         Ban a user
199 173     } {
200 174         change_state -user_id $user_id -state "banned"
201 175     }
202 176
203 177     ad_proc -public reject {
204 178         {-user_id:required}
205 179     } {