Changeset 124

Timestamp:

Dec 4, 2009 5:00:48 PM (14 years ago)

Author:

toby

Message:

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

File:

• trunk/readexp.tcl (modified) (2 diffs, 3 props)

trunk/readexp.tcl

@@ -685 +685 @@
 #     foextract  -- Fobs extraction flag (*)
 proc histinfo {histlist parm "action get" "value {}"} {
+    global expgui
     foreach hist $histlist {
         if {$hist < 10} {
@@ -693 +694 @@
         switch -glob ${parm}-$action {
             foextract-get {
-                if {[string toupper [string range [readexp "${key} EPHAS" ] 49 49]] == "T"} {
+                set line [readexp "${key} EPHAS"]
+                # add a EPHAS if not exists
+                if {$line == {}} {
+                    makeexprec "${key} EPHAS"
+                    # expedt defaults this to "F", but I think "T" is better
+                    setexp "${key} EPHAS" "T" 50 1
+                    if $expgui(debug) {puts "Warning: creating a ${key} EPHAS record"}
+                }
+                if {[string toupper [string range $line 49 49]] == "T"} {
                     return 1
                 }