/[gnats]/gnats/contrib/tkgnats/tkquerypr.tcl
ViewVC logotype

Diff of /gnats/contrib/tkgnats/tkquerypr.tcl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by mcr, Thu Dec 13 05:00:05 2001 UTC revision 1.5 by mcr, Wed Jun 12 03:41:17 2002 UTC
# Line 872  proc build_date_query_qualifier {tag d w Line 872  proc build_date_query_qualifier {tag d w
872      if {$mode == "socket"} {      if {$mode == "socket"} {
873          # XXX GNATS 4          # XXX GNATS 4
874          #set str "$gnatsd_commands($tag.$when) $date"          #set str "$gnatsd_commands($tag.$when) $date"
875            if { $when == "after" } {
876                set str "$tag > \"$date\""
877            } {
878                set str "$tag < \"$date\""
879            }
880      } {      } {
881          set str "--$var=$date"          set str "--$var=$date"
882      }      }
# Line 1126  proc save_query_cmd {mode} { Line 1131  proc save_query_cmd {mode} {
1131          textset Number $prid_list $Query(stextparent,Number)          textset Number $prid_list $Query(stextparent,Number)
1132          if {$mode != "save"} {          if {$mode != "save"} {
1133              set Query(default__query) [list proc default__query {flds} {return 1}]              set Query(default__query) [list proc default__query {flds} {return 1}]
1134              if {$TkGnats(GNATS_ACCESS_METHOD) == "batch"} {              set Query(query_pr_opts) ""
1135                  set Query(query_pr_opts) ""              foreach prid $prid_list {
1136                  foreach prid $prid_list {                  append Query(query_pr_opts) "Number==$prid_list|"
1137                      append Query(query_pr_opts) "Number==$prid_list|"              }
1138                  }              append Query(query_pr_opts) " "
                 append Query(query_pr_opts) " "  
             } {  
                 set Query(query_pr_opts) "$Query(query_mode) $prid_list"  
             }  
1139              set Query(by_id_only) 1              set Query(by_id_only) 1
1140              query_cmd $prid_list              query_cmd $prid_list
1141              return 1              return 1

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26