diff options
| -rw-r--r-- | lib/Travelynx/Model/InTransit.pm | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/lib/Travelynx/Model/InTransit.pm b/lib/Travelynx/Model/InTransit.pm index e8495b8..0215cb8 100644 --- a/lib/Travelynx/Model/InTransit.pm +++ b/lib/Travelynx/Model/InTransit.pm @@ -195,6 +195,7 @@ sub add { } elsif ( $journey and $stop ) { + # DBRIS my $line; if ( $train_suffix and $journey->number @@ -203,7 +204,6 @@ sub add { $line = $train_suffix; } - # DBRIS my @route; for my $j_stop ( $journey->route ) { push( @@ -229,6 +229,19 @@ sub add { ] ); } + my @messages; + for my $msg ( $journey->messages ) { + if ( not $msg->{ueberschrift} ) { + push( + @{ $data->{him_msg} }, + { + header => q{}, + prio => $msg->{prioritaet}, + lead => $msg->{text} + } + ); + } + } $db->insert( 'in_transit', { |