From 3fd3f93c92bc38650eb0653b5cf5c707a5dae747 Mon Sep 17 00:00:00 2001
From: Birte Kristina Friesel <derf@finalrewind.org>
Date: Fri, 29 Mar 2024 12:35:56 +0100
Subject: Wagon: add is_closed accessor

---
 bin/db-wagenreihung | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'bin/db-wagenreihung')

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 )
 	);
 }
-- 
cgit v1.2.3