Changeset 702


Ignore:
Timestamp:
Dec 4, 2009 5:10:35 PM (11 years ago)
Author:
toby
Message:

# on 2003/05/22 21:45:46, toby did:
cleanup ABSCOR usage (blank = type 0) -- fix reported bug?

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/readexp.tcl

    • Property rcs:date changed from 2003/04/10 22:14:21 to 2003/05/22 21:45:46
    • Property rcs:lines changed from +387 -8 to +5 -3
    • Property rcs:rev changed from 1.38 to 1.39
    r674 r702  
    17071707            }
    17081708            abstype-get {
    1709                 return [string trim [string range [readexp "${key}ABSCOR"] 40 44]]
     1709                set val [string trim [string range [readexp "${key}ABSCOR"] 40 44]]
     1710                if {$val == ""} {set val 0}
     1711                return $val
    17101712            }
    17111713            abstype-set {
Note: See TracChangeset for help on using the changeset viewer.