View | Details | Raw Unified | Return to bug 37867
Collapse All | Expand All

(-)a/Koha/UI/Form/Builder/Biblio.pm (-3 / +4 lines)
Lines 50-57 sub new { Link Here
50 

          50
          

        

        

          51
          
    my $self = {};

          51
          
    my $self = {};

        

        

          52
          

          52
          

        

          
            

              53
              
    $self->{biblionumber} = $params->{biblionumber} =~ s/\D//gr;


              53
              
    if ( $params->{biblionumber} ) {

            

            

              54
              
    # just in case biblionumber obtained from CGI and passed directly here contains weird characters like spaces


              54
              
        $self->{biblionumber} = $params->{biblionumber} =~ s/\D//gr;

            

            

              
              

              55
              
        # just in case biblionumber obtained from CGI and passed directly here contains weird characters like spaces

            

            


              56
              
    }

            

        

          55
          

          57
          

        

        

          56
          
    bless $self, $class;

          58
          
    bless $self, $class;

        

        

          57
          
    return $self;

          59
          
    return $self;

        

            

              58
              
- 

              
              
            






  

  Return to bug 37867