Attachment #101673 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::Biblio::Volumes;
use Koha::Checkouts;
use Koha::CirculationRules;
use Koha::Item::Transfer::Limits;
use Koha::Item::Transfers;
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-46 use Try::Tiny; Link Here

(-)a/Koha/Item.pm (-5 / +25 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::Biblio::Volumes;
37	use Koha::Checkouts;	38	use Koha::Checkouts;
38	use Koha::CirculationRules;	39	use Koha::CirculationRules;
39	use Koha::Item::Transfer::Limits;	40	use Koha::Item::Transfer::Limits;
40	use Koha::Item::Transfers;	41	use Koha::Item::Transfers;
		42	use Koha::Libraries;
41	use Koha::Patrons;	43	use Koha::Patrons;
42	use Koha::Plugins;	44	use Koha::Plugins;
43	use Koha::Libraries;
44	use Koha::StockRotationItem;	45	use Koha::StockRotationItem;
45	use Koha::StockRotationRotas;	46	use Koha::StockRotationRotas;
46		47
Lines 339-344 sub checkout { Link Here
339	return Koha::Checkout->_new_from_dbic( $checkout_rs );	340	return Koha::Checkout->_new_from_dbic( $checkout_rs );
340	}	341	}
341		342
		343	=head3 volume
		344
		345	my $volume = $item->volume;
		346
		347	Return the volume for this item
		348
		349	=cut
		350
		351	sub volume {
		352	my ( $self ) = @_;
		353
		354	my $volume_item = $self->_result->volume_items->first;
		355	return unless $volume_item;
		356
		357	my $volume_rs = $volume_item->volume;
		358	return unless $volume_rs;
		359
		360	return Koha::Biblio::Volume->_new_from_dbic( $volume_rs );
		361	}
		362
342	=head3 holds	363	=head3 holds
343		364
344	my $holds = $item->holds();	365	my $holds = $item->holds();
345	-