summaryrefslogtreecommitdiff
path: root/navit/script/osm/Geo/OSM/EntitiesV3.pm
diff options
context:
space:
mode:
Diffstat (limited to 'navit/script/osm/Geo/OSM/EntitiesV3.pm')
-rw-r--r--navit/script/osm/Geo/OSM/EntitiesV3.pm32
1 files changed, 16 insertions, 16 deletions
diff --git a/navit/script/osm/Geo/OSM/EntitiesV3.pm b/navit/script/osm/Geo/OSM/EntitiesV3.pm
index 2708463c7..0e0581af4 100644
--- a/navit/script/osm/Geo/OSM/EntitiesV3.pm
+++ b/navit/script/osm/Geo/OSM/EntitiesV3.pm
@@ -67,9 +67,9 @@ sub tag_xml
{
my ($self,$writer) = @_;
my @a = @{$self->{tags}};
-
+
my $str = "";
-
+
while( my($k,$v) = splice @a, 0, 2 )
{
$writer->emptyTag( "tag", 'k' => $k, 'v' => $v );
@@ -83,9 +83,9 @@ sub set_id
my($self,$id) = @_;
if( not defined $id )
- { $id = $_ID-- }
+ { $id = $_ID-- }
$self->{id} = $id;
-}
+}
sub id
{
@@ -120,14 +120,14 @@ our @ISA = qw(Geo::OSM::Entity);
sub new
{
my($class, $attr, $tags, $segs) = @_;
-
+
my $obj = bless $class->SUPER::_new(), $class;
-
+
$obj->set_tags($tags);
$obj->set_segs($segs);
$obj->set_id($attr->{id} );
$obj->set_timestamp( $attr->{timestamp} );
-
+
return $obj;
}
@@ -168,11 +168,11 @@ sub map
my $incomplete = 0;
my ($new_id) = $mapper->map('way',$self->id); # Determine mapped ID
# It is ok for the new_id to be incomplete; it may be a create request
-
+
my @new_segs = map { [ $mapper->map('segment',$_) ] } @{$self->segs};
map { $incomplete |= $_->[1] } @new_segs;
# incomplete tracks if any of the segs are incomplete
-
+
my $new_ent = new Geo::OSM::Way( {id=>$new_id, timestamp=>$self->timestamp}, $self->tags, [map {$_->[0]} @new_segs] );
return($new_ent,$incomplete);
}
@@ -183,15 +183,15 @@ our @ISA = qw(Geo::OSM::Entity);
sub new
{
my($class, $attr, $tags) = @_;
-
+
my $obj = bless $class->SUPER::_new(), $class;
-
+
$obj->set_tags($tags);
$obj->set_id($attr->{id} );
$obj->set_timestamp( $attr->{timestamp} );
$obj->{from} = $attr->{from};
$obj->{to} = $attr->{to};
-
+
return $obj;
}
@@ -242,15 +242,15 @@ our @ISA = qw(Geo::OSM::Entity);
sub new
{
my($class, $attr, $tags) = @_;
-
+
my $obj = bless $class->SUPER::_new(), $class;
-
+
$obj->set_tags($tags);
$obj->set_id($attr->{id} );
$obj->set_timestamp( $attr->{timestamp} );
$obj->{lon} = $attr->{lon};
$obj->{lat} = $attr->{lat};
-
+
return $obj;
}
@@ -277,7 +277,7 @@ sub xml
my $self = shift;
my $str = "";
my $writer = $self->_get_writer(\$str);
-
+
$writer->startTag( "node", id => $self->id, lat => $self->lat, lon => $self->lon, timestamp => $self->timestamp );
$self->tag_xml( $writer );
$writer->endTag( "node" );