Changeset 124 for trunk/readexp.tcl


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

# on 2000/02/02 17:42:20, toby did:
create HST xx EPHAS records if missing

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/readexp.tcl

    • Property rcs:date changed from 1999/11/17 22:05:04 to 2000/02/02 17:42:20
    • Property rcs:lines changed from +30 -2 to +12 -3
    • Property rcs:rev changed from 1.11 to 1.12
    r120 r124  
    685685#     foextract  -- Fobs extraction flag (*)
    686686proc histinfo {histlist parm "action get" "value {}"} {
     687    global expgui
    687688    foreach hist $histlist {
    688689        if {$hist < 10} {
     
    693694        switch -glob ${parm}-$action {
    694695            foextract-get {
    695                 if {[string toupper [string range [readexp "${key} EPHAS" ] 49 49]] == "T"} {
     696                set line [readexp "${key} EPHAS"]
     697                # add a EPHAS if not exists
     698                if {$line == {}} {
     699                    makeexprec "${key} EPHAS"
     700                    # expedt defaults this to "F", but I think "T" is better
     701                    setexp "${key} EPHAS" "T" 50 1
     702                    if $expgui(debug) {puts "Warning: creating a ${key} EPHAS record"}
     703                }
     704                if {[string toupper [string range $line 49 49]] == "T"} {
    696705                    return 1
    697706                }
Note: See TracChangeset for help on using the changeset viewer.