Index: openacs-4/packages/assessment/www/admin/set-reg-assessment.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/set-reg-assessment.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/assessment/www/admin/set-reg-assessment.tcl 9 Jun 2005 20:44:08 -0000 1.1 +++ openacs-4/packages/assessment/www/admin/set-reg-assessment.tcl 12 Jun 2006 02:49:51 -0000 1.2 @@ -13,7 +13,7 @@ set asm_instance [ad_conn package_id] if {![exists_and_not_null assessment_id]} { - set value [parameter::get -parameter AsmForRegisterId -package_id $subsite_id] + set value [parameter::get -parameter RegistrationId -package_id $subsite_id] set assessment_id $value } @@ -46,7 +46,8 @@ ad_returnredirect "${url}asm-admin/one-a?assessment_id=$assessment_id®_p=1&asm_instance=$asm_instance" } } else { - parameter::set_value -package_id [subsite::main_site_id] -parameter AsmForRegisterId -value $assessment_id + parameter::set_value -package_id [subsite::main_site_id] -parameter RegistrationId -value $assessment_id + parameter::set_value -package_id [subsite::main_site_id] -parameter RegistrationImplName -value "asm_url" ad_returnredirect "" } }