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

(-)a/Koha/DB/Branch.pm (+36 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::Schema;
7
8
use Moose;
9
10
my $schema = Koha::Schema->connect(
11
    'dbi:mysql:dbname='.C4::Context->config("database"),
12
    C4::Context->config("user"),
13
    C4::Context->config("pass"),
14
    { AutoCommit => 1 },
15
  );
16
17
sub create {
18
    my ($self, $branch) = @_;
19
    $schema->resultset('Branch')->create($branch);
20
}
21
22
sub read {
23
    my ($self, $branch) = @_;
24
    return $schema->resultset('Branch')->search($branch);
25
}
26
27
sub update {
28
    my ($self, $branch) = @_;
29
    return $schema->resultset('Branch')->search({branchcode => $branch->{branchcode}})->update($branch);
30
}
31
32
sub delete {
33
    my ($self,$branch) = @_;
34
    $schema->resultset('Branch')->search($branch)->delete;
35
}
36
(-)a/t/db_dependent/lib/KohaTest/Koha/DB/Branch.t (-1 / +27 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::DB::Branch', 'Loading Koha::DB::Branch OK');
10
}
11
12
# open a handler to the branch
13
my $branch = Koha::DB::Branch->new();
14
15
# CREATE
16
ok($branch->create({'branchcode' => 'TEST','branchname' => 'TEST NAME'})->id eq 'TEST','Creating a branch OK');
17
18
# READ
19
ok(my $branch_f = $branch->read({'branchcode' => 'TEST'})->first->branchname eq 'TEST NAME','Reading a branch OK');
20
21
# UPDATE
22
$branch->update({'branchcode' => 'TEST','branchname' => 'TEST UPDATED'});
23
ok($branch_f = $branch->read({'branchcode' => 'TEST'})->first->branchname eq 'TEST UPDATED','Updating a branch OK');
24
25
# DELETE
26
ok($branch->delete({'branchcode' => 'TEST'}),'Deleting a branch OK');
27

Return to bug 8309