OpenACS

hamiltonc
committed
MAIN:hamiltonc:20060825025332
on 25 Aug 06
make sure the sessions are flushed in the section flush proc, seems the flush command for the session is missing an anchor parameter hence t… Show more
make sure the sessions are flushed in the section flush proc, seems the flush command for the session is missing an anchor parameter hence the sessions are not being flushed

Show less

openacs-4/.../www/asm-admin/one-a.tcl (+1 -1)
13 13     {reg_p ""}
14 14     {asm_instance ""}
15 15     {reg_url ""}
16 16 }
17 17 set is_reg_asm_p ""
18 18 set package_id [ad_conn package_id]
19 19 set p_title ""
20 20
21 21 permission::require_permission -object_id $package_id -privilege create
22 22 permission::require_permission -object_id $assessment_id -privilege admin
23 23 set admin_p [acs_user::site_wide_admin_p]
24 24 # Get the assessment data
25 25 as::assessment::data -assessment_id $assessment_id
26 26 set context [list [list index [_ assessment.admin]] $assessment_data(title)]
27 27
28 28 set assessment_rev_id $assessment_data(assessment_rev_id)
29 29 set subsite_id [subsite::main_site_id]
30 30 set url [apm_package_url_from_id $subsite_id]
31 31 set anonymous_p [db_string has_privilege {} -default "f"]
32 32 set read_p [permission::permission_p -object_id $assessment_id -privilege read -party_id -1]
33   set value [parameter::get -parameter AsmForRegisterId -package_id $subsite_id]
  33 set value [parameter::get -parameter RegistrationId -package_id $subsite_id]
34 34
35 35 if { [exists_and_not_null asm_instance]} {
36 36     set reg_url "[apm_package_url_from_id $asm_instance]admin"
37 37 } else {
38 38     set reg_url "../admin"
39 39 }
40 40 if { [string eq $assessment_id $value] } {
41 41     set is_reg_asm_p "[_ assessment.reg_asm]"
42 42 }
43 43
44 44 if {[exists_and_not_null is_reg_asm_p]} {
45 45     set p_title "[_ assessment.Reg_Assessment_title]"
46 46 } else {
47 47     set p_title [_ assessment.One_Assessment_data]
48 48
49 49 }
50 50
51 51
52 52 if {![info exists assessment_data(assessment_id)]} {
53 53     ad_return_complaint 1 "[_ assessment.Requested_assess_does]"