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

• packages/oct-election/www/match-cvs-users-2.tcl

[ 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