/[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.12 by mcr, Mon May 5 19:45:16 2003 UTC revision 1.13 by mcr, Mon May 5 19:46:34 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"      chk_fld field(>Closed-Date)   "\n" 0
3344      chk_fld field(>Start-Date)    "\n"      chk_fld field(>Start-Date)    "\n" 0
3345      chk_fld field(>End-Date)      "\n"      chk_fld field(>End-Date)      "\n" 0
3346      chk_fld field(>Cost)          ""      chk_fld field(>Cost)          ""   0
3347      chk_fld field(>Originator)    Unknown      chk_fld field(>Originator)    Unknown
3348      chk_fld field(>Responsible)   gnats      chk_fld field(>Responsible)   gnats
3349      chk_fld field(>Category)      pending      chk_fld field(>Category)      pending
# Line 3353  proc load_field_defaults {field_array} { Line 3353  proc load_field_defaults {field_array} {
3353      chk_fld field(>Environment)   "\n"      chk_fld field(>Environment)   "\n"
3354      chk_fld field(>Audit-Trail)   "\n"      chk_fld field(>Audit-Trail)   "\n"
3355      chk_fld field(>How-To-Repeat) "\n"      chk_fld field(>How-To-Repeat) "\n"
3356      chk_fld field(>IPsec-barf-location) "http://"      chk_fld field(>IPsec-barf-location) "http://" 0
3357      chk_fld field(>IPsec-look)    "\n"      chk_fld field(>IPsec-look)    "\n"       0
3358      chk_fld field(Reply-To)       ""      chk_fld field(Reply-To)       ""         0
3359    
3360      chk_fld field(X-GNATS-Notify) nobody      chk_fld field(X-GNATS-Notify) nobody 0
3361    
3362      # It's ok if these are missing      # It's ok if these are missing
3363      chk_fld field(>Unformatted)   "\n" 0      chk_fld field(>Unformatted)   "\n" 0
# Line 3365  proc load_field_defaults {field_array} { Line 3365  proc load_field_defaults {field_array} {
3365      chk_fld field(>Release-Note)  "\n" 0      chk_fld field(>Release-Note)  "\n" 0
3366    
3367      if {$TkGnats(ReleaseBased)} {      if {$TkGnats(ReleaseBased)} {
3368          chk_fld field(>Keywords)          ""          chk_fld field(>Keywords)          "" 0
3369          chk_fld field(>$TkGnats(Quarter)) ""          chk_fld field(>$TkGnats(Quarter)) "" 0
3370          chk_fld field(>Date-Required)     ""          chk_fld field(>Date-Required)     "" 0
3371      }      }
3372    
3373      return $mlist      return $mlist

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

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