Attachment #109798 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 Koha::Database;
use Koha::DateUtils qw( dt_from_string );

use C4::Context;
use C4::Circulation;
use C4::Reserves;
use C4::Biblio qw( ModZebra ); # FIXME This is terrible, we should move the indexation code outside of C4::Biblio
use C4::Circulation;
use C4::ClassSource; # FIXME We would like to avoid that
use C4::Context;
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 36-41 use Koha::Acquisition::Orders; Link Here

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

Lines 27-47 use Try::Tiny; Link Here

(-)a/Koha/Item.pm (-5 / +24 lines)
27	use Koha::Database;	27	use Koha::Database;
28	use Koha::DateUtils qw( dt_from_string );	28	use Koha::DateUtils qw( dt_from_string );
29		29
30	use C4::Context;
31	use C4::Circulation;
32	use C4::Reserves;
33	use C4::Biblio qw( ModZebra ); # FIXME This is terrible, we should move the indexation code outside of C4::Biblio	30	use C4::Biblio qw( ModZebra ); # FIXME This is terrible, we should move the indexation code outside of C4::Biblio
		31	use C4::Circulation;
34	use C4::ClassSource; # FIXME We would like to avoid that	32	use C4::ClassSource; # FIXME We would like to avoid that
		33	use C4::Context;
35	use C4::Log qw( logaction );	34	use C4::Log qw( logaction );
		35	use C4::Reserves;
36		36
37	use Koha::Checkouts;	37	use Koha::Checkouts;
38	use Koha::CirculationRules;	38	use Koha::CirculationRules;
39	use Koha::Item::Transfer::Limits;	39	use Koha::Item::Transfer::Limits;
40	use Koha::Item::Transfers;	40	use Koha::Item::Transfers;
41	use Koha::ItemTypes;	41	use Koha::ItemTypes;
		42	use Koha::Libraries;
42	use Koha::Patrons;	43	use Koha::Patrons;
43	use Koha::Plugins;	44	use Koha::Plugins;
44	use Koha::Libraries;
45	use Koha::StockRotationItem;	45	use Koha::StockRotationItem;
46	use Koha::StockRotationRotas;	46	use Koha::StockRotationRotas;
47		47
Lines 382-387 sub checkout { Link Here
382	return Koha::Checkout->_new_from_dbic( $checkout_rs );	382	return Koha::Checkout->_new_from_dbic( $checkout_rs );
383	}	383	}
384		384
		385	=head3 volume
		386
		387	my $volume = $item->volume;
		388
		389	Return the volume for this item
		390
		391	=cut
		392
		393	sub volume {
		394	my ( $self ) = @_;
		395
		396	my $volume_item = $self->_result->volume_items->first;
		397	return unless $volume_item;
		398
		399	my $volume_rs = $volume_item->volume;
		400	return unless $volume_rs;
		401
		402	return Koha::Biblio::Volume->_new_from_dbic( $volume_rs );
		403	}
		404
385	=head3 holds	405	=head3 holds
386		406
387	my $holds = $item->holds();	407	my $holds = $item->holds();
388	-