Attachment #124024 for bug #24857

View | Details | Raw Unified | Return to bug 24857
Collapse All | Expand All




use Koha::ArticleRequest::Status;
use Koha::ArticleRequests;
use Koha::Biblio::Metadatas;
use Koha::Biblio::Volumes;
use Koha::Biblioitems;
use Koha::CirculationRules;
use Koha::Item::Transfer::Limits;

    return $self->orders->search({ datecancellationprinted => undef });
}

=head3 volumes

my $volumes = $biblio->volumes();

Returns a Koha::Biblio::Volumes object

=cut

sub volumes {
    my ( $self ) = @_;

    my $volumes = $self->_result->volumes;
    return Koha::Biblio::Volumes->_new_from_dbic($volumes);
}

=head3 can_article_request

my $bool = $biblio->can_article_request( $borrower );




use C4::Reserves;
use C4::ClassSource qw( GetClassSort );
use C4::Log qw( logaction );
use C4::Reserves;

use Koha::Checkouts;
use Koha::CirculationRules;

use Koha::Item::Transfer::Limits;
use Koha::Item::Transfers;
use Koha::ItemTypes;
use Koha::Libraries;
use Koha::Patrons;
use Koha::Plugins;
use Koha::Libraries;
use Koha::StockRotationItem;
use Koha::StockRotationRotas;


    return Koha::Checkout->_new_from_dbic( $checkout_rs );
}

=head3 volume

my $volume = $item->volume;

Return the volume for this item

=cut

sub volume {
    my ( $self ) = @_;

    my $volume_item = $self->_result->volume_items->first;
    return unless $volume_item;

    my $volume_rs = $volume_item->volume;
    return unless $volume_rs;

    return Koha::Biblio::Volume->_new_from_dbic( $volume_rs );
}

=head3 holds

my $holds = $item->holds();
- 

Return to bug 24857

Lines 34-39 use Koha::Acquisition::Orders; Link Here

(-)a/Koha/Biblio.pm (+16 lines)
34	use Koha::ArticleRequest::Status;	34	use Koha::ArticleRequest::Status;
35	use Koha::ArticleRequests;	35	use Koha::ArticleRequests;
36	use Koha::Biblio::Metadatas;	36	use Koha::Biblio::Metadatas;
		37	use Koha::Biblio::Volumes;
37	use Koha::Biblioitems;	38	use Koha::Biblioitems;
38	use Koha::CirculationRules;	39	use Koha::CirculationRules;
39	use Koha::Item::Transfer::Limits;	40	use Koha::Item::Transfer::Limits;
Lines 112-117 sub active_orders { Link Here
112	return $self->orders->search({ datecancellationprinted => undef });	113	return $self->orders->search({ datecancellationprinted => undef });
113	}	114	}
114		115
		116	=head3 volumes
		117
		118	my $volumes = $biblio->volumes();
		119
		120	Returns a Koha::Biblio::Volumes object
		121
		122	=cut
		123
		124	sub volumes {
		125	my ( $self ) = @_;
		126
		127	my $volumes = $self->_result->volumes;
		128	return Koha::Biblio::Volumes->_new_from_dbic($volumes);
		129	}
		130
115	=head3 can_article_request	131	=head3 can_article_request
116		132
117	my $bool = $biblio->can_article_request( $borrower );	133	my $bool = $biblio->can_article_request( $borrower );

Lines 30-35 use C4::Circulation qw( GetBranchItemRule ); Link Here

(-)a/Koha/Item.pm (-2 / +22 lines)
30	use C4::Reserves;	30	use C4::Reserves;
31	use C4::ClassSource qw( GetClassSort );	31	use C4::ClassSource qw( GetClassSort );
32	use C4::Log qw( logaction );	32	use C4::Log qw( logaction );
		33	use C4::Reserves;
33		34
34	use Koha::Checkouts;	35	use Koha::Checkouts;
35	use Koha::CirculationRules;	36	use Koha::CirculationRules;
Lines 39-47 use Koha::Exceptions::Item::Transfer; Link Here
39	use Koha::Item::Transfer::Limits;	40	use Koha::Item::Transfer::Limits;
40	use Koha::Item::Transfers;	41	use Koha::Item::Transfers;
41	use Koha::ItemTypes;	42	use Koha::ItemTypes;
		43	use Koha::Libraries;
42	use Koha::Patrons;	44	use Koha::Patrons;
43	use Koha::Plugins;	45	use Koha::Plugins;
44	use Koha::Libraries;
45	use Koha::StockRotationItem;	46	use Koha::StockRotationItem;
46	use Koha::StockRotationRotas;	47	use Koha::StockRotationRotas;
47		48
Lines 393-398 sub checkout { Link Here
393	return Koha::Checkout->_new_from_dbic( $checkout_rs );	394	return Koha::Checkout->_new_from_dbic( $checkout_rs );
394	}	395	}
395		396
		397	=head3 volume
		398
		399	my $volume = $item->volume;
		400
		401	Return the volume for this item
		402
		403	=cut
		404
		405	sub volume {
		406	my ( $self ) = @_;
		407
		408	my $volume_item = $self->_result->volume_items->first;
		409	return unless $volume_item;
		410
		411	my $volume_rs = $volume_item->volume;
		412	return unless $volume_rs;
		413
		414	return Koha::Biblio::Volume->_new_from_dbic( $volume_rs );
		415	}
		416
396	=head3 holds	417	=head3 holds
397		418
398	my $holds = $item->holds();	419	my $holds = $item->holds();
399	-