Wagon: add is_closed accessor

2 files changed, 14 insertions, 5 deletions

diff --git a/bin/db-wagenreihung b/bin/db-wagenreihung
index 637044a..73bbdb4 100755
--- a/bin/db-wagenreihung
+++ b/bin/db-wagenreihung
@@ -116,6 +116,10 @@ for my $wagon ( $wr->wagons ) {
 
 	my $wagon_desc = $wagon->number || '?';
 
+	if ( $wagon->is_closed ) {
+		$wagon_desc = 'X';
+	}
+
 	if ( $wagon->is_locomotive or $wagon->is_powercar ) {
 		$wagon_desc = ' ■ ';
 	}
@@ -150,8 +154,8 @@ say "";
 for my $wagon ( $wr->wagons ) {
 	printf(
 		"%3s: %3s %10s  %s\n",
-		$wagon->number || '?',
-		$wagon->model  || '???',
+		$wagon->is_closed ? 'X' : ( $wagon->number || '?' ),
+		$wagon->model || '???',
 		$wagon->type, join( q{  }, $wagon->attributes )
 	);
 }
diff --git a/lib/Travel/Status/DE/DBWagenreihung/Wagon.pm b/lib/Travel/Status/DE/DBWagenreihung/Wagon.pm
index eddf4b1..ffc3e58 100644
--- a/lib/Travel/Status/DE/DBWagenreihung/Wagon.pm
+++ b/lib/Travel/Status/DE/DBWagenreihung/Wagon.pm
@@ -12,9 +12,9 @@ our $VERSION = '0.11';
 Travel::Status::DE::DBWagenreihung::Wagon->mk_ro_accessors(
 	qw(attributes class_type group_index has_ac has_accessibility
 	  has_bahn_comfort has_bike_storage has_bistro has_compartments
-	  has_family_area has_phone_area has_quiet_area is_dosto is_interregio
-	  is_locomotive is_powercar number model multipurpose section train_no
-	  train_subtype type uic_id)
+	  has_family_area has_phone_area has_quiet_area is_closed is_dosto
+	  is_interregio is_locomotive is_powercar number model multipurpose section
+	  train_no train_subtype type uic_id)
 );
 
 our %type_attributes = (
@@ -74,6 +74,7 @@ sub new {
 	$ref->{has_bistro}    = 0;
 	$ref->{is_locomotive} = 0;
 	$ref->{is_powercar}   = 0;
+	$ref->{is_closed}     = 0;
 	$ref->{train_no}      = $opt{train_no};
 	$ref->{number}        = $opt{wagenordnungsnummer};
 	$ref->{model}         = $opt{fahrzeugnummer};
@@ -87,6 +88,10 @@ sub new {
 
 	$self->parse_type;
 
+	if ( $opt{status} and $opt{status} eq 'GESCHLOSSEN' ) {
+		$ref->{is_closed} = 1;
+	}
+
 	if ( $opt{kategorie} =~ m{SPEISEWAGEN} ) {
 		$ref->{has_bistro} = 1;
 	}