my $self = {};
if ( exists $self->{biblionumber} ) {
if ( exists $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
-