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