Index: openacs-4/packages/oct-election/www/match-cvs-users-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/oct-election/www/match-cvs-users-2.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/oct-election/www/match-cvs-users-2.tcl	12 Sep 2013 10:59:04 -0000	1.2
@@ -0,0 +1,26 @@
+# 
+
+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.2 2013/09/12 10:59:04 victorg Exp $
+} {
+    user_id:integer,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
\ No newline at end of file