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;

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;

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<branchcategories>

=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</categorycode>

=back

=cut

__PACKAGE__->set_primary_key("categorycode");

=head1 RELATIONS

=head2 branchrelations

Type: has_many

Related object: L<Koha::Schema::Result::Branchrelation>

=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</branchrelations> -> 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;

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<branchrelations>

=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</branchcode>

=item * L</categorycode>

=back

=cut

__PACKAGE__->set_primary_key("branchcode", "categorycode");

=head1 RELATIONS

=head2 branchcode

Type: belongs_to

Related object: L<Koha::Schema::Result::Branch>

=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<Koha::Schema::Result::Branchcategory>

=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;

-