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