Attachment #66740 for bug #13208

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




package Koha::Acquisition::Basket;

# Copyright 2017 Aleisha Amohia <aleisha@catalyst.net.nz>
#
# 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, write to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

use Modern::Perl;

use Koha::Database;

use base qw( Koha::Object );

=head1 NAME

Koha::Acquisition::Basket - Koha Basket Object class

=head1 API

=head2 Class Methods

=cut

=head3 bookseller

Returns the vendor

=cut

sub bookseller {
    my ($self) = @_;
    my $bookseller_rs = $self->_result->booksellerid;
    return Koha::Acquisition::Bookseller->_new_from_dbic( $bookseller_rs );
}

=head3 type

=cut

sub _type {
    return 'Aqbasket';
}

=head1 AUTHOR

Aleisha Amohia <aleisha@catalyst.net.nz>
Catalyst IT

=cut

1;




package Koha::Acquisition::Baskets;

# Copyright 2017 Aleisha Amohia <aleisha@catalyst.net.nz>
#
# 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, write to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

use Modern::Perl;

use Koha::Database;


use base qw( Koha::Objects );

=head1 NAME

Koha::Acquisition::Baskets - Koha Baskets object set class

=head1 API

=head2 Class Methods

=cut

=head3 type

=cut

sub _type {
    return 'Aqbasket';
}

=head3 object_class

=cut

sub object_class {
    return 'Koha::Acquisition::Basket';
}

=head1 AUTHOR

Aleisha Amohia <aleisha@catalyst.net.nz>
Catalyst IT

=cut

1;
- 

Return to bug 13208

Lines 1-19 Link Here

(-)a/Koha/Acquisition/Basket.pm (+44 lines)
1	package Koha::Acquisition::Basket;	1	package Koha::Acquisition::Basket;
2		2
		3	# Copyright 2017 Aleisha Amohia <aleisha@catalyst.net.nz>
		4	#
		5	# This file is part of Koha.
		6	#
		7	# Koha is free software; you can redistribute it and/or modify it under the
		8	# terms of the GNU General Public License as published by the Free Software
		9	# Foundation; either version 3 of the License, or (at your option) any later
		10	# version.
		11	#
		12	# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
		13	# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
		14	# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
		15	#
		16	# You should have received a copy of the GNU General Public License along
		17	# with Koha; if not, write to the Free Software Foundation, Inc.,
		18	# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
		19
3	use Modern::Perl;	20	use Modern::Perl;
4		21
5	use Koha::Database;	22	use Koha::Database;
6		23
7	use base qw( Koha::Object );	24	use base qw( Koha::Object );
8		25
		26	=head1 NAME
		27
		28	Koha::Acquisition::Basket - Koha Basket Object class
		29
		30	=head1 API
		31
		32	=head2 Class Methods
		33
		34	=cut
		35
		36	=head3 bookseller
		37
		38	Returns the vendor
		39
		40	=cut
		41
9	sub bookseller {	42	sub bookseller {
10	my ($self) = @_;	43	my ($self) = @_;
11	my $bookseller_rs = $self->_result->booksellerid;	44	my $bookseller_rs = $self->_result->booksellerid;
12	return Koha::Acquisition::Bookseller->_new_from_dbic( $bookseller_rs );	45	return Koha::Acquisition::Bookseller->_new_from_dbic( $bookseller_rs );
13	}	46	}
14		47
		48	=head3 type
		49
		50	=cut
		51
15	sub _type {	52	sub _type {
16	return 'Aqbasket';	53	return 'Aqbasket';
17	}	54	}
18		55
		56	=head1 AUTHOR
		57
		58	Aleisha Amohia <aleisha@catalyst.net.nz>
		59	Catalyst IT
		60
		61	=cut
		62
19	1;	63	1;

Lines 1-5 Link Here

(-)a/Koha/Acquisition/Baskets.pm (-1 / +42 lines)
1	package Koha::Acquisition::Baskets;	1	package Koha::Acquisition::Baskets;
2		2
		3	# Copyright 2017 Aleisha Amohia <aleisha@catalyst.net.nz>
		4	#
		5	# This file is part of Koha.
		6	#
		7	# Koha is free software; you can redistribute it and/or modify it under the
		8	# terms of the GNU General Public License as published by the Free Software
		9	# Foundation; either version 3 of the License, or (at your option) any later
		10	# version.
		11	#
		12	# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
		13	# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
		14	# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
		15	#
		16	# You should have received a copy of the GNU General Public License along
		17	# with Koha; if not, write to the Free Software Foundation, Inc.,
		18	# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
		19
3	use Modern::Perl;	20	use Modern::Perl;
4		21
5	use Koha::Database;	22	use Koha::Database;
Lines 7-18 use Koha::Acquisition::Basket; Link Here
7		24
8	use base qw( Koha::Objects );	25	use base qw( Koha::Objects );
9		26
		27	=head1 NAME
		28
		29	Koha::Acquisition::Baskets - Koha Baskets object set class
		30
		31	=head1 API
		32
		33	=head2 Class Methods
		34
		35	=cut
		36
		37	=head3 type
		38
		39	=cut
		40
10	sub _type {	41	sub _type {
11	return 'Aqbasket';	42	return 'Aqbasket';
12	}	43	}
13		44
		45	=head3 object_class
		46
		47	=cut
		48
14	sub object_class {	49	sub object_class {
15	return 'Koha::Acquisition::Basket';	50	return 'Koha::Acquisition::Basket';
16	}	51	}
17		52
		53	=head1 AUTHOR
		54
		55	Aleisha Amohia <aleisha@catalyst.net.nz>
		56	Catalyst IT
		57
		58	=cut
		59
18	1;	60	1;
19	-