Changes to gnats/contrib/tkgnats/tkquerypr.tcl

[Michael Richardson]

Index: gnats/contrib/tkgnats/tkquerypr.tcl
diff -c gnats/contrib/tkgnats/tkquerypr.tcl:1.4 
gnats/contrib/tkgnats/tkquerypr.tcl:1.5
*** gnats/contrib/tkgnats/tkquerypr.tcl:1.4     Thu Dec 13 00:00:05 2001
--- gnats/contrib/tkgnats/tkquerypr.tcl Tue Jun 11 23:41:17 2002
***************
*** 872,877 ****
--- 872,882 ----
      if {$mode == "socket"} {
        # XXX GNATS 4
          #set str "$gnatsd_commands($tag.$when) $date"
+       if { $when == "after" } {
+           set str "$tag > \"$date\""
+       } {
+           set str "$tag < \"$date\""
+       }
      } {
          set str "--$var=$date"
      }
***************
*** 1126,1140 ****
          textset Number $prid_list $Query(stextparent,Number)
          if {$mode != "save"} {
              set Query(default__query) [list proc default__query {flds} 
{return 1}]
!             if {$TkGnats(GNATS_ACCESS_METHOD) == "batch"} {
!               set Query(query_pr_opts) ""
!               foreach prid $prid_list {
!                   append Query(query_pr_opts) "Number==$prid_list|"
!               }
!               append Query(query_pr_opts) " "
!             } {
!                 set Query(query_pr_opts) "$Query(query_mode) $prid_list"
!             }
              set Query(by_id_only) 1
              query_cmd $prid_list
              return 1
--- 1131,1141 ----
          textset Number $prid_list $Query(stextparent,Number)
          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
              query_cmd $prid_list
              return 1