Changes to gnats/contrib/tkgnats/tkviewpr.tcl

[Michael Richardson]

Index: gnats/contrib/tkgnats/tkviewpr.tcl
diff -c gnats/contrib/tkgnats/tkviewpr.tcl:1.2 
gnats/contrib/tkgnats/tkviewpr.tcl:1.3
*** gnats/contrib/tkgnats/tkviewpr.tcl:1.2      Wed Oct 27 02:11:58 1999
--- gnats/contrib/tkgnats/tkviewpr.tcl  Mon Mar 31 21:48:28 2003
***************
*** 214,219 ****
--- 214,225 ----
  proc tkviewpr_formatted {prid} {
      global TkGnats Tkviewpr flds env current_multi_text
  
+     set Tkviewpr(shortflds) {
+       >Cost
+       >Release
+       >Responsible
+     }
+ 
      set Tkviewpr(radioflds) {
          >State
          >Confidential
***************
*** 226,236 ****
          >Description
          >How-To-Repeat
          >Environment
!         >Organization
          >Fix
          >Audit-Trail
          >Unformatted
          >Release-Note
      }
      
      set current_multi_text ""
--- 232,243 ----
          >Description
          >How-To-Repeat
          >Environment
!       >IPsec-look
          >Fix
          >Audit-Trail
          >Unformatted
          >Release-Note
+         >Organization
      }
      
      set current_multi_text ""
***************
*** 296,302 ****
      
      view_action_bar $prid
  
!     set flist [list Arrival-Date Last-Modified Closed-Date Class State 
Priority Severity Confidential Category Submitter-Id Responsible Originator 
X-GNATS-Notify Release Synopsis]
      if {$TkGnats(ReleaseBased)} {
          lappend flist  Keywords $TkGnats(Quarter) Date-Required
      }
--- 303,309 ----
      
      view_action_bar $prid
  
!     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]
      if {$TkGnats(ReleaseBased)} {
          lappend flist  Keywords $TkGnats(Quarter) Date-Required
      }