Changeset 251

Timestamp:

05/21/09 16:03:39

Author:

dan

Message:

Sub: KMLAddObsToHash, KMLAddObsList
Changes: In the observation hash, the sorder is now a hash key and not simply a value. This allows us to have the same sensor at the same elevation, and we can distinguish them by the sorder.

Files:

• obskml/trunk/General/obsKMLSubRoutines.pm (modified) (7 diffs)

obskml/trunk/General/obsKMLSubRoutines.pm

@@ -1 +1 @@
-#######################################################################################################
-#Revisions
+#Rev: 1.2.0.0
+#Author: DWR
+#Sub: KMLAddObsToHash, KMLAddObsList
+#Changes: In the observation hash, the sorder is now a hash key and not simply a value. This allows us to have the same sensor
+# at the same elevation, and we can distinguish them by the sorder.
-#Rev: 1.1.0.0
-#Author: DWR
@@ -229 +234 @@
-  return( $iFoundItems );
-}
+#######################################################################################################
+#Subroutine: GetConversionUnits
+#Given a unit of one measurement system, this subroutine will return the equivalent unit from the 
+# specified system. IE if you have "m" in the metric system and want the equivalent in the Imperial system.
+#######################################################################################################
+sub GetConversionUnits #($strCurrentUnits, $strDesiredUOMSystem )
+{
+  my ( $strCurrentUnits, $strDesiredUOMSystem ) = @_;
+  if( $strDesiredUOMSystem eq 'en' )
+  {
+    if( $strCurrentUnits eq 'm' )
+    {
+      return( 'ft' );
+    }
+    elsif( $strCurrentUnits eq  'm_s-1' )
+    {
+      return( 'mph' );
+    }
+    elsif( $strCurrentUnits eq 'celsius' )
+    {
+      return( 'fahrenheit' );
+    }
+    elsif( $strCurrentUnits eq 'cm_s-1' )
+    {
+      return( 'mph' );
+    }
+    elsif( $strCurrentUnits eq 'mph' )
+    {
+      return( 'knots' );
+    }
+  }
+  else
+  {
+  }
+  return('')
+}
-
-#######################################################################################################
@@ -328 +369 @@
-{
-  my ( $strPlatformID, $strPlatformURL, $Latitude, $Longitude, $rObsHash ) = @_;
-
-  $rObsHash->{PlatformID}{$strPlatformID}{Latitude}     = $Latitude;
-  $rObsHash->{PlatformID}{$strPlatformID}{Longitude}    = $Longitude;
-
-
+
-}
-#######################################################################################################
@@ -398 +437 @@
-{
-  my ( $strObsName, $strDate, $Value, $SensorSOrder, $strPlatformID, $ObsElevation, $strUnits, $rObsHash ) = @_;
- Obs: $strObsName Date: $strDate Val: $Value SORder: $SensorSOrder Platform: $strPlatformID Elev: $ObsElevation Units: $strUnits
+Adding Obs: $strObsName Date: $strDate Val: $Value SORder: $SensorSOrder Platform: $strPlatformID Elev: $ObsElevation Units: $strUnits Lat: $rObsHash->{PlatformID}{$strPlatformID}{Latitude} Long: $rObsHash->{PlatformID}{$strPlatformID}{Longitude}
-  my $QCLevel = $QCLEVEL_DATANOTEVALD;
-
-
+
+
+
-  if( $Value ne 'NULL')
-  {
-
+
+
+
-  }
-  else
@@ -410 +452 @@
-    $QCLevel = $QCLEVEL_DATAMISSING;
-  }
-
-
-
-
+
+
+
+
+
+
+
-#Subroutine: BuildKMLFile
-# Given a hash and a filename, this set of subroutines will build an obsKML file.
@@ -539 +584 @@
-  my $Latitude =  $hObsList->{PlatformID}{$strPlatformID}{Latitude};       
-  my $Longitude =  $hObsList->{PlatformID}{$strPlatformID}{Longitude};       
-  
-  KMLAddLatLong( $Doc, $Placemark, $Latitude, $Longitude );
-  KMLAddTimeStamp( $Doc, $Placemark, $Date );
@@ -620 +664 @@
-  foreach my $Elev ( reverse sort { $a <=> $b } keys %{$hObsList->{elev}} )  
-  {
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
-      {
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-      }
-      #Add the child tag to the parent, ObsList.
-      $ObsList->appendChild( $Obs );
-      #print( "obsType: $ObsType value: $hObsList->{elev}{$Elev}{obsType}{$ObsType}{value} uomType: $hObsList->{elev}{$Elev}{obsType}{$ObsType}{uomType}\n" );
-      #DWR v1.1.0.0
-      #Each obs has its own row with the observation type, value, and units of measurement.
-      $$strDescription = $$strDescription."<tr><td>$ObsType</td><td>$hObsList->{elev}{$Elev}{obsType}{$ObsType}{value}</td><td>$hObsList->{elev}{$Elev}{obsType}{$ObsType}{uomType}</td></tr>";
-      #print( "KMLAddObsList::strDescription: $$strDescription\n" );
-    }
-  }