Lines 39-45
use Koha::Biblios;
Link Here
|
39 |
use Koha::Items; |
39 |
use Koha::Items; |
40 |
use Koha::ItemTypes; |
40 |
use Koha::ItemTypes; |
41 |
use Koha::Libraries; |
41 |
use Koha::Libraries; |
42 |
use C4::Items qw( AddItem ); |
|
|
43 |
use C4::Circulation qw( CanBookBeIssued AddIssue ); |
42 |
use C4::Circulation qw( CanBookBeIssued AddIssue ); |
44 |
|
43 |
|
45 |
use base qw(Koha::Object); |
44 |
use base qw(Koha::Object); |
Lines 1166-1180
sub check_out {
Link Here
|
1166 |
my $itemnumber; |
1165 |
my $itemnumber; |
1167 |
if ($item_count == 0) { |
1166 |
if ($item_count == 0) { |
1168 |
my $item_hash = { |
1167 |
my $item_hash = { |
|
|
1168 |
biblionumber => $self->biblio_id, |
1169 |
homebranch => $params->{branchcode}, |
1169 |
homebranch => $params->{branchcode}, |
1170 |
holdingbranch => $params->{branchcode}, |
1170 |
holdingbranch => $params->{branchcode}, |
1171 |
location => $params->{branchcode}, |
1171 |
location => $params->{branchcode}, |
1172 |
itype => $params->{item_type}, |
1172 |
itype => $params->{item_type}, |
1173 |
barcode => 'ILL-' . $self->illrequest_id |
1173 |
barcode => 'ILL-' . $self->illrequest_id |
1174 |
}; |
1174 |
}; |
1175 |
my (undef, undef, $item_no) = |
1175 |
my $item = Koha::Item->new($item_hash); |
1176 |
AddItem($item_hash, $self->biblio_id); |
1176 |
$itemnumber = $item->itemnumber; |
1177 |
$itemnumber = $item_no; |
|
|
1178 |
} else { |
1177 |
} else { |
1179 |
$itemnumber = $items[0]->itemnumber; |
1178 |
$itemnumber = $items[0]->itemnumber; |
1180 |
} |
1179 |
} |
1181 |
- |
|
|