Index: openacs-4/packages/assessment/www/asm-admin/admin-request.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/admin-request.tcl,v diff -u -r1.4.2.3 -r1.4.2.4 --- openacs-4/packages/assessment/www/asm-admin/admin-request.tcl 6 Nov 2016 11:18:13 -0000 1.4.2.3 +++ openacs-4/packages/assessment/www/asm-admin/admin-request.tcl 10 Nov 2016 15:56:58 -0000 1.4.2.4 @@ -3,10 +3,10 @@ @creation_date 2005-01-17 } { - {assessment:optional} - {interval:optional} - {date:optional} - {state:optional} + {assessment:optional ""} + {interval:optional ""} + {date:optional ""} + {state:optional ""} } -properties { context @@ -42,7 +42,7 @@ if {![acs_user::site_wide_admin_p -user_id [ad_conn user_id]]} { set permission "and c.assessment_id in (select object_id from acs_permissions where grantee_id=:party_id and privilege='admin')" } -if {([info exists assessment] && $assessment ne "") && $assessment!="all"} { +if {$assessment ne "" && $assessment ne "all"} { permission::require_permission -object_id $assessment -privilege admin as::assessment::data -assessment_id $assessment @@ -59,18 +59,18 @@ and ci.parent_id = cf.folder_id and cf.package_id = :package_id)" } -if {([info exists state] && $state ne "")} { +if {$state ne ""} { set d_state $state } -if {([info exists interval] && $interval ne "") && $interval!="all"} { +if {$interval ne "" && $interval ne "all"} { set d_interval $interval set interval_query "and date_trunc('day', al.date_requested) >= to_date('$interval','YYYY-MM-DD')" set date_query "" } -if {([info exists date] && $date ne "")} { +if {$date ne ""} { set d_date $date set date_query "and date_trunc('day', al.date_requested) = to_date('$date','YYYY-MM-DD')" set interval_query "" @@ -89,28 +89,29 @@ {assessment:text(select) {label "[_ assessment.Assessment]"} {options $assessment_list} - {html { onChange "get_assessment()"}} {value $d_assessment} } {state:text(select) {label ""} {options "$approved_options"} - {html { onChange "get_state()"}} {value $d_state} } } -has_submit 1 +template::add_event_listener -id assessment -event change -script {get_assessment();} +template::add_event_listener -id state -event change -script {get_state();} -ad_form -name interval -form { + +ad_form -name interval -form { {date:text(select) {label "[_ assessment.date_request]"} {options $intervals} {value $d_interval} - {html { onChange "get_interval()"}} } } -has_submit 1 +template::add_event_listener -id date -event change -script {get_interval();} ad_form -name specific_date_form -form { @@ -149,7 +150,7 @@ -key action_log_id\ -bulk_actions { "\#assessment.approve\#" "approve-check" "\#assessment.approve_actions\#" - "\#assessment.bulk_mail_send\#" "bulk-mail" "\#assessment.bulk_mail\#" + "\#assessment.bulk_mail_send\#" "bulk-mail" "\#assessment.bulk_mail_send\#" }\ -bulk_action_method post \ -bulk_action_export_vars {