Changeset 208

Show
Ignore:
Timestamp:
06/06/08 16:44:25
Author:
dan
Message:

--

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • scout/trunk/cdl_0master.pl

    r207 r208  
    273273  $strUnitsXMLFilename = './UnitsConversion.xml'; 
    274274  my $XMLControlFile = XML::LibXML->new->parse_file("$strUnitsXMLFilename"); 
     275   
     276  my %ObsHash; 
     277  my $rObsHash = \%ObsHash; 
     278  my $strPlatformID = $institution_code_value.'.'.$platform_code_value.'.'.$package_code_value; 
    275279   
    276280  # 
    …… 
    29792983  if( $bWriteobsKMLFile ) 
    29802984  { 
    2981     my $iCnt = keys( %$rObsHash ); 
     2985    my $iCnt = keys( %ObsHash ); 
     2986    print( "Cnt: $iCnt\n" ); 
    29822987    if( $iCnt ) 
    29832988    { 
    …… 
    29862991      #to verify the data is no older than 2 weeks. 
    29872992      #Implemented code to write the obsKML files.  
    2988       my %ObsHash; 
    2989       my $rObsHash = \%ObsHash; 
    2990       my $strPlatformID = $institution_code_value.'.'.$platform_code_value.'.'.$package_code_value; 
    29912993      obsKMLSubRoutines::KMLAddPlatformHashEntry( $strPlatformID, $institution_url_value, $latitude_value[0], $longitude_value[0], $rObsHash ); 
    29922994