# Dupe Way Check by Gary68

\n" ; print \$html "

Version ", \$version, "

\n" ; print \$html "

## Check ways

\n

" ; foreach my \$w (@test) { print \$html \$w->, " ", \$w->, "
\n" ; } print \$html "

\n" ; print \$html "

## Statistics

\n" ; print \$html "

", stringFileInfo (\$osmName), "
\n" ; print \$html "number ways total: \$highwayCount
\n" ; print \$html "number dupes: \$dupes
\n" ; print \$html "

\n" ; print \$html "

## Data

\n" ; print \$html "\n"; print \$html "\n" ; print \$html "\n" ; print \$html "\n" ; print \$html "\n" ; print \$html "\n" ; print \$html "\n" ; print \$html "\n" ; print \$html "\n" ; my \$line = 0 ; foreach my \$problem (@problems) { \$line++ ; my (\$lo) = \$lon{\$wayNodesHash{\$problem->}} ; my (\$la) = \$lat{\$wayNodesHash{\$problem->}} ; #print "ways are dupes: \$problem-> \$problem->, \$lo, \$la\n" ; print \$html "\n" ; print \$html "\n" ; print \$html "\n" ; print \$html "\n" ; print \$html "\n" ; print \$html "\n" ; my (\$text) = "Waydupes - " . \$problem-> . " and " . \$problem-> ; printGPXWaypoint (\$gpx, \$lo, \$la, \$text) ; } print \$html "
LineWay1 IdWay2 IdOSMOSBJOSM
", \$line , "", historyLink ("way", \$problem->), "\n" ; foreach my \$tag (@{\$wayTagsHash{\$problem->}}) { print \$html "
\n", \$tag->, ":", \$tag-> ; } print \$html "
", historyLink ("way", \$problem->) ; foreach my \$tag (@{\$wayTagsHash{\$problem->}}) { print \$html "
\n", \$tag->, ":", \$tag-> ; } print \$html "
", osmLink (\$lo, \$la, 16) , "
\n" ; print \$html "
", osbLink (\$lo, \$la, 16) , "
\n" ; print \$html "
", josmLinkSelectWays (\$lo, \$la, 0.01, \$problem->, \$problem->), "
\n" ; print \$html "

", stringTimeSpent (time()-\$time0), "

\n" ; printHTMLFoot (\$html) ; printGPXFoot (\$gpx) ; close (\$html) ; close (\$gpx) ; print "\n\$programName finished after ", stringTimeSpent (time()-\$time0), "\n\n" ;