diff options
Diffstat (limited to 'cgi')
| -rw-r--r-- | cgi/index.pl | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/cgi/index.pl b/cgi/index.pl index 3a15567..db519f6 100644 --- a/cgi/index.pl +++ b/cgi/index.pl @@ -43,7 +43,7 @@ sub handle_request { my $no_lines = $self->param('no_lines'); - if ($no_lines < 1 or $no_lines > 10) { + if ( $no_lines < 1 or $no_lines > 10 ) { $no_lines = default_no_lines(); } @@ -66,7 +66,9 @@ sub handle_request { sub shorten_destination { my ( $dest, $city ) = @_; - $dest =~ s{ ^ $city \s }{}ix; + if ( not( $dest =~ m{ Hbf $ }ix ) ) { + $dest =~ s{ ^ $city \s }{}ix; + } if ( length($dest) > 20 ) { $dest =~ s{^Dortmund}{DO} @@ -112,7 +114,7 @@ sub render_image { @grep_platform = split( qr{,}, $self->param('platform') ); } - if ($no_lines < 1 or $no_lines > 10) { + if ( $no_lines < 1 or $no_lines > 10 ) { $no_lines = default_no_lines(); } @@ -197,8 +199,9 @@ get '/_redirect' => sub { $params->remove('city'); $params->remove('stop'); - if (not $params->param('no_lines') or $params->param('no_lines') == - default_no_lines()) { + if ( not $params->param('no_lines') + or $params->param('no_lines') == default_no_lines() ) + { $params->remove('no_lines'); } |