Lines 670-676
sub CanBookBeIssued {
Link Here
|
670 |
my $item = GetItem(undef, $barcode ); |
670 |
my $item = GetItem(undef, $barcode ); |
671 |
my $issue = Koha::Checkouts->find( { itemnumber => $item->{itemnumber} } ); |
671 |
my $issue = Koha::Checkouts->find( { itemnumber => $item->{itemnumber} } ); |
672 |
my $biblio = Koha::Biblios->find( $item->{biblionumber} ); |
672 |
my $biblio = Koha::Biblios->find( $item->{biblionumber} ); |
673 |
my $biblioitem = $biblio->biblioitem; |
673 |
my $biblioitem = $biblio ? $biblio->biblioitem : undef; |
674 |
my $effective_itemtype = $item->{itype}; # GetItem deals with that |
674 |
my $effective_itemtype = $item->{itype}; # GetItem deals with that |
675 |
my $dbh = C4::Context->dbh; |
675 |
my $dbh = C4::Context->dbh; |
676 |
my $patron_unblessed = $patron->unblessed; |
676 |
my $patron_unblessed = $patron->unblessed; |
677 |
- |
|
|