Changeset 6551 for trunk

Timestamp:

Sep 22, 2016, 4:14:15 PM (8 years ago)

Author:

ldelgass

Message:

Add client support for WMS-T

Location:

trunk/gui/scripts

Files:

• map.tcl (modified) (2 diffs)
• mapviewer.tcl (modified) (1 diff)

trunk/gui/scripts/map.tcl

@@ -463 +463 @@
                 $_tree set $child "wms.$key" $value
             }
+            # These are optional
+            foreach key { times frameSeconds } {
+                set value [$layers get $layer.wms.$key]
+                if { $value != "" } {
+                    if {$key == "times"} {
+                        # Normalize whitespace
+                        regsub -all "\[ \t\r\n\]+" [string trim $value] " " value
+                    }
+                    $_tree set $child "wms.$key" $value
+                }
+            }
             $_tree set $child "driver" "wms"
         }
@@ -845 +856 @@
         "wms" {
             array set params $driverParamArray
-            foreach key { url layers format transparent } {
+            foreach key { url layers format transparent times frameSeconds } {
                 if {[info exists params($key)]} {
                     set value $params($key)
+                    if {$key == "times"} {
+                        # Normalize whitespace
+                        regsub -all "\[ \t\r\n\]+" [string trim $value] " " value
+                    }
                     $_tree set $child "wms.$key" $value
                 }

trunk/gui/scripts/mapviewer.tcl

@@ -2779 +2779 @@
                 }
                 "wms" {
-                    SendCmd [list map layer add $tag image wms \
-                                 $info(wms.url) $info(cache) $coverage \
-                                 $info(wms.layers) \
-                                 $info(wms.format) \
-                                 $info(wms.transparent)]
+                    if {[info exists info(wms.times)]} {
+                        SendCmd [list map layer add $tag image wms \
+                                     $info(wms.url) $info(cache) $coverage \
+                                     $info(wms.layers) \
+                                     $info(wms.format) \
+                                     $info(wms.transparent) \
+                                     $info(wms.times) \
+                                     $info(wms.frameSeconds)]
+                    }
+                        SendCmd [list map layer add $tag image wms \
+                                     $info(wms.url) $info(cache) $coverage \
+                                     $info(wms.layers) \
+                                     $info(wms.format) \
+                                     $info(wms.transparent)]
+                    }
                 }
                 "xyz" {