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 direcly here contains a weird characters like space
bless $self, $class;
return $self;
if ($biblionumber) {
$biblio = Koha::Biblios->find($biblionumber);
$biblionumber =
$biblio->biblionumber; # just in case $biblionumber obtained from CGI contains a weird characters like space
unless ($biblio) {
$biblionumber = undef;
-