Fisheye: Tag 1.2.20.1 refers to a dead (removed) revision in file `openacs-4/packages/acs-templating/tcl/list-procs-oracle.xql'.
Fisheye: No comparison available. Pass `N' to diff?
Fisheye: Tag 1.3.2.1 refers to a dead (removed) revision in file `openacs-4/packages/acs-templating/tcl/list-procs-postgresql.xql'.
Fisheye: No comparison available. Pass `N' to diff?
Index: openacs-4/packages/acs-templating/tcl/list-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/list-procs.tcl,v
diff -u -r1.94.2.15 -r1.94.2.16
--- openacs-4/packages/acs-templating/tcl/list-procs.tcl 31 May 2021 12:35:58 -0000 1.94.2.15
+++ openacs-4/packages/acs-templating/tcl/list-procs.tcl 4 Oct 2021 15:24:02 -0000 1.94.2.16
@@ -591,7 +591,10 @@
set list_properties(page_query_original) $list_properties(page_query_substed)
# Now wrap the provided query with the limit information
- set list_properties(page_query_substed) [db_map pagination_query]
+ set list_properties(page_query_substed) [subst {
+ $list_properties(page_query_substed) offset [expr {$first_row - 1}]
+ fetch first [expr {$last_row - $first_row + 1}] rows only
+ }]
# Generate a paginator name which includes the page group we're in
# and all the filter values, so the paginator cahing works properly
Index: openacs-4/packages/assessment/tcl/as-item-data-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-item-data-procs-oracle.xql,v
diff -u -r1.3 -r1.3.10.1
--- openacs-4/packages/assessment/tcl/as-item-data-procs-oracle.xql 15 May 2007 20:14:16 -0000 1.3
+++ openacs-4/packages/assessment/tcl/as-item-data-procs-oracle.xql 4 Oct 2021 15:30:01 -0000 1.3.10.1
@@ -16,23 +16,4 @@
-
-
-
- select * from (
- select d.item_data_id, d.boolean_answer, d.clob_answer, d.numeric_answer,
- d.integer_answer, d.text_answer, d.timestamp_answer, d.content_answer,
- d.points
- from as_session_item_map m, as_item_data d
- where d.session_id = :session_id
- and d.subject_id = :subject_id
- and d.as_item_id = :as_item_id
- and m.session_id = d.session_id
- and m.item_data_id = d.item_data_id
-
- order by d.item_data_id desc) data
- where rownum = 1
-
-
-
Index: openacs-4/packages/assessment/tcl/as-item-data-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-item-data-procs-postgresql.xql,v
diff -u -r1.3 -r1.3.10.1
--- openacs-4/packages/assessment/tcl/as-item-data-procs-postgresql.xql 15 May 2007 20:14:16 -0000 1.3
+++ openacs-4/packages/assessment/tcl/as-item-data-procs-postgresql.xql 4 Oct 2021 15:30:02 -0000 1.3.10.1
@@ -15,22 +15,4 @@
-
-
-
- select d.item_data_id, d.boolean_answer, d.clob_answer, d.numeric_answer,
- d.integer_answer, d.text_answer, d.timestamp_answer, d.content_answer,
- d.points
- from as_session_item_map m, as_item_data d
- where d.session_id = :session_id
- and d.subject_id = :subject_id
- and d.as_item_id = :as_item_id
- and m.session_id = d.session_id
- and m.item_data_id = d.item_data_id
-
- order by d.item_data_id desc
- limit 1
-
-
-
Index: openacs-4/packages/assessment/tcl/as-item-data-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-item-data-procs.tcl,v
diff -u -r1.16 -r1.16.2.1
--- openacs-4/packages/assessment/tcl/as-item-data-procs.tcl 7 Aug 2017 23:48:03 -0000 1.16
+++ openacs-4/packages/assessment/tcl/as-item-data-procs.tcl 4 Oct 2021 15:30:02 -0000 1.16.2.1
@@ -112,7 +112,20 @@
if {$session_id ne "" && [db_0or1row response {} -column_array response]} {
# response found in session
set item_data_id $response(item_data_id)
- set response(choice_answer) [db_list mc_response {}]
+ set response(choice_answer) [db_list mc_response {
+ select d.item_data_id, d.boolean_answer, d.clob_answer, d.numeric_answer,
+ d.integer_answer, d.text_answer, d.timestamp_answer, d.content_answer,
+ d.points
+ from as_session_item_map m, as_item_data d
+ where d.session_id = :session_id
+ and d.subject_id = :subject_id
+ and d.as_item_id = :as_item_id
+ and m.session_id = d.session_id
+ and m.item_data_id = d.item_data_id
+
+ order by d.item_data_id desc
+ fetch first 1 rows only
+ }]
return [array get response]
} else {
# no response given in that session