===================================================================
RCS file: /var/cvs/tkperl/task.pl,v
retrieving revision 1.0
retrieving revision 1.1
diff -u -r1.0 -r1.1
--- task.pl	2007/07/02 02:13:27	1.0
+++ task.pl	2008/01/28 20:10:09	1.1
@@ -224,18 +224,24 @@
         my $lng = $lng{$start};
         $lat =~ s/://;
         $lng =~ s/://;
+        $lat =~ s/\.//;
+    	$lng =~ s/\.//;
         $text->insert("end","Start LatLon:     " . $lat . $lng . " " . $start . "\n");
         foreach ( @elements ){
         	my $lat = $lat{$start};
         	my $lng = $lng{$start};
         	$lat =~ s/://;
+        	$lat =~ s/\.//;
         	$lng =~ s/://;
+        	$lng =~ s/\.//;
         	$text->insert("end","TP LatLon:        " . $lat . $lng . " " . $_ . "\n");
         }
     	$lat = $lat{$finish};
         $lng = $lng{$finish};
         $lat =~ s/://;
+        $lat =~ s/\.//;
         $lng =~ s/://;
+        $lng =~ s/\.//;
         $text->insert("end","Finish LatLon:    " . $lat . $lng . " " . $finish . "\n");
 }
 MainLoop;
\ No newline at end of file