Changeset 248

Timestamp:

12/09/08 11:29:48

Author:

dan

Message:

--

Files:

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

obskml/trunk/General/obsKMLSubRoutines.pm

@@ -257 +257 @@
-}
-#######################################################################################################
+# Subroutine: CleanString
+# Takes a string and removes unprintable characters from it. Tries to make sure the string contains
+# only alpha numerics.
+#######################################################################################################
+sub CleanString #( $strString )
+{
+  my $strString = shift @_;
+  my $strClean;
+  $strClean = $strString;
+  $strClean =~ tr/\x80-\xFF//d;
+  $strClean =~ s/\x//;
+  $strClean =~ s/\x00$//;
+  
+  return $strClean;
+}
+#######################################################################################################
-# Subroutine: UnitsStringConversion
-# Takes a given units string and converts it into a string that we use internally.
@@ -267 +283 @@
-  #DWR 4/15/2008
-  #Remove any characters we don't want used. I did notice the unicode char "\x" was in some ndbc files.
-
-
+
+
+
+
-  
-  #print( "UnitsStringConversion:: XMLLookup: //unit_conversion_list/unit_conversion[\@id=\"$strFromUOMString\"]/units\n");
-FromUOMString
+UOM
-  if( length( $strConversionString ) )
-  {
-    $strConvertedString = $strConversionString;
-  }
-print "
+#print "UnitsStringConversion::
-  return $strConvertedString;
- 
@@ -623 +641 @@
-      #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" );
-    }
-  }