summaryrefslogtreecommitdiff
path: root/bin
diff options
context:
space:
mode:
Diffstat (limited to 'bin')
-rwxr-xr-xbin/db-zugbildung-to-json26
1 files changed, 3 insertions, 23 deletions
diff --git a/bin/db-zugbildung-to-json b/bin/db-zugbildung-to-json
index 722c618..d6a3832 100755
--- a/bin/db-zugbildung-to-json
+++ b/bin/db-zugbildung-to-json
@@ -549,26 +549,6 @@ for my $train ( values %map ) {
}
}
-#for my $train_number ( keys %map ) {
-# my $tr = $map{$train_number}{route} // q{};
-# $tr =~ s{ - .* - }{ - };
-# my $this = sprintf("\"%d %s\"", $train_number, $tr);
-# for my $from ( @{ $map{$train_number}{umlauf}{from} // [] } ) {
-# $tr = $map{$from}{route} // q{};
-# $tr =~ s{ - .* - }{ - };
-# $from = sprintf("\"%d %s\"", $from, $tr);
-# say "$from -> $this;";
-# }
-# for my $to ( @{ $map{$train_number}{umlauf}{to} // [] } ) {
-# $tr = $map{$to}{route} // q{};
-# $tr =~ s{ -.*- }{ - };
-# $to = sprintf("\"%d %s\"", $to, $tr);
-# say "$this -> $to;";
-# }
-#}
-
-#exit 0;
-
for my $train_number ( keys %map ) {
my $wagon_numbers_ok = 1;
my $wagon_types_ok = 1;
@@ -623,9 +603,9 @@ for my $train_number ( keys %map ) {
# Cleanup
-#for my $train (values %map) {
-# delete $train->{wagonorder_notes};
-#}
+for my $train ( values %map ) {
+ delete $train->{wagonorder_notes};
+}
# broken umlauf (indentation changes on page break)
delete $map{104}{cycle};