Changes to gnats/contrib/tkgnats/tkquerypr.tcl
Michael Richardson <[email protected]> Tue, 07 Jan 2003 02:07:09 -0500
| Newsgroups | gmane.comp.bug-tracking.gnats.patches |
|---|---|
| Message-ID | <[email protected]> |
Index: gnats/contrib/tkgnats/tkquerypr.tcl
diff -c gnats/contrib/tkgnats/tkquerypr.tcl:1.6 gnats/contrib/tkgnats/tkquerypr.tcl:1.7
*** gnats/contrib/tkgnats/tkquerypr.tcl:1.6 Wed Dec 18 23:17:54 2002
--- gnats/contrib/tkgnats/tkquerypr.tcl Tue Jan 7 02:07:09 2003
***************
*** 265,272 ****
set Query(query_pr_opts) "$prid_list"
} {
set Query(query_pr_opts) ""
foreach prid $prid_list {
! append Query(query_pr_opts) "Number==$prid_list|"
}
append Query(query_pr_opts) " "
}
--- 265,274 ----
set Query(query_pr_opts) "$prid_list"
} {
set Query(query_pr_opts) ""
+ set sep ""
foreach prid $prid_list {
! append Query(query_pr_opts) [concat $sep "Number==$prid_list"]
! set sep "|"
}
append Query(query_pr_opts) " "
}
***************
*** 1132,1139 ****
if {$mode != "save"} {
set Query(default__query) [list proc default__query {flds} {return 1}]
set Query(query_pr_opts) ""
foreach prid $prid_list {
! append Query(query_pr_opts) "Number==$prid_list|"
}
append Query(query_pr_opts) " "
set Query(by_id_only) 1
--- 1134,1143 ----
if {$mode != "save"} {
set Query(default__query) [list proc default__query {flds} {return 1}]
set Query(query_pr_opts) ""
+ set sep ""
foreach prid $prid_list {
! append Query(query_pr_opts) [concat $sep "Number==$prid_list"]
! set sep "|"
}
append Query(query_pr_opts) " "
set Query(by_id_only) 1