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

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

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

revision 1.14 by mcr, Wed May 7 17:21:36 2003 UTC revision 1.15 by mcr, Fri May 9 03:14:15 2003 UTC
# Line 3340  proc load_field_defaults {field_array} { Line 3340  proc load_field_defaults {field_array} {
3340      chk_fld field(>Class)         [lindex $TkGnats(ClassesList) 0]      chk_fld field(>Class)         [lindex $TkGnats(ClassesList) 0]
3341      chk_fld field(>Arrival-Date)  [clock format [clock seconds]]      chk_fld field(>Arrival-Date)  [clock format [clock seconds]]
3342      chk_fld field(>Last-Modified) "\n"      chk_fld field(>Last-Modified) "\n"
3343      chk_fld field(>Closed-Date)   "\n" 0      chk_fld field(>Closed-Date)   "\n"
3344      chk_fld field(>Start-Date)    "\n" 0      chk_fld field(>Start-Date)    "\n"
3345      chk_fld field(>End-Date)      "\n" 0      chk_fld field(>End-Date)      "\n"
3346      chk_fld field(>Cost)          ""   0      chk_fld field(>Cost)          ""  
3347      chk_fld field(>XrefPR)        ""   0      chk_fld field(>XrefPR)        ""  
3348      chk_fld field(>Originator)    Unknown      chk_fld field(>Originator)    Unknown
3349      chk_fld field(>Responsible)   gnats      chk_fld field(>Responsible)   gnats
3350      chk_fld field(>Category)      pending      chk_fld field(>Category)      pending
# Line 3355  proc load_field_defaults {field_array} { Line 3355  proc load_field_defaults {field_array} {
3355      chk_fld field(>Audit-Trail)   "\n"      chk_fld field(>Audit-Trail)   "\n"
3356      chk_fld field(>How-To-Repeat) "\n"      chk_fld field(>How-To-Repeat) "\n"
3357      chk_fld field(>IPsec-barf-location) "http://" 0      chk_fld field(>IPsec-barf-location) "http://" 0
3358      chk_fld field(>IPsec-look)    "\n"       0      chk_fld field(>IPsec-look)    "\n"
3359      chk_fld field(Reply-To)       ""         0      chk_fld field(Reply-To)       ""  
3360    
3361      chk_fld field(X-GNATS-Notify) nobody 0      chk_fld field(X-GNATS-Notify) nobody 0
3362    
3363      # It's ok if these are missing      # It's ok if these are missing
3364      chk_fld field(>Unformatted)   "\n" 0      chk_fld field(>Unformatted)   "\n" 0
3365      chk_fld field(>Fix)           "\n" 0      chk_fld field(>Fix)           "\n"
3366      chk_fld field(>Release-Note)  "\n" 0      chk_fld field(>Release-Note)  "\n"
3367    
3368      if {$TkGnats(ReleaseBased)} {      if {$TkGnats(ReleaseBased)} {
3369          chk_fld field(>Keywords)          "" 0          chk_fld field(>Keywords)          "" 0

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15

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