| Lines 58-79
          use MIME::Base64 qw( decode_base64url encode_base64url );
      
      
        Link Here | 
        
          | 58 |  | 58 |  | 
        
          | 59 | our $dbh = C4::Context->dbh; | 59 | our $dbh = C4::Context->dbh; | 
        
          | 60 |  | 60 |  | 
            
              | 61 | sub find_value { |  |  | 
            
              | 62 |     my ($tagfield,$insubfield,$record) = @_; | 
            
              | 63 |     my $result; | 
            
              | 64 |     my $indicator; | 
            
              | 65 |     foreach my $field ($record->field($tagfield)) { | 
            
              | 66 |         my @subfields = $field->subfields(); | 
            
              | 67 |         foreach my $subfield (@subfields) { | 
            
              | 68 |             if (@$subfield[0] eq $insubfield) { | 
            
              | 69 |                 $result .= @$subfield[1]; | 
            
              | 70 |                 $indicator = $field->indicator(1).$field->indicator(2); | 
            
              | 71 |             } | 
            
              | 72 |         } | 
            
              | 73 |     } | 
            
              | 74 |     return($indicator,$result); | 
            
              | 75 | } | 
            
              | 76 |  | 
        
          | 77 | sub get_item_from_barcode { | 61 | sub get_item_from_barcode { | 
        
          | 78 |     my ($barcode)=@_; | 62 |     my ($barcode)=@_; | 
        
          | 79 |     my $dbh=C4::Context->dbh; | 63 |     my $dbh=C4::Context->dbh; | 
            
              | 80 | -  |  |  |