delete-user.tcl

Delete a single user

Location:

/packages/acs-admin/www/users/delete-user.tcl

Author:

Gustaf Neumann

Created:

23 Dez 2008

CVS ID:

$Id: delete-user.tcl,v 1.4 2018/01/19 13:40:40 gustafn Exp $

Related Files

• packages/acs-admin/www/users/delete-user.tcl

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {
    Delete a single user
    @author Gustaf Neumann <neumann@wu-wien.ac.at>
    @creation-date 23 Dez 2008

    @cvs-id $Id: delete-user.tcl,v 1.4 2018/01/19 13:40:40 gustafn Exp $
} {
  user_id:naturalnum,notnull
  {return_url:localurl .}
  {permanent:boolean f}
}

set site_wide_admin_p [acs_user::site_wide_admin_p -user_id [ad_conn user_id]]
if {!$site_wide_admin_p} {
  ad_return_warning "Insufficient Permissions" \
      "Only side wide admins are allowed to delete a user!"
  ad_script_abort
}

if {$permanent} {
  acs_user::delete -user_id $user_id -permanent
} else {
  acs_user::delete -user_id $user_id
}

ad_returnredirect $return_url
ad_script_abort

# Local variables:
#    mode: tcl
#    tcl-indent-level: 4
#    indent-tabs-mode: nil
# End: