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

Diff for /task.pl between version 1.0 and 1.1

version 1.0, 2007/07/02 02:13:27 version 1.1, 2008/01/28 20:10:09
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.0  
changed lines
  Added in v.1.1
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>