Changeset 202

Timestamp:

06/04/08 11:13:00

Author:

dan

Message:

Sub: KMLAddPlacemarkSimple
Changes: Added call to KMLAddDescription to add in the observation HTML table into a

description tag.
Also added the creation of the <name> tag to properly name our placemark.
Sub: KMLAddObsList
Changes: Added building the observation HTML table string while building the metadata.
Sub: KMLAddDescription
Changes: Added subroutine.

Files:

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

obskml/trunk/General/obsKMLSubRoutines.pm

@@ +1 @@
+#######################################################################################################
+#Revisions
+#Rev: 1.1.0.0
+#Author: DWR
+#Date: 6/4/2008
+#Sub: KMLAddPlacemarkSimple
+#Changes: Added call to KMLAddDescription to add in the observation HTML table into a description tag.
+#         Also added the creation of the <name> tag to properly name our placemark.
+#Sub: KMLAddObsList
+#Changes: Added building the observation HTML table string while building the metadata.
+#Sub: KMLAddDescription
+#Changes: Added subroutine.
+#######################################################################################################
+
-package obsKMLSubRoutines; 
-
@@ -496 +510 @@
-  my $rObsForPlatformDate = $hObsList->{PlatformID}{$strPlatformID}{TimeStamp}{$Date};
-  my $strPlatformURL = $hObsList->{PlatformID}{$strPlatformID}{PlatformURL};
-
+
+
+
+
+
+
-
-  $Placemark->appendChild( $Metadata ); 
@@ -505 +524 @@
-  KMLAddLatLong( $Doc, $Placemark, $Latitude, $Longitude );
-  KMLAddTimeStamp( $Doc, $Placemark, $Date );
+  #DWR v1.1.0.0
+  KMLAddDescription( $Doc, $Placemark, $strDesc );
+  AddChild( $Doc, $Placemark, 'name', $strPlatformID );
-  
-  $Parent->appendChild( $Placemark );
@@ -537 +559 @@
-  $Parent->appendChild( $TimeStamp );
-
+}
+########################################################################################################
+# KMLAddDescription
+# Adds the timestamp into the placemark tag.
+########################################################################################################
+sub KMLAddDescription#( $Doc, $Parent, $strDesc )
+{
+  my ( $Doc, $Parent, $strDesc ) = @_;
+  
+  my $Desc = $Doc->createElement( 'description'); 
+  my $CDATADesc = $Doc->createCDATASection( $strDesc );
+  $Desc->appendChild( $CDATADesc );
+  $Parent->appendChild( $Desc );
-}
-
@@ -550 +585 @@
-#     $hObsList{elev}{obsType}{value}
-#     $hObsList{elev}{obsType}{uomType}
-
-
-
-
-
+
+
+
+
+
+
+
-  
-  #Create the obsList parent tag to place the obs under.
-  my $ObsList = $Doc->createElement( 'obsList');
-  AddChild( $Doc, $ObsList, 'platformURL', $strPlatformURL );
+  
+  #DWR v1.1.0.0
+  #Create the data for the descrition tag.
+  $$strDescription = '<table>';
-  foreach my $Elev ( reverse sort { $a <=> $b } keys %{$hObsList->{elev}} )  
-  {
@@ -582 +623 @@
-      #Add the child tag to the parent, ObsList.
-      $ObsList->appendChild( $Obs );
+      #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>";
-    }
-  }
+  $$strDescription = $$strDescription.'</table>';
+  #print( "KMLAddObsList::Desc: $$strDescription\n");
+  
-  # Add the ObsList tag with all attached obs to the parent.
-  $Parent->appendChild( $ObsList );