/
index.tcl
72 lines (63 loc) · 2.3 KB
/
index.tcl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
ad_page_contract {
Lists all the assessments that can be taken and their sessions.
@author Eduardo Pérez Ureta (eperez@it.uc3m.es)
@creation-date 2004-09-03
} {
} -properties {
context_bar:onevalue
page_title:onevalue
}
set page_title "[_ assessment.Show_Assessments]"
set context_bar [list]
set package_id [ad_conn package_id]
set folder_id [as::assessment::folder_id -package_id $package_id]
set user_id [ad_conn user_id]
# create a list with all open assessments
template::list::create \
-name assessments \
-multirow assessments \
-key assessment_id \
-elements {
title {
label "[_ assessment.open_assessments]"
display_template {<a href="@assessments.assessment_url@">@assessments.title;noquote@</a>}
}
results {
label "[_ assessment.View_results]"
display_template {<a href="asm-admin/results-users?assessment_id=@assessments.assessment_id@">\#assessment.View_results\#</a>}
}
}
# get the information of all open assessments
template::multirow create assessments assessment_id title description assessment_url
db_foreach open_asssessments {} {
set title [as::assessment::title -title $title]
if {([empty_string_p $start_time] || $start_time <= $cur_time) && ([empty_string_p $end_time] || $end_time >= $cur_time)} {
if {[empty_string_p $password]} {
set assessment_url [export_vars -base "instructions" {assessment_id}]
} else {
set assessment_url [export_vars -base "assessment-password" {assessment_id}]
}
template::multirow append assessments $assessment_id $title $description $assessment_url
}
}
# create a list with all answered assessments and their sessions
template::list::create \
-name sessions \
-multirow sessions \
-key assessment_id \
-elements {
title {
label "[_ assessment.Assessments]"
display_template {@sessions.title;noquote@}
}
session {
label "[_ assessment.Sessions]"
link_url_eval {[export_vars -base "sessions" {assessment_id}]}
}
}
# get the information of all assessments store in the database
db_multirow -extend { session } sessions answered_asssessments {} {
set session [_ assessment.Sessions]
}
set admin_p [permission::permission_p -object_id $package_id -privilege create]
ad_return_template