Attachment #153879 for bug #28966

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

Lines 25-33 use warnings; Link Here

(-)a/C4/HoldsQueue.pm (-1 / +2 lines)
25	use C4::Context;	25	use C4::Context;
26	use C4::Circulation qw( GetBranchItemRule );	26	use C4::Circulation qw( GetBranchItemRule );
27	use Koha::DateUtils qw( dt_from_string );	27	use Koha::DateUtils qw( dt_from_string );
		28	use Koha::HoldsQueueItems;
28	use Koha::Items;	29	use Koha::Items;
29	use Koha::Patrons;
30	use Koha::Libraries;	30	use Koha::Libraries;
		31	use Koha::Patrons;
31		32
32	use List::Util qw( shuffle );	33	use List::Util qw( shuffle );
33	use List::MoreUtils qw( any );	34	use List::MoreUtils qw( any );




package Koha::Hold::HoldsQueueItem;

# This file is part of Koha.
#
# Koha is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 3 of the License, or
# (at your option) any later version.
#
# Koha is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with Koha; if not, see <http://www.gnu.org/licenses>.

use Modern::Perl;

use Koha::Database;

use base qw(Koha::Object);

=head1 NAME

Koha::Hold::HoldsQueueItem - Koha hold cancellation request Object class

=head1 API

=head2 Internal methods

=head3 _type

=cut

sub _type {
    return 'TmpHoldsqueue';
}

=head1 AUTHORS

Kyle Hall <kyle@bywatersolutions.com>

=cut

1;




package Koha::Hold::HoldsQueueItems;

# This file is part of Koha.
#
# Koha is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 3 of the License, or
# (at your option) any later version.
#
# Koha is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with Koha; if not, see <http://www.gnu.org/licenses>.

use Modern::Perl;


use Koha::Database;

use Koha::Hold::HoldsQueueItem;

use base qw(Koha::Objects);

=head1 NAME

Koha::Hold::HoldsQueueItems - Koha hold cancellation requests Object set class

=head1 API

=head2 Internal methods

=head3 _type

=cut

sub _type {
    return 'TmpHoldsqueue';
}

=head3 object_class

=cut

sub object_class {
    return 'Koha::Hold::HoldsQueueItem';
}

=head1 AUTHORS

Kyle Hall <kyle@bywatersolutions.com>

=cut

1;




# Created by DBIx::Class::Schema::Loader v0.07049 @ 2022-11-04 22:42:42
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:RdIrLi+vbzj3ab/UP7e9pw

__PACKAGE__->add_columns(
    '+item_level_request' => { is_boolean => 1 }
);

sub koha_object_class {
    'Koha::HoldsQueueItem';
}

sub koha_objects_class {
    'Koha::HoldsQueueItems';
}

# You can replace this text with custom content, and it will be preserved on regeneration
1;
- 

Return to bug 28966

Lines 220-225 __PACKAGE__->belongs_to( Link Here

(-)a/Koha/Schema/Result/TmpHoldsqueue.pm (-2 / +11 lines)
220	# Created by DBIx::Class::Schema::Loader v0.07049 @ 2022-11-04 22:42:42	220	# Created by DBIx::Class::Schema::Loader v0.07049 @ 2022-11-04 22:42:42
221	# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:RdIrLi+vbzj3ab/UP7e9pw	221	# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:RdIrLi+vbzj3ab/UP7e9pw
222		222
		223	__PACKAGE__->add_columns(
		224	'+item_level_request' => { is_boolean => 1 }
		225	);
		226
		227	sub koha_object_class {
		228	'Koha::HoldsQueueItem';
		229	}
		230
		231	sub koha_objects_class {
		232	'Koha::HoldsQueueItems';
		233	}
223		234
224	# You can replace this text with custom content, and it will be preserved on regeneration
225	1;	235	1;
226	-

Line 0 Link Here

(-)a/Koha/Hold/HoldsQueueItem.pm (+46 lines)
	1	package Koha::Hold::HoldsQueueItem;
	2
	3	# This file is part of Koha.
	4	#
	5	# Koha is free software; you can redistribute it and/or modify it
	6	# under the terms of the GNU General Public License as published by
	7	# the Free Software Foundation; either version 3 of the License, or
	8	# (at your option) any later version.
	9	#
	10	# Koha is distributed in the hope that it will be useful, but
	11	# WITHOUT ANY WARRANTY; without even the implied warranty of
	12	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	13	# GNU General Public License for more details.
	14	#
	15	# You should have received a copy of the GNU General Public License
	16	# along with Koha; if not, see <http://www.gnu.org/licenses>.
	17
	18	use Modern::Perl;
	19
	20	use Koha::Database;
	21
	22	use base qw(Koha::Object);
	23
	24	=head1 NAME
	25
	26	Koha::Hold::HoldsQueueItem - Koha hold cancellation request Object class
	27
	28	=head1 API
	29
	30	=head2 Internal methods
	31
	32	=head3 _type
	33
	34	=cut
	35
	36	sub _type {
	37	return 'TmpHoldsqueue';
	38	}
	39
	40	=head1 AUTHORS
	41
	42	Kyle Hall <kyle@bywatersolutions.com>
	43
	44	=cut
	45
	46	1;

Line 0 Link Here

(-)a/Koha/Hold/HoldsQueueItems.pm (+57 lines)
	1	package Koha::Hold::HoldsQueueItems;
	2
	3	# This file is part of Koha.
	4	#
	5	# Koha is free software; you can redistribute it and/or modify it
	6	# under the terms of the GNU General Public License as published by
	7	# the Free Software Foundation; either version 3 of the License, or
	8	# (at your option) any later version.
	9	#
	10	# Koha is distributed in the hope that it will be useful, but
	11	# WITHOUT ANY WARRANTY; without even the implied warranty of
	12	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	13	# GNU General Public License for more details.
	14	#
	15	# You should have received a copy of the GNU General Public License
	16	# along with Koha; if not, see <http://www.gnu.org/licenses>.
	17
	18	use Modern::Perl;
	19
	20
	21	use Koha::Database;
	22
	23	use Koha::Hold::HoldsQueueItem;
	24
	25	use base qw(Koha::Objects);
	26
	27	=head1 NAME
	28
	29	Koha::Hold::HoldsQueueItems - Koha hold cancellation requests Object set class
	30
	31	=head1 API
	32
	33	=head2 Internal methods
	34
	35	=head3 _type
	36
	37	=cut
	38
	39	sub _type {
	40	return 'TmpHoldsqueue';
	41	}
	42
	43	=head3 object_class
	44
	45	=cut
	46
	47	sub object_class {
	48	return 'Koha::Hold::HoldsQueueItem';
	49	}
	50
	51	=head1 AUTHORS
	52
	53	Kyle Hall <kyle@bywatersolutions.com>
	54
	55	=cut
	56
	57	1;