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

(-)a/Koha/Acquisition/Currency.pm (-1 / +20 lines)
Lines 33-38 Koha::Acquisition::Currency - Koha Acquisition Currency Object class Link Here
33
33
34
=cut
34
=cut
35
35
36
=head3 store
37
38
=cut
39
40
sub store {
41
    my ( $self ) = @_;
42
    my $result;
43
    $self->_result->result_source->schema->txn_do( sub {
44
        if ( $self->active ) {
45
            my @currencies = Koha::Acquisition::Currencies->search;
46
            for my $currency ( @currencies ) {
47
                $currency->active(0);
48
                $currency->store;
49
            }
50
        }
51
        $result = $self->SUPER::store;
52
    });
53
    return $result;
54
}
55
36
=head3 type
56
=head3 type
37
57
38
=cut
58
=cut
39
- 

Return to bug 15084