@@ -, +, @@ 3a) Add some collections 3b) Edit them 3c) Add some items to collections 3d) Remove some items 3e) Transfer some collections 3f) Try to remove collection without items 3g) Try to remove collection with items 4a) Try to return item from untransferred collection 4b) Try to return item from transferred collection --- Koha/RotatingCollection.pm | 52 ++++++++++++++++++++++++++++++++++++++++ Koha/RotatingCollections.pm | 58 +++++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 110 insertions(+) create mode 100644 Koha/RotatingCollection.pm create mode 100644 Koha/RotatingCollections.pm --- a/Koha/RotatingCollection.pm +++ a/Koha/RotatingCollection.pm @@ -0,0 +1,52 @@ +package Koha::RotatingCollection; + +# Copyright Josef Moravec 2016 +# +# 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 Carp; + +use Koha::Database; + +use base qw(Koha::Object); + +=head1 NAME + +Koha::RotatingCollection - Koha Rotating collection Object class + +=head1 API + +=head2 Class Methods + +=cut + +=head3 type + +=cut + +sub _type { + return 'Collection'; +} + +=head1 AUTHOR + +Josef Moravec + +=cut + +1; --- a/Koha/RotatingCollections.pm +++ a/Koha/RotatingCollections.pm @@ -0,0 +1,58 @@ +package Koha::RotatingCollections; + +# Copyright Josef Moravec 2016 +# +# 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 Carp; + +use Koha::Database; + +use Koha::RotatingCollection; + +use base qw(Koha::Objects); + +=head1 NAME + +Koha::RotatingCollections - Koha Rotating collection Object set class + +=head1 API + +=head2 Class Methods + +=cut + +=head3 type + +=cut + +sub _type { + return 'Collection'; +} + +sub object_class { + return 'Koha::RotatingCollection'; +} + +=head1 AUTHOR + +Josef Moravec + +=cut + +1; --