| 
      
            Lines 175-185
          sub build_sample_item {
      
      
        Link Here
      
     | 
  
        
          | 175 | 
              my $itype = delete $args->{itype} | 
          175 | 
              my $itype = delete $args->{itype} | 
        
        
          | 176 | 
                || $self->build_object( { class => 'Koha::ItemTypes' } )->itemtype; | 
          176 | 
                || $self->build_object( { class => 'Koha::ItemTypes' } )->itemtype; | 
        
        
          | 177 | 
           | 
          177 | 
           | 
        
            
               | 
               | 
              178 | 
                  my $barcode =  | 
            
            
              | 179 | 
                    exists( $args->{barcode} ) | 
            
            
              | 180 | 
                    ? $args->{barcode} | 
            
            
              | 181 | 
                    : $self->_gen_text( { info => { size => SIZE_BARCODE } } ); | 
            
            
              | 182 | 
               | 
            
        
          | 178 | 
              my ( undef, undef, $itemnumber ) = C4::Items::AddItem(  | 
          183 | 
              my ( undef, undef, $itemnumber ) = C4::Items::AddItem(  | 
        
        
          | 179 | 
                  { | 
          184 | 
                  { | 
        
        
          | 180 | 
                      homebranch    => $library,  | 
          185 | 
                      homebranch    => $library,  | 
        
        
          | 181 | 
                      holdingbranch => $library,  | 
          186 | 
                      holdingbranch => $library,  | 
        
          
            
              | 182 | 
                          barcode       => $self->_gen_text( { info => { size => SIZE_BARCODE } } ), | 
              187 | 
                          barcode       => $barcode,  | 
            
        
          | 183 | 
                      itype         => $itype,  | 
          188 | 
                      itype         => $itype,  | 
        
        
          | 184 | 
                      %$args,  | 
          189 | 
                      %$args,  | 
        
        
          | 185 | 
                  },  | 
          190 | 
                  },  | 
        
            
              | 186 | 
              -   | 
               | 
               |