diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-03-14 18:45:13 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-03-14 18:45:13 (GMT) |
commit | b75b343308ea2e058ab38182cf5d2f0d63a1558a (patch) | |
tree | 5f52e90823e2b9a771d9201e03450736affa1dda /ds9/library | |
parent | 5653c1de66efb783b20b2fe6576fb06b357c005b (diff) | |
download | blt-b75b343308ea2e058ab38182cf5d2f0d63a1558a.zip blt-b75b343308ea2e058ab38182cf5d2f0d63a1558a.tar.gz blt-b75b343308ea2e058ab38182cf5d2f0d63a1558a.tar.bz2 |
fix close fits header
Diffstat (limited to 'ds9/library')
-rw-r--r-- | ds9/library/header.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ds9/library/header.tcl b/ds9/library/header.tcl index a5836db..76698f7 100644 --- a/ds9/library/header.tcl +++ b/ds9/library/header.tcl @@ -164,7 +164,7 @@ proc ProcessHeaderCmd {varname iname} { if {$current(frame) != {}} { switch -- $item { close { - set vvarname "hd[string range $current(frame) end end]-$jj" + set vvarname "hd-$current(frame)-$jj" upvar #0 $vvarname vvar global $vvarname |