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 |
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 "" |
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 |
} |
} |