OpenACS

gustafn
committed
MAIN:gustafn:20241025110513
on 25 Oct 24
reduced verbosity
openacs-4/.../xotcl-request-monitor/www/long-calls.tcl (+2 -2)
61 61     # Trim potential partial lines
62 62     #
63 63     set offset [lindex $offsets 0 0]
64 64 }
65 65 set c1 [string range $c $offset+1 end]
66 66 set logLines [lreverse [split $c1 \n]]
67 67
68 68 #
69 69 # Determine the pools which where used in line range of the log lines,
70 70 # that we are looking at?
71 71 #
72 72 set foundPoolsDict ""
73 73 foreach line $logLines {
74 74     if {$line eq ""} continue
75 75     dict set foundPoolsDict [lindex $line 12] 1
76 76 }
77 77 #
78 78 # Remember pool settings for the number-of-lines filter
79 79 #
80 80 set filterQuery &[export_vars {pool:multiple lines by_starttime}]
81   ns_log notice "filterQuery = '$filterQuery'"
  81 #ns_log notice "filterQuery = '$filterQuery'"
82 82
83 83 set toggle_request_start [expr {!$by_starttime}]
84 84 set toggle_request_start_url [export_vars -base long-calls {pool:multiple lines {by_starttime $toggle_request_start}}]
85 85 set toggle_request_time_title [expr {$by_starttime ? "Click to order by endtime" : "Click to order by starttime"}]
86 86 set base_sort_url [export_vars -base long-calls {pool:multiple lines}]
87 87
88 88 #
89 89 # Map in the found pools empty to "default"
90 90 #
91 91 set foundPools [lmap p [lsort [dict keys $foundPoolsDict]] {
92 92     expr {$p eq "" ? "default" : $p}
93 93 }]
94 94
95 95 #
96 96 # In case, no "pool" filter value was provided, show all found pools.
97 97 #
98 98 if {$pool eq ""} {
99 99     set pool $foundPools
100 100     set filterQuery ""
101 101 }