Index: openacs-4/packages/assessment/tcl/as-list-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-list-procs.tcl,v
diff -u -r1.12.2.3 -r1.12.2.4
--- openacs-4/packages/assessment/tcl/as-list-procs.tcl	27 Jan 2022 09:23:59 -0000	1.12.2.3
+++ openacs-4/packages/assessment/tcl/as-list-procs.tcl	28 Mar 2023 12:43:51 -0000	1.12.2.4
@@ -25,9 +25,7 @@
     } {
         # Process search items
         set paramlist [list]
-        if { [set form [rp_getform]] ne "" } {
-            set paramlist [list]
-
+        if { [set form [ns_getform]] ne "" } {
             foreach param [ns_set keys $form] {
                 if { [regexp -nocase {^as_item_id_(\d+)$} $param match one_item_id] } {
                     lappend paramlist ${param}:multiple
@@ -50,14 +48,12 @@
     } {
         # Process search items
         set as_item_ids [list]
-        if { [set form [rp_getform]] ne "" } {
-            set paramlist [list]
-
+        if { [set form [ns_getform]] ne "" } {
             foreach param [ns_set keys $form] {
-            if { [regexp -nocase {^as_item_id_(\d+)$} $param match one_item_id] } {
-                lappend as_item_ids $one_item_id
+                if { [regexp -nocase {^as_item_id_(\d+)$} $param match one_item_id] } {
+                    lappend as_item_ids $one_item_id
+                }
             }
-            }
         }
         return $as_item_ids
     }