From d1cd3d1e0520e87d373fe154946e95d64705812c Mon Sep 17 00:00:00 2001 From: Kyle M Hall Date: Wed, 22 Jun 2016 18:28:03 +0000 Subject: [PATCH] Bug 16735: Remove modules no longer needed Signed-off-by: Josef Moravec Signed-off-by: Tomas Cohen Arazi Signed-off-by: Jonathan Druart --- Koha/LibraryCategories.pm | 52 ------------ Koha/LibraryCategory.pm | 58 -------------- Koha/Schema/Result/Branchcategory.pm | 116 --------------------------- Koha/Schema/Result/Branchrelation.pm | 115 -------------------------- 4 files changed, 341 deletions(-) delete mode 100644 Koha/LibraryCategories.pm delete mode 100644 Koha/LibraryCategory.pm delete mode 100644 Koha/Schema/Result/Branchcategory.pm delete mode 100644 Koha/Schema/Result/Branchrelation.pm diff --git a/Koha/LibraryCategories.pm b/Koha/LibraryCategories.pm deleted file mode 100644 index f299a6c5ac..0000000000 --- a/Koha/LibraryCategories.pm +++ /dev/null @@ -1,52 +0,0 @@ -package Koha::LibraryCategories; - -# Copyright 2015 Koha Development team -# -# 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::LibraryCategory; - -use base qw(Koha::Objects); - -=head1 NAME - -Koha::LibraryCategories - Koha Library Category Object set class - -=head1 API - -=head2 Class Methods - -=cut - -=head3 type - -=cut - -sub _type { - return 'Branchcategory'; -} - -sub object_class { - return 'Koha::LibraryCategory'; -} - -1; diff --git a/Koha/LibraryCategory.pm b/Koha/LibraryCategory.pm deleted file mode 100644 index 79341beb0f..0000000000 --- a/Koha/LibraryCategory.pm +++ /dev/null @@ -1,58 +0,0 @@ -package Koha::LibraryCategory; - -# Copyright 2015 Koha Development team -# -# 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::LibraryCategory - Koha Library Category Object class - -=head1 API - -=head2 Class Methods - -=cut - -sub new { - my ( $self, $params ) = @_; - $params->{categorycode} = uc( $params->{categorycode} ); - return $self->SUPER::new( $params ); -} - -sub libraries{ - my ( $self, $params ) = @_; - # TODO This should return Koha::Libraries - return $self->{_result}->branchcodes( $params ); -} - -=head3 type - -=cut - -sub _type { - return 'Branchcategory'; -} - -1; diff --git a/Koha/Schema/Result/Branchcategory.pm b/Koha/Schema/Result/Branchcategory.pm deleted file mode 100644 index 6417ca91c0..0000000000 --- a/Koha/Schema/Result/Branchcategory.pm +++ /dev/null @@ -1,116 +0,0 @@ -use utf8; -package Koha::Schema::Result::Branchcategory; - -# Created by DBIx::Class::Schema::Loader -# DO NOT MODIFY THE FIRST PART OF THIS FILE - -=head1 NAME - -Koha::Schema::Result::Branchcategory - -=cut - -use strict; -use warnings; - -use base 'DBIx::Class::Core'; - -=head1 TABLE: C - -=cut - -__PACKAGE__->table("branchcategories"); - -=head1 ACCESSORS - -=head2 categorycode - - data_type: 'varchar' - default_value: (empty string) - is_nullable: 0 - size: 10 - -=head2 categoryname - - data_type: 'varchar' - is_nullable: 1 - size: 32 - -=head2 codedescription - - data_type: 'mediumtext' - is_nullable: 1 - -=head2 categorytype - - data_type: 'varchar' - is_nullable: 1 - size: 16 - -=head2 show_in_pulldown - - data_type: 'tinyint' - default_value: 0 - is_nullable: 0 - -=cut - -__PACKAGE__->add_columns( - "categorycode", - { data_type => "varchar", default_value => "", is_nullable => 0, size => 10 }, - "categoryname", - { data_type => "varchar", is_nullable => 1, size => 32 }, - "codedescription", - { data_type => "mediumtext", is_nullable => 1 }, - "categorytype", - { data_type => "varchar", is_nullable => 1, size => 16 }, - "show_in_pulldown", - { data_type => "tinyint", default_value => 0, is_nullable => 0 }, -); - -=head1 PRIMARY KEY - -=over 4 - -=item * L - -=back - -=cut - -__PACKAGE__->set_primary_key("categorycode"); - -=head1 RELATIONS - -=head2 branchrelations - -Type: has_many - -Related object: L - -=cut - -__PACKAGE__->has_many( - "branchrelations", - "Koha::Schema::Result::Branchrelation", - { "foreign.categorycode" => "self.categorycode" }, - { cascade_copy => 0, cascade_delete => 0 }, -); - -=head2 branchcodes - -Type: many_to_many - -Composing rels: L -> branchcode - -=cut - -__PACKAGE__->many_to_many("branchcodes", "branchrelations", "branchcode"); - - -# Created by DBIx::Class::Schema::Loader v0.07025 @ 2013-10-14 20:56:21 -# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:HU5N7lAiLIz6yC9va3fDbg - - -# You can replace this text with custom content, and it will be preserved on regeneration -1; diff --git a/Koha/Schema/Result/Branchrelation.pm b/Koha/Schema/Result/Branchrelation.pm deleted file mode 100644 index e44412b59a..0000000000 --- a/Koha/Schema/Result/Branchrelation.pm +++ /dev/null @@ -1,115 +0,0 @@ -use utf8; -package Koha::Schema::Result::Branchrelation; - -# Created by DBIx::Class::Schema::Loader -# DO NOT MODIFY THE FIRST PART OF THIS FILE - -=head1 NAME - -Koha::Schema::Result::Branchrelation - -=cut - -use strict; -use warnings; - -use base 'DBIx::Class::Core'; - -=head1 TABLE: C - -=cut - -__PACKAGE__->table("branchrelations"); - -=head1 ACCESSORS - -=head2 branchcode - - data_type: 'varchar' - default_value: (empty string) - is_foreign_key: 1 - is_nullable: 0 - size: 10 - -=head2 categorycode - - data_type: 'varchar' - default_value: (empty string) - is_foreign_key: 1 - is_nullable: 0 - size: 10 - -=cut - -__PACKAGE__->add_columns( - "branchcode", - { - data_type => "varchar", - default_value => "", - is_foreign_key => 1, - is_nullable => 0, - size => 10, - }, - "categorycode", - { - data_type => "varchar", - default_value => "", - is_foreign_key => 1, - is_nullable => 0, - size => 10, - }, -); - -=head1 PRIMARY KEY - -=over 4 - -=item * L - -=item * L - -=back - -=cut - -__PACKAGE__->set_primary_key("branchcode", "categorycode"); - -=head1 RELATIONS - -=head2 branchcode - -Type: belongs_to - -Related object: L - -=cut - -__PACKAGE__->belongs_to( - "branchcode", - "Koha::Schema::Result::Branch", - { branchcode => "branchcode" }, - { is_deferrable => 1, on_delete => "CASCADE", on_update => "CASCADE" }, -); - -=head2 categorycode - -Type: belongs_to - -Related object: L - -=cut - -__PACKAGE__->belongs_to( - "categorycode", - "Koha::Schema::Result::Branchcategory", - { categorycode => "categorycode" }, - { is_deferrable => 1, on_delete => "CASCADE", on_update => "CASCADE" }, -); - - -# Created by DBIx::Class::Schema::Loader v0.07025 @ 2013-10-14 20:56:21 -# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:lBOq8k+wurbp633kbi8tVg - - -# You can replace this text with custom content, and it will be preserved on regeneration -1; -- 2.39.5