[BACK]Return to task.pl CVS log [TXT][DIR] Up to [tkperl]

Diff for /task.pl between version 1.1 and 1.0

version 1.1, 2008/01/28 20:10:09 version 1.0, 2007/07/02 02:13:27
Line 224 
Line 224 
         my $lng = $lng{$start};          my $lng = $lng{$start};
         $lat =~ s/://;          $lat =~ s/://;
         $lng =~ s/://;          $lng =~ s/://;
         $lat =~ s/\.//;  
         $lng =~ s/\.//;  
         $text->insert("end","Start LatLon:     " . $lat . $lng . " " . $start . "\n");          $text->insert("end","Start LatLon:     " . $lat . $lng . " " . $start . "\n");
         foreach ( @elements ){          foreach ( @elements ){
                 my $lat = $lat{$start};                  my $lat = $lat{$start};
                 my $lng = $lng{$start};                  my $lng = $lng{$start};
                 $lat =~ s/://;                  $lat =~ s/://;
                 $lat =~ s/\.//;  
                 $lng =~ s/://;                  $lng =~ s/://;
                 $lng =~ s/\.//;  
                 $text->insert("end","TP LatLon:        " . $lat . $lng . " " . $_ . "\n");                  $text->insert("end","TP LatLon:        " . $lat . $lng . " " . $_ . "\n");
         }          }
         $lat = $lat{$finish};          $lat = $lat{$finish};
         $lng = $lng{$finish};          $lng = $lng{$finish};
         $lat =~ s/://;          $lat =~ s/://;
         $lat =~ s/\.//;  
         $lng =~ s/://;          $lng =~ s/://;
         $lng =~ s/\.//;  
         $text->insert("end","Finish LatLon:    " . $lat . $lng . " " . $finish . "\n");          $text->insert("end","Finish LatLon:    " . $lat . $lng . " " . $finish . "\n");
 }  }
 MainLoop;  MainLoop;
   
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.0
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>