Index: openacs-4/packages/assessment/www/actions-results.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/Attic/actions-results.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/assessment/www/actions-results.adp 24 Jan 2005 17:52:14 -0000 1.1
@@ -0,0 +1,7 @@
+Actions Performed:
+
+@actions.user_message@
+
+ This action has failed
+
+
\ No newline at end of file
Index: openacs-4/packages/assessment/www/actions-results.adp~
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/Attic/actions-results.adp~,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/assessment/www/actions-results.adp~ 24 Jan 2005 17:52:14 -0000 1.1
@@ -0,0 +1 @@
+Actions Performed:
\ No newline at end of file
Index: openacs-4/packages/assessment/www/actions-results.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/Attic/actions-results.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/assessment/www/actions-results.tcl 24 Jan 2005 17:52:14 -0000 1.1
@@ -0,0 +1,12 @@
+ad_page_contract {
+
+ Shows the actions performed for this session
+
+ @author Anny Flores (annyflores@viaro.net)
+ @date_created 2005-01-21
+} {
+ session_id
+}
+
+
+db_multirow actions get_actions {select * from as_actions_log al, as_action_map am, as_actions a where al.session_id=:session_id and al.inter_item_check_id=am.inter_item_check_id and am.action_id=a.action_id}
\ No newline at end of file
Index: openacs-4/packages/assessment/www/actions-results.tcl~
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/Attic/actions-results.tcl~,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/assessment/www/actions-results.tcl~ 24 Jan 2005 17:52:14 -0000 1.1
@@ -0,0 +1,2 @@
+ad_page_contract {
+}
\ No newline at end of file
Index: openacs-4/packages/assessment/www/admin/confirm-delete.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/confirm-delete.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/assessment/www/admin/confirm-delete.adp 24 Jan 2005 17:52:14 -0000 1.1
@@ -0,0 +1,3 @@
+
+
+
\ No newline at end of file
Index: openacs-4/packages/assessment/www/admin/confirm-delete.adp~
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/confirm-delete.adp~,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/assessment/www/admin/confirm-delete.adp~ 24 Jan 2005 17:52:14 -0000 1.1
@@ -0,0 +1,3 @@
+
+
+
\ No newline at end of file
Index: openacs-4/packages/assessment/www/admin/confirm-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/confirm-delete.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/assessment/www/admin/confirm-delete.tcl 24 Jan 2005 17:52:14 -0000 1.1
@@ -0,0 +1,24 @@
+ad_page_contract {
+ This page deletes checks
+ @author Anny Flores (annyflores@viaro.net) Viaro Networks
+ @date 2005-01-17
+} {
+ inter_item_check_id:multiple
+ section_id
+ assessment_id
+}
+
+ad_form -name delete_checks -form {
+
+ {inter_item_check_id:text(hidden)
+ {value $inter_item_check_id}
+ }
+ {section_id:text(hidden)
+ {value $section_id}
+ }
+ {assessment_id:text(hidden)
+ {value $assessment_id}
+ }
+} -on_submit {
+ ad_returnredirect "checks-delete?section_id=$section_id&inter_item_check_id=$inter_item_check_id&assessment_id=$assessment_id"
+}
Index: openacs-4/packages/assessment/www/admin/confirm-delete.tcl~
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/confirm-delete.tcl~,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/assessment/www/admin/confirm-delete.tcl~ 24 Jan 2005 17:52:14 -0000 1.1
@@ -0,0 +1,25 @@
+ad_page_contract {
+ This page deletes checks
+ @author Anny Flores (annyflores@viaro.net) Viaro Networks
+ @date 2005-01-17
+} {
+ inter_item_check_id:multiple
+ section_id
+ assessment_id
+}
+
+ad_form -name delete_checks -form {
+ {inter_item_check_id:text(hidden)
+ {value $inter_item_check_id}
+ }
+ {section_id:text(hidden)
+ {value $section_id}
+ }
+ {assessment_id:text(hidden)
+ {value $assessment_id}
+ }
+
+
+} -on_submit {
+ ad_returnredirect "checks-delete?section_id=$section_id&inter_item_check_id=$inter_item_check_id&assessment_id=$assessment_id"
+}
Index: openacs-4/packages/assessment/www/admin/request-notification.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/request-notification.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/assessment/www/admin/request-notification.adp 24 Jan 2005 17:52:14 -0000 1.1
@@ -0,0 +1,3 @@
+
+
+
\ No newline at end of file
Index: openacs-4/packages/assessment/www/admin/request-notification.adp~
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/request-notification.adp~,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/assessment/www/admin/request-notification.adp~ 24 Jan 2005 17:52:14 -0000 1.1
@@ -0,0 +1,2 @@
+
+
\ No newline at end of file
Index: openacs-4/packages/assessment/www/admin/request-notification.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/request-notification.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/assessment/www/admin/request-notification.tcl 24 Jan 2005 17:52:14 -0000 1.1
@@ -0,0 +1,88 @@
+ad_page_contract {
+
+ @author Anny Flores (annyflores@viaro.net) Viaro Networks (www.viaro.net)
+ @create-date 2005-01-19
+
+} {
+ inter_item_check_id:integer,notnull
+ assessment_id
+ section_id
+}
+
+form create notify
+set type "as_inter_item_checks_notif"
+set type_id [notification::type::get_type_id -short_name $type]
+set intervals [notification::get_intervals -type_id $type_id]
+set delivery_methods [notification::get_delivery_methods -type_id $type_id]
+
+
+element create notify assessment_id\
+ -widget hidden\
+ -value $assessment_id
+element create notify section_id\
+ -widget hidden\
+ -value $section_id
+element create notify inter_item_check_id\
+ -widget hidden\
+ -value $inter_item_check_id
+element create notify party_id \
+ -widget party_search \
+ -datatype party_search \
+ -label User
+element create notify interval_id\
+ -widget select\
+ -datatype text\
+ -label "[_ notifications.lt_Notification_Interval]"\
+ -options $intervals
+
+element create notify delivery_method_id\
+ -datatype integer \
+ -widget select\
+ -label "[_ notifications.Delivery_Method]"\
+ -options $delivery_methods\
+ -value [lindex [lindex $delivery_methods 0] 1]
+
+
+if {[template::form is_valid notify]} {
+ template::form get_values notify party_id interval_id assessment_id section_id delivery_method_id
+ # Add the subscribe
+ notification::request::new \
+ -type_id $type_id \
+ -user_id $party_id \
+ -object_id $inter_item_check_id \
+ -interval_id $interval_id \
+ -delivery_method_id $delivery_method_id
+
+
+
+ ad_returnredirect "request-notification?assessment_id=$assessment_id§ion_id=$section_id&inter_item_check_id=$inter_item_check_id"
+}
+
+template::list::create -name notify_users\
+-multirow notify_users\
+-key request_id\
+-bulk_actions\
+ {
+ "Unsubscribe" "unsubscribe" "Unsubscribe user to this rule"
+ }\
+ -bulk_action_method post -bulk_action_export_vars {
+ inter_item_check_id
+ type_id
+ assessment_id
+ section_id
+ }\
+ -no_data "There are no users to notify"\
+ -row_pretty_plural "notify_users"\
+ -elements {
+ name {
+ label "UserName"
+ }
+ interval_name {
+ label "Interval"
+
+ }
+ delivery_name {
+ label "Delivery Method"
+ }
+ }
+db_multirow notify_users notify_users { *SQL* }
Index: openacs-4/packages/assessment/www/admin/request-notification.tcl~
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/request-notification.tcl~,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/assessment/www/admin/request-notification.tcl~ 24 Jan 2005 17:52:14 -0000 1.1
@@ -0,0 +1,85 @@
+ad_page_contract {
+
+} {
+ inter_item_check_id:integer,notnull
+ assessment_id
+ section_id
+}
+
+form create notify
+set type "as_inter_item_checks_notif"
+set type_id [notification::type::get_type_id -short_name $type]
+set intervals [notification::get_intervals -type_id $type_id]
+set delivery_methods [notification::get_delivery_methods -type_id $type_id]
+
+
+element create notify assessment_id\
+ -widget hidden\
+ -value $assessment_id
+element create notify section_id\
+ -widget hidden\
+ -value $section_id
+element create notify inter_item_check_id\
+ -widget hidden\
+ -value $inter_item_check_id
+element create notify party_id \
+ -widget party_search \
+ -datatype party_search \
+ -label User
+element create notify interval_id\
+ -widget select\
+ -datatype text\
+ -label "[_ notifications.lt_Notification_Interval]"\
+ -options $intervals
+
+element create notify delivery_method_id\
+ -datatype integer \
+ -widget select\
+ -label "[_ notifications.Delivery_Method]"\
+ -options $delivery_methods\
+ -value [lindex [lindex $delivery_methods 0] 1]
+
+
+if {[template::form is_valid notify]} {
+ template::form get_values notify party_id interval_id assessment_id section_id delivery_method_id
+ # Add the subscribe
+ notification::request::new \
+ -type_id $type_id \
+ -user_id $party_id \
+ -object_id $inter_item_check_id \
+ -interval_id $interval_id \
+ -delivery_method_id $delivery_method_id
+
+
+
+ ad_returnredirect "request-notification?assessment_id=$assessment_id§ion_id=$section_id&inter_item_check_id=$inter_item_check_id"
+}
+
+template::list::create -name notify_users\
+-multirow notify_users\
+-key request_id\
+-bulk_actions\
+ {
+ "Unsubscribe" "unsubscribe" "Unsubscribe user to this rule"
+ }\
+ -bulk_action_method post -bulk_action_export_vars {
+ inter_item_check_id
+ type_id
+ assessment_id
+ section_id
+ }\
+ -no_data "There are no users to notify"\
+ -row_pretty_plural "notify_users"\
+ -elements {
+ name {
+ label "UserName"
+ }
+ interval_name {
+ label "Interval"
+
+ }
+ delivery_name {
+ label "Delivery Method"
+ }
+ }
+db_multirow notify_users notify_users { *SQL* }
Index: openacs-4/packages/assessment/www/admin/request-notification.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/request-notification.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/assessment/www/admin/request-notification.xql 24 Jan 2005 17:52:14 -0000 1.1
@@ -0,0 +1,19 @@
+
+
+
+
+
+ select p.first_names || ' ' || p.last_name as name,nr.request_id,
+ (select name from notification_intervals where interval_id=
+ nr.interval_id) as interval_name ,(select short_name from
+ notification_delivery_methods where
+ delivery_method_id=nr.delivery_method_id) as delivery_name
+ from persons p, notification_requests nr
+ where p.person_id = nr.user_id and
+ nr.object_id = :inter_item_check_id
+
+
+
+
+
+
Index: openacs-4/packages/assessment/www/admin/request-notification.xql~
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/request-notification.xql~,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/assessment/www/admin/request-notification.xql~ 24 Jan 2005 17:52:14 -0000 1.1
@@ -0,0 +1,19 @@
+
+
+
+
+
+ select p.first_names || ' ' || p.last_name as name,nr.request_id,
+ (select name from notification_intervals where interval_id=
+ nr.interval_id) as interval_name ,(select short_name from
+ notification_delivery_methods where
+ delivery_method_id=nr.delivery_method_id) as delivery_name
+ from persons p, notification_requests nr
+ where p.person_id = nr.user_id and
+ nr.object_id = :object_id
+
+
+
+
+
+
Index: openacs-4/packages/assessment/www/admin/section-select.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/section-select.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/assessment/www/admin/section-select.adp 24 Jan 2005 17:53:05 -0000 1.1
@@ -0,0 +1,4 @@
+
+@context_bar;noquote@
+@title;noquote@
+
Index: openacs-4/packages/assessment/www/admin/section-select.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/section-select.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/assessment/www/admin/section-select.tcl 24 Jan 2005 17:53:05 -0000 1.1
@@ -0,0 +1,52 @@
+ad_page_contract {
+
+
+ @author Anny Flores (annyflores@viaro.net) Viaro Networks (www.viaro.net)
+ @date 2005-01-07
+
+ This page allows to add branches or actions to the question and its choices.
+} {
+ assessment_id:integer
+ inter_item_check_id:integer
+ section_id:integer
+}
+
+as::assessment::data -assessment_id $assessment_id
+if {![info exists assessment_data(assessment_id)]} {
+ ad_return_complaint 1 "[_ assessment.Requested_assess_does]"
+ ad_script_abort
+}
+set new_assessment_revision [db_string get_assessment_id {select max(revision_id) from cr_revisions where item_id=:assessment_id}]
+set new_section_revision [db_string get_section_id {select max(revision_id) from cr_revisions where item_id=:section_id}]
+
+set sections_list [db_list_of_lists get_sections {}]
+
+set title $assessment_data(title)
+set context_bar [ad_context_bar [list "one-a?assessment_id=$assessment_id" $title] "$title Triggers"]
+
+set title "Section Select"
+ad_form -name get_section -form {
+ inter_item_check_id:key
+ {assessment_id:text(hidden)
+ {value $assessment_id}}
+ {section_id:text(hidden)
+ {value $section_id}}
+
+ {section_id_to:text(select)
+ {label "Choose a section to branch"}
+ {options $sections_list}
+ {help_text "The section where the condition will lead you."}
+ }
+
+} -new_data {
+ db_transaction {
+ db_dml update_check {}
+ }
+} -edit_request {
+ db_1row get_section {}
+} -edit_data {
+ db_dml update_check {}
+
+} -on_submit {
+ ad_returnredirect "one-a?assessment_id=$assessment_id"
+}
\ No newline at end of file
Index: openacs-4/packages/assessment/www/admin/section-select.tcl~
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/section-select.tcl~,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/assessment/www/admin/section-select.tcl~ 24 Jan 2005 17:53:05 -0000 1.1
@@ -0,0 +1,52 @@
+ad_page_contract {
+
+
+ @author Anny Flores (annyflores@viaro.net) Viaro Networks (www.viaro.net)
+ @date 2005-01-07
+
+ This page allows to add branches or actions to the question and its choices.
+} {
+ assessment_id:integer
+ inter_item_check_id:integer
+ section_id:integer
+}
+
+as::assessment::data -assessment_id $assessment_id
+if {![info exists assessment_data(assessment_id)]} {
+ ad_return_complaint 1 "[_ assessment.Requested_assess_does]"
+ ad_script_abort
+}
+set new_assessment_revision [db_string get_assessment_id {select max(revision_id) from cr_revisions where item_id=:assessment_id}]
+set new_section_revision [db_string get_section_id {select max(revision_id) from cr_revisions where item_id=:section_id}]
+
+set sections_list [db_list_of_lists get_sections {}]
+
+set title $assessment_data(title)
+set context_bar [ad_context_bar [list "one-a?assessment_id=$assessment_id" $title] "$title Checks"]
+
+set title "Section Select"
+ad_form -name get_section -form {
+ inter_item_check_id:key
+ {assessment_id:text(hidden)
+ {value $assessment_id}}
+ {section_id:text(hidden)
+ {value $section_id}}
+
+ {section_id_to:text(select)
+ {label "Choose a section to branch"}
+ {options $sections_list}
+ {help_text "The section where the condition will lead you."}
+ }
+
+} -new_data {
+ db_transaction {
+ db_dml update_check {}
+ }
+} -edit_request {
+ db_1row get_section {}
+} -edit_data {
+ db_dml update_check {}
+
+} -on_submit {
+ ad_returnredirect "one-a?assessment_id=$assessment_id"
+}
\ No newline at end of file
Index: openacs-4/packages/assessment/www/admin/section-select.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/section-select.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/assessment/www/admin/section-select.xql 24 Jan 2005 17:53:05 -0000 1.1
@@ -0,0 +1,33 @@
+
+
+
+
+
+ select cr.title,s.section_id
+ from as_sections s, cr_revisions cr, cr_items ci, as_assessment_section_map asm
+ where ci.item_id = cr.item_id
+ and cr.revision_id = s.section_id
+ and s.section_id = asm.section_id and s.section_id <> :section_id and
+ asm.sort_order > (select sort_order from as_assessment_section_map where
+ assessment_id = :new_assessment_revision and section_id = :section_id)
+ and asm.assessment_id = :new_assessment_revision
+ order by asm.sort_order
+
+
+
+
+
+
+ update as_inter_item_checks set section_id_to =:section_id_to where
+ inter_item_check_id = :inter_item_check_id
+
+
+
+
+
+ select section_id_to from as_inter_item_checks where inter_item_check_id=:inter_item_check_id
+
+
+
+
+
Index: openacs-4/packages/assessment/www/admin/section-select.xql~
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/section-select.xql~,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/assessment/www/admin/section-select.xql~ 24 Jan 2005 17:53:05 -0000 1.1
@@ -0,0 +1,26 @@
+
+
+
+
+
+ select cr.title,s.section_id
+ from as_sections s, cr_revisions cr, cr_items ci, as_assessment_section_map asm
+ where ci.item_id = cr.item_id
+ and cr.revision_id = s.section_id
+ and s.section_id = asm.section_id and s.section_id <> :section_id and
+ asm.sort_order > (select sort_order from as_assessment_section_map where
+ assessment_id = :new_assessment_revision and section_id = :section_id)
+ and asm.assessment_id = :new_assessment_revision
+ order by asm.sort_order
+
+
+
+
+
+
+ update as_inter_item_checks set section_id_to =:section_id_to where
+ inter_item_check_id = :inter_item_check_id
+
+
+
+