Index: openacs-4/packages/contacts/www/person-upgrade-to-user.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/person-upgrade-to-user.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/contacts/www/person-upgrade-to-user.tcl	6 Jul 2005 23:39:24 -0000	1.1
@@ -0,0 +1,18 @@
+ad_page_contract {
+
+    @author Matthew Geddert openacs@geddert.com
+    @creation-date 2005-07-06
+    @cvs-id $Id: person-upgrade-to-user.tcl,v 1.1 2005/07/06 23:39:24 matthewg Exp $
+
+
+} {
+    {person_id:integer}
+}
+
+permission::require_permission -object_id [ad_conn package_id] -privilege "admin"
+
+contact::person_upgrade_to_user -person_id $person_id
+set contact_link [contact::link -party_id $person_id]
+util_user_message -message "[_ contacts.lt_-contact_link-_was_upgraded_to_a_user]"
+ad_returnredirect [contact::url -party_id $person_id]
+ad_script_abort