Changeset 6551 for trunk/gui/scripts/mapviewer.tcl

Timestamp:

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

Author:

ldelgass

Message:

Add client support for WMS-T

File:

• trunk/gui/scripts/mapviewer.tcl (modified) (1 diff)

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" {