Commit 1bf2ad57 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

db-ris: Improve delayed / on-time info filter

parent 10e549ef

bin/db-ris

+1 −3
Original line number Diff line number Diff line
@@ -87,9 +87,7 @@ sub display_result { 
sub filter_info {

	my ($info) = @_;



	if ( $info =~ m{ ^ (?: p.nktlich | k [.] A [.] ) $ }ox ) {

		return q{};

	}

	$info =~ s{ (?: ^ | , ) (?: p.nktlich | k [.] A [.] ) }{}x;



	return $info;

}