Bug 32352: Make xt/check_makefile.t check directories in git index
[koha.git] / Koha / Acquisition / Currency.pm
1 package Koha::Acquisition::Currency;
2
3 # This file is part of Koha.
4 #
5 # Koha is free software; you can redistribute it and/or modify it
6 # under the terms of the GNU General Public License as published by
7 # the Free Software Foundation; either version 3 of the License, or
8 # (at your option) any later version.
9 #
10 # Koha is distributed in the hope that it will be useful, but
11 # WITHOUT ANY WARRANTY; without even the implied warranty of
12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 # GNU General Public License for more details.
14 #
15 # You should have received a copy of the GNU General Public License
16 # along with Koha; if not, see <http://www.gnu.org/licenses>.
17
18 use Modern::Perl;
19
20
21 use Koha::Database;
22
23 use base qw(Koha::Object);
24
25 =head1 NAME
26
27 Koha::Acquisition::Currency - Koha Acquisition Currency Object class
28
29 =head1 API
30
31 =head2 Class Methods
32
33 =cut
34
35 =head3 store
36
37 =cut
38
39 sub store {
40     my ( $self ) = @_;
41     my $result;
42     $self->_result->result_source->schema->txn_do( sub {
43         if ( $self->active ) {
44             # Remove the active flag from all other active currencies
45             Koha::Acquisition::Currencies->search(
46                 {
47                     currency => { '!=' => $self->currency },
48                     active => 1,
49                 }
50             )->update({ active => 0 });
51         }
52         $result = $self->SUPER::store;
53     });
54     return $result;
55 }
56
57 =head3 _type
58
59 =cut
60
61 sub _type {
62     return 'Currency';
63 }
64
65 1;