Changes to gnats/contrib/tkgnats/tkquerypr.tcl

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