);
push @EXPORT, qw(
&output_html_with_http_headers &output_ajax_with_http_headers &output_with_http_headers
- &output_and_exit_if_error
+ &output_and_exit_if_error &output_and_exit
);
}
=head1 FUNCTIONS
=over 2
-=cut
=item pagination_bar
}
}
- if ( $error ) {
- $template->param( blocking_error => $error );
- output_html_with_http_headers ( $query, $cookie, $template->output );
- exit;
- }
+ output_and_exit( $query, $cookie, $template, $error ) if $error;
return;
}
+=item output_and_exit
+
+ output_and_exit( $query, $cookie, $template, $error );
+
+ $error is a blocking error like biblionumber not found or so.
+ We should output the error and exit.
+
+=cut
+
+sub output_and_exit {
+ my ( $query, $cookie, $template, $error ) = @_;
+ $template->param( blocking_error => $error );
+ output_html_with_http_headers ( $query, $cookie, $template->output );
+ exit;
+}
+
sub parametrized_url {
my $url = shift || ''; # ie page.pl?ln={LANG}
my $vars = shift || {}; # ie { LANG => en }
my $ret = $url;
while ( my ($key,$val) = each %$vars) {
- my $val_url = URI::Escape::uri_escape_utf8($val);
+ my $val_url = URI::Escape::uri_escape_utf8( $val // q{} );
$ret =~ s/\{$key\}/$val_url/g;
}
- $ret =~ s/\{[^\{]*\}//g; # remove not defined vars
+ $ret =~ s/\{[^\{]*\}//g; # remove remaining vars
return $ret;
}