/[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.6 by mcr, Thu Dec 19 04:17:54 2002 UTC revision 1.7 by mcr, Tue Jan 7 07:07:09 2003 UTC
# Line 265  proc query_from_selection {} { Line 265  proc query_from_selection {} {
265          set Query(query_pr_opts) "$prid_list"          set Query(query_pr_opts) "$prid_list"
266      } {      } {
267          set Query(query_pr_opts) ""          set Query(query_pr_opts) ""
268            set sep ""
269          foreach prid $prid_list {          foreach prid $prid_list {
270              append Query(query_pr_opts) "Number==$prid_list|"              append Query(query_pr_opts) [concat $sep "Number==$prid_list"]
271                set sep "|"
272          }          }
273          append Query(query_pr_opts) " "          append Query(query_pr_opts) " "
274      }      }
# Line 1132  proc save_query_cmd {mode} { Line 1134  proc save_query_cmd {mode} {
1134          if {$mode != "save"} {          if {$mode != "save"} {
1135              set Query(default__query) [list proc default__query {flds} {return 1}]              set Query(default__query) [list proc default__query {flds} {return 1}]
1136              set Query(query_pr_opts) ""              set Query(query_pr_opts) ""
1137                set sep ""
1138              foreach prid $prid_list {              foreach prid $prid_list {
1139                  append Query(query_pr_opts) "Number==$prid_list|"                  append Query(query_pr_opts) [concat $sep "Number==$prid_list"]
1140                    set sep "|"
1141              }              }
1142              append Query(query_pr_opts) " "              append Query(query_pr_opts) " "
1143              set Query(by_id_only) 1              set Query(by_id_only) 1

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

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