Index: openacs-4/packages/bug-tracker/www/admin/project-maintainer-edit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/www/admin/project-maintainer-edit.tcl,v diff -u -r1.5 -r1.6 --- openacs-4/packages/bug-tracker/www/admin/project-maintainer-edit.tcl 13 Jan 2003 18:14:05 -0000 1.5 +++ openacs-4/packages/bug-tracker/www/admin/project-maintainer-edit.tcl 13 Jan 2003 18:29:08 -0000 1.6 @@ -5,16 +5,9 @@ @creation-date 2002-03-26 @cvs-id $Id$ } { - cancel:optional - maintainer:integer,optional - {return_url ""} + {return_url "."} } -if { [exists_and_not_null cancel] } { - ad_returnredirect $return_url - ad_script_abort -} - set project_name [bug_tracker::conn project_name] set package_id [ad_conn package_id] set package_key [ad_conn package_key] @@ -23,13 +16,14 @@ set context_bar [ad_context_bar $page_title] -form create project_maintainer +form create project_maintainer -cancel_url $return_url element create project_maintainer return_url -datatype text -widget hidden -value $return_url element create project_maintainer maintainer \ -datatype search \ -widget search \ + -result_datatype integer \ -label "Project Maintainer" \ -options [bug_tracker::users_get_options] \ -optional \ @@ -46,6 +40,8 @@ } if { [form is_valid project_maintainer] } { + form get_values project_maintainer maintainer + db_dml project_maintainer_update { update bt_projects set maintainer = :maintainer