diff --git a/Koha/UI/Form/Builder/Biblio.pm b/Koha/UI/Form/Builder/Biblio.pm index 340b27b27d..66b4002e81 100644 --- a/Koha/UI/Form/Builder/Biblio.pm +++ b/Koha/UI/Form/Builder/Biblio.pm @@ -49,7 +49,9 @@ sub new { my ( $class, $params ) = @_; my $self = {}; - $self->{biblionumber} = $params->{biblionumber}; + + $self->{biblionumber} = $params->{biblionumber} =~ s/\D//gr; + # just in case biblionumber obtained from CGI and passed directly here contains weird characters like spaces bless $self, $class; return $self; diff --git a/cataloguing/addbiblio.pl b/cataloguing/addbiblio.pl index edd8e77a5e..a776eedae4 100755 --- a/cataloguing/addbiblio.pl +++ b/cataloguing/addbiblio.pl @@ -537,6 +537,8 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user( my $biblio; if ($biblionumber){ $biblio = Koha::Biblios->find($biblionumber); + # just in case $biblionumber obtained from CGI contains weird characters like spaces + $biblionumber = $biblio->biblionumber if $biblio; unless ( $biblio ) { $biblionumber = undef; $template->param( bib_doesnt_exist => 1 );