Changes to gnats/contrib/tkgnats/tkquerypr.tcl

[Michael Richardson]

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