Index: openacs-4/packages/acs-admin/www/users/member-state-change-oracle.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/member-state-change-oracle.xql,v diff -u -r1.4 -r1.5 --- openacs-4/packages/acs-admin/www/users/member-state-change-oracle.xql 15 Feb 2002 01:41:31 -0000 1.4 +++ openacs-4/packages/acs-admin/www/users/member-state-change-oracle.xql 4 Apr 2002 15:14:53 -0000 1.5 @@ -3,69 +3,73 @@ oracle8.1.6 - - - select email_verified_p email_verified_p_old, member_state member_state_old, first_names || ' ' || last_name as name, email, rel_id, rowid as row_id -from cc_users -where user_id = :user_id - - + + + select email_verified_p as email_verified_p_old, + member_state as member_state_old, + first_names || ' ' || last_name as name, + email, + rel_id, + rownum as row_id + from cc_users + where user_id = :user_id + + - - + - + begin membership_rel.approve( rel_id => :rel_id ); end; - - + + - + begin membership_rel.ban( rel_id => :rel_id ); end; - - + + - + begin membership_rel.reject( rel_id => :rel_id ); end; - - + + - + begin membership_rel.deleted( rel_id => :rel_id ); end; - - + + - + begin membership_rel.unapprove( rel_id => :rel_id ); end; - - + + - + begin acs_user.approve_email ( user_id => :user_id ); end; - - + + - + begin acs_user.unapprove_email ( user_id => :user_id ); end; - +