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

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

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

revision 1.2 by jsm, Wed Oct 27 06:11:58 1999 UTC revision 1.3 by mcr, Tue Apr 1 02:48:28 2003 UTC
# Line 214  proc view_action_bar {prid} { Line 214  proc view_action_bar {prid} {
214  proc tkviewpr_formatted {prid} {  proc tkviewpr_formatted {prid} {
215      global TkGnats Tkviewpr flds env current_multi_text      global TkGnats Tkviewpr flds env current_multi_text
216    
217        set Tkviewpr(shortflds) {
218            >Cost
219            >Release
220            >Responsible
221        }
222    
223      set Tkviewpr(radioflds) {      set Tkviewpr(radioflds) {
224          >State          >State
225          >Confidential          >Confidential
# Line 226  proc tkviewpr_formatted {prid} { Line 232  proc tkviewpr_formatted {prid} {
232          >Description          >Description
233          >How-To-Repeat          >How-To-Repeat
234          >Environment          >Environment
235          >Organization          >IPsec-look
236          >Fix          >Fix
237          >Audit-Trail          >Audit-Trail
238          >Unformatted          >Unformatted
239          >Release-Note          >Release-Note
240            >Organization
241      }      }
242            
243      set current_multi_text ""      set current_multi_text ""
# Line 296  proc tkviewpr_formatted {prid} { Line 303  proc tkviewpr_formatted {prid} {
303            
304      view_action_bar $prid      view_action_bar $prid
305    
306      set flist [list Arrival-Date Last-Modified Closed-Date Class State Priority Severity Confidential Category Submitter-Id Responsible Originator X-GNATS-Notify Release Synopsis]      set flist [list Arrival-Date Last-Modified Closed-Date Class State Priority Severity Confidential Category Submitter-Id Responsible Originator X-GNATS-Notify Release Synopsis IPsec-barf-location Cost]
307      if {$TkGnats(ReleaseBased)} {      if {$TkGnats(ReleaseBased)} {
308          lappend flist  Keywords $TkGnats(Quarter) Date-Required          lappend flist  Keywords $TkGnats(Quarter) Date-Required
309      }      }

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

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