1 package Koha::Patron::Modification;
3 # Copyright ByWater Solutions 2014
5 # This file is part of Koha.
7 # Koha is free software; you can redistribute it and/or modify it
8 # under the terms of the GNU General Public License as published by
9 # the Free Software Foundation; either version 3 of the License, or
10 # (at your option) any later version.
12 # Koha is distributed in the hope that it will be useful, but
13 # WITHOUT ANY WARRANTY; without even the implied warranty of
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 # GNU General Public License for more details.
17 # You should have received a copy of the GNU General Public License
18 # along with Koha; if not, see <http://www.gnu.org/licenses>.
24 use Koha::Exceptions::Patron::Modification;
25 use Koha::Patron::Attribute;
26 use Koha::Patron::Attributes;
27 use Koha::Patron::Modifications;
29 use JSON qw( from_json );
30 use List::MoreUtils qw( any uniq );
31 use Try::Tiny qw( catch try );
33 use base qw(Koha::Object);
37 Koha::Patron::Modification - Class represents a request to modify or create a patron
50 if ( $self->verification_token ) {
51 if (Koha::Patron::Modifications->search(
52 { verification_token => $self->verification_token }
56 Koha::Exceptions::Patron::Modification::DuplicateVerificationToken->throw(
57 "Duplicate verification token " . $self->verification_token );
61 if ( $self->extended_attributes ) {
63 my $json_parser = JSON->new;
64 $json_parser->decode( $self->extended_attributes );
67 Koha::Exceptions::Patron::Modification::InvalidData->throw(
68 'The passed extended_attributes is not valid JSON');
72 return $self->SUPER::store();
79 Commits the pending modifications to the borrower record and removes
80 them from the modifications table.
87 my $data = $self->unblessed();
88 my $extended_attributes;
90 delete $data->{timestamp};
91 delete $data->{verification_token};
92 delete $data->{extended_attributes};
93 my $changed_fields = $data->{changed_fields};
94 delete $data->{changed_fields};
96 my $patron = Koha::Patrons->find( $self->borrowernumber );
97 return unless $patron;
99 my @keep_keys = split /,/, $changed_fields;
100 my @all_keys = keys %$data;
101 foreach my $key ( @all_keys ) {
102 next if (any { $_ eq $key } @keep_keys);
103 delete $data->{$key};
108 # Take care of extended attributes
109 if ( $self->extended_attributes ) {
110 $extended_attributes = try { from_json( $self->extended_attributes ) }
112 Koha::Exceptions::Patron::Modification::InvalidData->throw(
113 'The passed extended_attributes is not valid JSON');
117 $self->_result->result_source->schema->txn_do(
122 # Deal with attributes
124 = uniq( map { $_->{code} } @{$extended_attributes} );
125 foreach my $code (@codes) {
126 map { $_->delete } Koha::Patron::Attributes->search(
127 { borrowernumber => $patron->borrowernumber,
132 foreach my $attr ( @{$extended_attributes} ) {
133 $attr->{attribute} = exists $attr->{attribute} ? $attr->{attribute} : $attr->{value};
134 Koha::Patron::Attribute->new(
135 { borrowernumber => $patron->borrowernumber,
136 code => $attr->{code},
137 attribute => $attr->{attribute},
140 if $attr->{attribute} # there's a value
142 ( defined $attr->{attribute} # there's a value that is 0, and not
143 && $attr->{attribute} ne "" # the empty string which means delete
144 && $attr->{attribute} == 0
149 if ( $_->isa('DBIx::Class::Exception') ) {
150 Koha::Exceptions::Patron::Modification->throw( $_->{msg} );
153 Koha::Exceptions::Patron::Modification->throw($_);
159 return $self->delete();
167 return 'BorrowerModification';
172 Kyle M Hall <kyle@bywatersolutions.com>