diff options
Diffstat (limited to 'bin')
-rwxr-xr-x | bin/db-ris | 12 |
1 files changed, 11 insertions, 1 deletions
@@ -80,6 +80,16 @@ sub display_result { return; } +sub filter_info { + my ($info) = @_; + + if ( $info =~ m{ ^ (?: p.nktlich | k [.] A [.] ) $ }ox ) { + return q{}; + } + + return $info; +} + sub filter_via { my (@via) = @_; @@ -133,7 +143,7 @@ for my $d ( $status->results() ) { [ $d->time, $d->train, join( q{ }, filter_via(@via) ), $d->destination, - $d->platform, $d->info + $d->platform, filter_info( $d->info ) ] ); } |