|
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 |
- |
|
|