summaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2019-01-02 13:32:15 +0100
committerDaniel Friesel <derf@finalrewind.org>2019-01-02 13:32:15 +0100
commit69c8235df213c828d2fbb15ae33075b7ac9f5cfd (patch)
treef2f202c4def772f7d7d1336785b110b2be764d04 /lib
parent2e6079b836075221e462cb44c11a3ec23707f462 (diff)
add mm, s, w wagon types
Diffstat (limited to 'lib')
-rw-r--r--lib/Travel/Status/DE/DBWagenreihung/Wagon.pm27
1 files changed, 19 insertions, 8 deletions
diff --git a/lib/Travel/Status/DE/DBWagenreihung/Wagon.pm b/lib/Travel/Status/DE/DBWagenreihung/Wagon.pm
index a9aa6a4..f5a14e2 100644
--- a/lib/Travel/Status/DE/DBWagenreihung/Wagon.pm
+++ b/lib/Travel/Status/DE/DBWagenreihung/Wagon.pm
@@ -68,14 +68,15 @@ sub attributes {
return @{ $self->{attributes} // [] };
}
+# See also:
+# https://de.wikipedia.org/wiki/UIC-Bauart-Bezeichnungssystem_f%C3%BCr_Reisezugwagen#Kennbuchstaben
+# https://www.deutsche-reisezugwagen.de/lexikon/erklarung-der-gattungszeichen/
sub parse_type {
my ($self) = @_;
my $type = $self->{type};
my @desc;
-# Thanks to <https://www.deutsche-reisezugwagen.de/lexikon/erklarung-der-gattungszeichen/>
-
if ( $type =~ m{^D} ) {
$self->{is_dosto} = 1;
push( @desc, 'Doppelstock' );
@@ -88,7 +89,7 @@ sub parse_type {
if ( $type =~ m{d} ) {
$self->{has_multipurpose} = 1;
- push( @desc, 'Mehrzweckraum' );
+ push( @desc, 'Mehrzweck' );
}
if ( $type =~ m{f} ) {
@@ -97,12 +98,11 @@ sub parse_type {
if ( $type =~ m{i} ) {
$self->{is_interregio} = 1;
- push( @desc, 'Interregiowagen' );
+ push( @desc, 'Interregio' );
}
- if ( $type =~ m{m} ) {
-
- # ?
+ if ( $type =~ m{mm} ) {
+ push( @desc, 'modernisiert' );
}
if ( $type =~ m{p} ) {
@@ -111,11 +111,22 @@ sub parse_type {
push( @desc, 'Großraum' );
}
+ if ( $type =~ m{s} ) {
+ push( @desc, 'Sonderabteil' );
+ }
+
if ( $type =~ m{v} ) {
$self->{has_ac} = 1;
$self->{has_compartments} = 1;
push( @desc, 'klimatisiert' );
- push( @desc, 'Abteilwagen' );
+ push( @desc, 'Abteil' );
+ }
+
+ if ( $type =~ m{w} ) {
+ $self->{has_ac} = 1;
+ $self->{has_compartments} = 1;
+ push( @desc, 'klimatisiert' );
+ push( @desc, 'Abteil' );
}
$self->{attributes} = \@desc;