OpenACS

emmar
committed
oacs-5-4:emmar:20081014174524
on 14 Oct 08
Checkpoint 3.7 (level AA): Mark up quotations. Do not use quotation markup for formatting effects such as indentation.
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]"