Changeset 4380


Ignore:
Timestamp:
Jun 10, 2014 9:23:02 PM (7 years ago)
Author:
ldelgass
Message:

Use <gdal> element for GDAL layer driver

Location:
trunk/gui/scripts
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/gui/scripts/map.tcl

    r4373 r4380  
    125125        $_tree set $child "name" $layer
    126126        $_tree set $child "type" $layerType
    127         foreach key { label description url } {
     127        foreach key { label description } {
    128128            $_tree set $child $key [$layers get $layer.$key]
    129129        }
    130130        # Common settings (for all layer types) with defaults
    131         foreach {key defval} { visible true } {
     131        foreach { key defval } { visible true } {
    132132            $_tree set $child $key $defval
    133133            set val [$layers get $layer.$key]
     
    145145            }
    146146        }
    147         set file [$layers get $layer.file]
    148         if { $file != "" } {
    149             # FIXME: Add test for valid file path
    150             $_tree set $child "url" $file
    151         }
    152         $_tree set $child "driver" "gdal"
    153         set tms [$layers get $layer.tms.url]
     147        $_tree set $child "driver" "debug"
     148        set gdal [$layers element -as type $layer.gdal]
     149        if { $gdal != "" } {
     150            foreach key { url } {
     151                set value [$layers get $layer.gdal.$key]
     152                $_tree set $child "gdal.$key" $value
     153            }
     154            set file [$layers get $layer.gdal.file]
     155            if { $file != "" } {
     156                # FIXME: Add test for valid file path
     157                $_tree set $child "url" $file
     158            }
     159            $_tree set $child "driver" "gdal"
     160        }
     161        set tms [$layers element -as type $layer.tms]
    154162        if { $tms != "" } {
    155163            foreach key { url tmsType format } {
     
    159167            $_tree set $child "driver" "tms"
    160168        }
    161         set wms [$layers get $layer.wms.url]
     169        set wms [$layers element -as type $layer.wms]
    162170        if { $wms != "" } {
    163171            foreach key { url layers format transparent } {
     
    167175            $_tree set $child "driver" "wms"
    168176        }
    169         set xyz [$layers get $layer.xyz.url]
     177        set xyz [$layers element -as type $layer.xyz]
    170178        if { $xyz != "" } {
    171179            foreach key { url } {
  • trunk/gui/scripts/mapviewer.tcl

    r4373 r4380  
    985985            array set info [$dataobj layer $layer]
    986986            if { ![info exists _layers($layer)] } {
    987                 if { ![info exists info(url)] }  {
    988                     continue
    989                 }
     987                if { ![info exists info(url)] }  {
     988                    if { $info(driver) != "debug" } {
     989                        continue
     990                    }
     991                }
    990992                if { $_reportClientInfo }  {
    991993                    set cinfo {}
     
    17261728            if {!$_sendEarthFile} {
    17271729                switch -- $info(driver)  {
     1730                    "debug" {
     1731                        SendCmd [list map layer add image debug $layer]
     1732                    }
    17281733                    "gdal" {
    17291734                        SendCmd [list map layer add image gdal \
Note: See TracChangeset for help on using the changeset viewer.