|
Lines 82-88
sub new {
Link Here
|
| 82 |
} |
82 |
} |
| 83 |
my $self = $item->unblessed; |
83 |
my $self = $item->unblessed; |
| 84 |
$self->{ 'id' } = $item->barcode; # to SIP, the barcode IS the id. |
84 |
$self->{ 'id' } = $item->barcode; # to SIP, the barcode IS the id. |
| 85 |
$self->{permanent_location}= $item->homebranch; |
85 |
if(C4::Context->preference('UseLocationAsAQInSIP')) { |
|
|
86 |
$self->{permanent_location}= $item->permanent_location; |
| 87 |
} else { |
| 88 |
$self->{permanent_location}= $item->homebranch; |
| 89 |
} |
| 86 |
$self->{'collection_code'} = $item->ccode; |
90 |
$self->{'collection_code'} = $item->ccode; |
| 87 |
$self->{ 'call_number' } = $item->itemcallnumber; |
91 |
$self->{ 'call_number' } = $item->itemcallnumber; |
| 88 |
|
92 |
|