Changeset 162

Show
Ignore:
Timestamp:
04/04/08 16:27:12
Author:
dan
Message:

--

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • obskml/trunk/TelemetryToObsKML/BuoyTelemetryDataToObsKML.pl

    r157 r162  
    11#!/usr/bin/perl 
    22 
    3 use constant MICROSOFT_PLATFORM => 0; 
     3use constant MICROSOFT_PLATFORM => 1; 
    44if( !MICROSOFT_PLATFORM ) 
    55{ 
    …… 
    8787  my %PlatformIDHash; 
    8888  LoadPlatformControlFile($strControlFile, \%PlatformIDHash, $buoy_id); 
     89  my $XMLControlFile = XML::LibXML->new->parse_file("$strUnitsXMLFilename"); 
     90 
    8991 
    9092=comment  #JTC 2008/03/12 commenting this section out since the reformatting of the initial file should be handled in an earlier step 
    …… 
    10411043    GetPlatformData( \%PlatformIDHash, $station_id, \%PlatformObsSettings ); 
    10421044    $strPlatformID = %PlatformObsSettings->{PlatformID}; 
    1043  
     1045    
    10441046    KMLAddPlatformHashEntry( %PlatformObsSettings->{PlatformID}, %PlatformObsSettings->{PlatformURL}, '', '', $rObsHash ); 
    10451047    #( $strObsName, $strDate, $Value, $SensorSOrder, $rObsHash, $rPlatformControlFileInfo, $rPlatformObsSettings ) 
    …… 
    10491051    KMLAddObsHashEntry( 'wind_gust', $strDBDate, $wind_gust, 1, $rObsHash, \%PlatformIDHash, \%PlatformObsSettings ); 
    10501052    KMLAddObsHashEntry( 'air_temperature', $strDBDate, $air_temperature, 1, $rObsHash, \%PlatformIDHash, \%PlatformObsSettings ); 
    1051     KMLAddObsHashEntry( 'air_pressure', $strDBDate, $water_level, 1, $rObsHash, \%PlatformIDHash, \%PlatformObsSettings ); 
     1053    KMLAddObsHashEntry( 'air_pressure', $strDBDate, $air_pressure, 1, $rObsHash, \%PlatformIDHash, \%PlatformObsSettings ); 
    10521054    KMLAddObsHashEntry( 'water_temperature', $strDBDate, $water_temperature, 1, $rObsHash, \%PlatformIDHash, \%PlatformObsSettings ); 
    10531055