match-cvs-users-2.tcl
Assigns a given cvs user ( useranem ) for a given user
- Location:
- /packages/oct-election/www/match-cvs-users-2.tcl
- Author:
- Victor Guerra <guerra@galileo.edu>
- Created:
- 2006-11-17
- CVS ID:
$Id: match-cvs-users-2.tcl,v 1.3 2014/08/07 07:32:18 gustafn Exp $
Related Files
[ hide source ] | [ make this the default ]
File Contents
# ad_page_contract { Assigns a given cvs user ( useranem ) for a given user @author Victor Guerra (guerra@galileo.edu) @creation-date 2006-11-17 @arch-tag: ba6f1ea5-8703-4ff3-8f17-9e0b5f3aeae3 @cvs-id $Id: match-cvs-users-2.tcl,v 1.3 2014/08/07 07:32:18 gustafn Exp $ } { user_id:naturalnum,notnull cvs_user:notnull } -properties { } -validate { } -errors { } if {![acs_user::site_wide_admin_p]} { ad_return_complaint 1 "You have no permission to manage cvs users!" } acs_user::update -user_id $user_id \ -username $cvs_user ad_returnredirect match-cvs-users