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

(-)a/Koha/BusinessLogic/Branch.pm (+9 lines)
Line 0 Link Here
1
package Koha::BusinessLogic::Branch;
2
3
use Modern::Perl;
4
use Koha::DataObject::Branch;
5
6
use Class::Accessor "antlers";
7
8
extends (qw(Koha::DataObject::Branch));
9
(-)a/Koha/DB/Branch.pm (+49 lines)
Line 0 Link Here
1
package Koha::DB::Branch;
2
3
use Modern::Perl;
4
use C4::Context; #FIXME = create a Koha package for KOHA_CONF reading
5
6
use Koha::Database;
7
use Class::Accessor "antlers";
8
9
has 'branchcode'     => (is => 'rw', required => 1, isa => 'Str');
10
has 'branchname'     => (is => 'rw', required => 1, isa => 'Str');
11
has 'branchaddress1' => (is => 'rw', required => 0, isa => 'Str');
12
has 'branchaddress2' => (is => 'rw', required => 0, isa => 'Str');
13
has 'branchaddress3' => (is => 'rw', required => 0, isa => 'Str');
14
has 'branchzip'      => (is => 'rw', required => 0, isa => 'Str');
15
has 'branchcity'     => (is => 'rw', required => 0, isa => 'Str');
16
has 'branchstate'    => (is => 'rw', required => 0, isa => 'Str');
17
has 'branchcountry'  => (is => 'rw', required => 0, isa => 'Str');
18
has 'branchphone'    => (is => 'rw', required => 0, isa => 'Str');
19
has 'branchfax'      => (is => 'rw', required => 0, isa => 'Str');
20
has 'branchemail'    => (is => 'rw', required => 0, isa => 'Str');
21
has 'branchurl'      => (is => 'rw', required => 0, isa => 'Str');
22
has 'issuing'        => (is => 'rw', required => 0, isa => 'Int');
23
has 'branchip'       => (is => 'rw', required => 0, isa => 'Str');
24
has 'branchprinter'  => (is => 'rw', required => 0, isa => 'Str');
25
has 'branchnotes'    => (is => 'rw', required => 0, isa => 'Str');
26
has 'opac_info'      => (is => 'rw', required => 0, isa => 'Str');
27
28
my $database = Koha::Database->new();
29
my $schema = $database->schema();
30
31
sub create {
32
    my ($self) = @_;
33
    $schema->resultset('Branch')->create({ map { $_ => $self->$_ } $schema->source('Branch')->columns });
34
}
35
36
sub read {
37
    my ($self, $branch) = @_;
38
    return $schema->resultset('Branch')->search($branch);
39
}
40
41
sub update {
42
    my ($self, $branch) = @_;
43
    return $schema->resultset('Branch')->search({branchcode => $branch->{branchcode}})->update($branch);
44
}
45
46
sub delete {
47
    my ($self,$branch) = @_;
48
    $schema->resultset('Branch')->search($branch)->delete;
49
}
(-)a/Koha/DataObject/Branch.pm (+8 lines)
Line 0 Link Here
1
package Koha::DataObject::Branch;
2
3
use Modern::Perl;
4
use Koha::DB::Branch;
5
6
use Class::Accessor "antlers";
7
8
extends (qw(Koha::DB::Branch));
(-)a/t/db_dependent/lib/KohaTest/Koha/BusinessLogic/Branch.t (+24 lines)
Line 0 Link Here
1
#!/usr/bin/perl
2
3
use v5.10.0;
4
use Modern::Perl;
5
6
use Test::More tests => 5;
7
8
BEGIN {
9
    use_ok('Koha::BusinessLogic::Branch', 'Loading Koha::BusinessLogic::Branch OK');
10
}
11
12
# CREATE
13
my $branch = Koha::BusinessLogic::Branch->new({'branchcode' => 'TEST_T','branchname' => 'TEST NAME'});
14
ok($branch->create->id eq 'TEST_T','Creating a branch OK');
15
16
# READ
17
ok(Koha::BusinessLogic::Branch->read({'branchcode' => 'TEST_T'})->first->branchname eq 'TEST NAME','Reading a branch OK');
18
19
# UPDATE
20
Koha::BusinessLogic::Branch->update({'branchcode' => 'TEST_T','branchname' => 'TEST UPDATED'});
21
ok(Koha::BusinessLogic::Branch->read({'branchcode' => 'TEST_T'})->first->branchname eq 'TEST UPDATED','Updating a branch OK');
22
23
# DELETE
24
ok(Koha::BusinessLogic::Branch->delete({'branchcode' => 'TEST_T'}),'Deleting a branch OK');
(-)a/t/db_dependent/lib/KohaTest/Koha/DB/Branch.t (+24 lines)
Line 0 Link Here
1
#!/usr/bin/perl
2
3
use v5.10.0;
4
use Modern::Perl;
5
6
use Test::More tests => 5;
7
8
BEGIN {
9
    use_ok('Koha::DB::Branch', 'Loading Koha::DB::Branch OK');
10
}
11
12
# CREATE
13
my $branch = Koha::DB::Branch->new({'branchcode' => 'TEST','branchname' => 'TEST NAME'});
14
ok($branch->create->id eq 'TEST','Creating a branch OK');
15
16
# READ
17
ok(Koha::DB::Branch->read({'branchcode' => 'TEST'})->first->branchname eq 'TEST NAME','Reading a branch OK');
18
19
# UPDATE
20
Koha::DB::Branch->update({'branchcode' => 'TEST','branchname' => 'TEST UPDATED'});
21
ok(Koha::DB::Branch->read({'branchcode' => 'TEST'})->first->branchname eq 'TEST UPDATED','Updating a branch OK');
22
23
# DELETE
24
ok(Koha::DB::Branch->delete({'branchcode' => 'TEST'}),'Deleting a branch OK');
(-)a/t/db_dependent/lib/KohaTest/Koha/DataObject/Branch.t (-1 / +24 lines)
Line 0 Link Here
0
- 
1
#!/usr/bin/perl
2
3
use v5.10.0;
4
use Modern::Perl;
5
6
use Test::More tests => 5;
7
8
BEGIN {
9
    use_ok('Koha::DataObject::Branch', 'Loading Koha::DataObject::Branch OK');
10
}
11
12
# CREATE
13
my $branch = Koha::DataObject::Branch->new({'branchcode' => 'TEST','branchname' => 'TEST NAME'});
14
ok($branch->create->id eq 'TEST','Creating a branch OK');
15
16
# READ
17
ok(Koha::DataObject::Branch->read({'branchcode' => 'TEST'})->first->branchname eq 'TEST NAME','Reading a branch OK');
18
19
# UPDATE
20
Koha::DataObject::Branch->update({'branchcode' => 'TEST','branchname' => 'TEST UPDATED'});
21
ok(Koha::DataObject::Branch->read({'branchcode' => 'TEST'})->first->branchname eq 'TEST UPDATED','Updating a branch OK');
22
23
# DELETE
24
ok(Koha::DataObject::Branch->delete({'branchcode' => 'TEST'}),'Deleting a branch OK');

Return to bug 8798