diff options
-rw-r--r-- | ds9/library/hvsup.tcl | 2 | ||||
-rw-r--r-- | ds9/library/imgsvr.tcl | 6 |
2 files changed, 4 insertions, 4 deletions
diff --git a/ds9/library/hvsup.tcl b/ds9/library/hvsup.tcl index 85a0b3b..da6ab40 100644 --- a/ds9/library/hvsup.tcl +++ b/ds9/library/hvsup.tcl @@ -934,7 +934,7 @@ proc HVParseSingle {varname} { "text/html" - "text/plain" - "application/octet-stream" { - # its never fails, someone can't get there mime types correct. + # it never fails, someone can't get there mime types correct. # Override the mime type based on path ParseURL $var(url) r diff --git a/ds9/library/imgsvr.tcl b/ds9/library/imgsvr.tcl index 3bfa845..273fe09 100644 --- a/ds9/library/imgsvr.tcl +++ b/ds9/library/imgsvr.tcl @@ -378,8 +378,10 @@ proc IMGSVRParse {varname} { } switch -- [string tolower $var(mime)] { + "text/html" - + "text/plain" - "application/octet-stream" { - # its never fails, someone can't get there mime types correct. + # it never fails, someone can't get there mime types correct. # Override the mime type based on path switch -- [file extension $var(fn)] { .bz2 {set var(encoding) bzip2} @@ -417,8 +419,6 @@ proc IMGSVRParse {varname} { "image/x-zfits" - "binary/x-zfits" {set var(encoding) pack} - "text/html" - - "text/plain" - default { # NOTE: error notices may come as text/html eval [list $var(proc,error) $varname [msgcat::mc {No Data Available}]] |