Index: openacs-4/packages/xotcl-request-monitor/www/long-calls.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-request-monitor/www/long-calls.adp,v
diff -u -r1.3.2.3 -r1.3.2.4
--- openacs-4/packages/xotcl-request-monitor/www/long-calls.adp	30 Oct 2022 12:13:52 -0000	1.3.2.3
+++ openacs-4/packages/xotcl-request-monitor/www/long-calls.adp	31 Oct 2022 07:14:03 -0000	1.3.2.4
@@ -18,15 +18,16 @@
 </div>
 
 <div style="float:right">
-&nbsp;Lines: <a href="long-calls?lines=20">20</a>,
-<a href="long-calls?lines=50">50</a>,
-<a href="long-calls?lines=100">100</a>,
-<a href="long-calls?lines=200">200</a>,
-<a href="long-calls?lines=500">500</a>,
-<a href="long-calls?lines=1000">1000</a>,
-<a href="long-calls?lines=2000&amp;readsize=100000">2000</a>,
-<a href="long-calls?lines=5000&amp;readsize=500000">5000</a>,
-<a href="long-calls?lines=10000&amp;readsize=500000">10000</a>
+&nbsp;Lines:
+<a href="long-calls?lines=20@filterQuery;literal@">20</a>,
+<a href="long-calls?lines=50@filterQuery;literal@">50</a>,
+<a href="long-calls?lines=100@filterQuery;literal@">100</a>,
+<a href="long-calls?lines=200@filterQuery;literal@">200</a>,
+<a href="long-calls?lines=500@filterQuery;literal@">500</a>,
+<a href="long-calls?lines=1000@filterQuery;literal@">1000</a>,
+<a href="long-calls?lines=2000&amp;readsize=100000@filterQuery;literal@">2000</a>,
+<a href="long-calls?lines=5000&amp;readsize=500000@filterQuery;literal@">5000</a>,
+<a href="long-calls?lines=10000&amp;readsize=500000@filterQuery;literal@">10000</a>
 &nbsp;
 </div>
 
@@ -35,11 +36,11 @@
       <tr>
         <th class='text-right'>Queuetime</th>
         <th class='text-right'>Filtertime</th>
-	<th class='text-right'>Runtime</th>
-	<th class='text-right'>Totaltime</th>
+        <th class='text-right'>Runtime</th>
+        <th class='text-right'>Totaltime</th>
         <th>Date</th>
         <th>User ID</th>
-        <th>IP</th>	
+        <th>IP</th>
         <th>Pool</th>
         <th>URL</th>
       </tr>
Index: openacs-4/packages/xotcl-request-monitor/www/long-calls.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-request-monitor/www/long-calls.tcl,v
diff -u -r1.4.2.9 -r1.4.2.10
--- openacs-4/packages/xotcl-request-monitor/www/long-calls.tcl	30 Oct 2022 12:13:52 -0000	1.4.2.9
+++ openacs-4/packages/xotcl-request-monitor/www/long-calls.tcl	31 Oct 2022 07:14:03 -0000	1.4.2.10
@@ -73,6 +73,10 @@
     dict set foundPoolsDict [lindex $line 12] 1
 }
 #
+# Remember pool settings for the number-of-lines filter
+#
+set filterQuery &[export_vars {pool:multiple}]
+#
 # Map in the found pools empty to "default"
 #
 set foundPools [lmap p [lsort [dict keys $foundPoolsDict]] {
@@ -84,6 +88,7 @@
 #
 if {$pool eq ""} {
     set pool $foundPools
+    set filterQuery ""
 }
 set inputPools $pool