package Koha::BusinessLogic::Branchrelation;

use Modern::Perl;

use Moose;

extends (qw(Koha::DataObject::Branchrelation));

package Koha::DB::Branchrelation;

use Modern::Perl;

use C4::Context; #FIXME = create a Koha package for KOHA_CONF reading

use Koha::Schema;

use Moose;

has 'branchcode'   => (is => 'rw', required => 0, isa => 'Str');

has 'categorycode' => (is => 'rw', required => 0, isa => 'Str');

my $schema = Koha::Schema->connect(

    'dbi:mysql:dbname='.C4::Context->config("database"),

    C4::Context->config("user"),

    C4::Context->config("pass"),

    { AutoCommit => 1 },

  );

sub create {

    my ($self) = @_;

    $schema->resultset('Branchrelation')->create({%{$self}});

}

sub read {

    my ($self, $branchrelation) = @_;

    return $schema->resultset('Branchrelation')->search($branchrelation);

}

sub update {

    my ($self, $branchrelation) = @_;

    return $schema->resultset('Branchrelation')->search({branchcode => $branchrelation->{branchcode}})->update($branchrelation);

}

sub delete {

    my ($self,$branchrelation) = @_;

    $schema->resultset('Branchrelation')->search($branchrelation)->delete;

}