OpenACS

rocaelh
committed
MAIN:rocaelh:20040719183939:10
on 19 Jul 04
file dotlrn-admins.xql was initially added on branch oacs-5-1.
MAIN:rocaelh:20040719183939:10
openacs-4/.../tcl/callback-procs.tcl (+2 -2)
90 90                
91 91         }
92 92
93 93         return "OK"
94 94     }      
95 95  
96 96 ad_proc -callback learning_materials_portlet::portlet_multirow_data -impl assessment {
97 97     -user_id
98 98     -multirow
99 99     {-community_id ""}
100 100 } {
101 101     Get assessment data for aggregate learning portlet
102 102 } {
103 103     set list_of_package_ids [list]
104 104     set package_id_clause ""
105 105
106 106     if {$community_id ne ""} {
107 107         set node_id [dotlrn_community::get_community_node_id $community_id]
108 108         set list_of_package_ids [site_node::get_children -node_id $node_id -element package_id -package_key assessment]
109 109         if {[llength $list_of_package_ids]} {
110               set package_id_clause "and ass.package_id in ([join $list_of_package_ids ", "])"
  110             set package_id_clause "and ass.package_id in ([ns_dbquotelist $list_of_package_ids])"
111 111         } else {
112 112             return
113 113         }
114 114     }
115 115
116 116     db_foreach get_assessments {} {
117 117         if {$in_progress_p > 0 } {
118 118             set status "\#assessment.Incomplete\#"
119 119             set action "\#assessment.Continue\#"
120 120         } elseif {$completed_p >0} {
121 121             set status "\#assessment.Complete\#"
122 122             set action "\#assessment.Begin\#"
123 123         } else {
124 124             set status "\#assessment.Not_Taken\#"
125 125             set action "\#assessment.Begin\#"
126 126         }
127 127         template::multirow append $multirow $assessment_id "$title" [export_vars -base assessment/assessment {assessment_id}] $status "Status URL" $action [export_vars -base assessment/assessment {assessment_id}] "admin_url"  $percent_score [export_vars -base ../assessment/session {assessment_id}]
128 128     }
129 129 }
130 130
131 131 ad_proc -callback learning_materials_portlet::portlet_multirow_admin_data -impl assessment {
132 132     -user_id
133 133     -multirow
134 134     {-community_id ""}
135 135 } {
136 136     Get assessment data for aggregate learning portlet
137 137 } {
138 138     set list_of_package_ids [list]
139 139     if {$community_id ne ""} {
140 140         set node_id [dotlrn_community::get_community_node_id $community_id]
141 141         set list_of_package_ids [site_node::get_children -node_id $node_id -element package_id -package_key assessment]
142 142     }
143 143     set list_of_folder_ids [list]
144 144     foreach package_id $list_of_package_ids {
145 145         lappend list_of_folder_ids [as::assessment::folder_id -package_id $package_id]
146 146     }
147 147     set folder_id_clause ""
148 148     if {[llength $list_of_folder_ids]} {
149           set folder_id_clause "and ci.parent_id in ([join $list_of_folder_ids ", "])"
  149         set folder_id_clause "and ci.parent_id in ([ns_dbquotelist $list_of_folder_ids])"
150 150     } else {
151 151         return
152 152     }
153 153
154 154
155 155     set return_url [ad_return_url]
156 156     db_foreach get_assessments {} {
157 157         set publish_status [string map {live "\#assessment.Live\#"} $publish_status]
158 158         template::multirow append $multirow $assessment_id $title [export_vars -base "assessment/asm-admin/one-a" {assessment_id}] [expr {$publish_status ne "" ? $publish_status : "\#assessment.Not_Live\#"}] [export_vars -base "assessment/asm-admin/toggle-publish" {assessment_id return_url}] $completed_number [export_vars -base assessment/asm-admin/results-users {assessment_id}] [export_vars -base "assessment/asm-admin/one-a" {assessment_id}]
159 159     }
160 160 }
161 161
162 162 # Local variables:
163 163 #    mode: tcl
164 164 #    tcl-indent-level: 4
165 165 #    indent-tabs-mode: nil
166 166 # End: