|
Lines 26-32
use Modern::Perl;
Link Here
|
| 26 |
|
26 |
|
| 27 |
use C4::Context; |
27 |
use C4::Context; |
| 28 |
use C4::Debug; |
28 |
use C4::Debug; |
| 29 |
use C4::SQLHelper qw(InsertInTable UpdateInTable); |
|
|
| 30 |
|
29 |
|
| 31 |
sub new { |
30 |
sub new { |
| 32 |
my ( $class, %args ) = @_; |
31 |
my ( $class, %args ) = @_; |
|
Lines 48-89
to be part of the passed in hash.
Link Here
|
| 48 |
sub AddModifications { |
47 |
sub AddModifications { |
| 49 |
my ( $self, $data ) = @_; |
48 |
my ( $self, $data ) = @_; |
| 50 |
|
49 |
|
| 51 |
if ( $self->{'borrowernumber'} ) { |
50 |
delete $data->{borrowernumber}; |
| 52 |
delete $data->{'borrowernumber'}; |
51 |
if( $self->{borrowernumber} ) { |
| 53 |
|
52 |
return if( not keys %$data ); |
| 54 |
if ( keys %$data ) { |
53 |
$data->{borrowernumber} = $self->{borrowernumber}; |
| 55 |
$data->{'borrowernumber'} = $self->{'borrowernumber'}; |
|
|
| 56 |
my $dbh = C4::Context->dbh; |
| 57 |
|
| 58 |
my $query = " |
| 59 |
SELECT COUNT(*) AS count |
| 60 |
FROM borrower_modifications |
| 61 |
WHERE borrowernumber = ? |
| 62 |
"; |
| 63 |
|
| 64 |
my $sth = $dbh->prepare($query); |
| 65 |
$sth->execute( $self->{'borrowernumber'} ); |
| 66 |
my $result = $sth->fetchrow_hashref(); |
| 67 |
|
| 68 |
if ( $result->{'count'} ) { |
| 69 |
$data->{'verification_token'} = q{}; |
| 70 |
return UpdateInTable( "borrower_modifications", $data ); |
| 71 |
} |
| 72 |
else { |
| 73 |
return InsertInTable( "borrower_modifications", $data ); |
| 74 |
} |
| 75 |
} |
| 76 |
|
| 77 |
} |
54 |
} |
| 78 |
elsif ( $self->{'verification_token'} ) { |
55 |
elsif( $self->{verification_token} ) { |
| 79 |
delete $data->{'borrowernumber'}; |
56 |
$data->{verification_token} = $self->{verification_token}; |
| 80 |
$data->{'verification_token'} = $self->{'verification_token'}; |
|
|
| 81 |
|
| 82 |
return InsertInTable( "borrower_modifications", $data ); |
| 83 |
} |
57 |
} |
| 84 |
else { |
58 |
else { |
| 85 |
return; |
59 |
return; |
| 86 |
} |
60 |
} |
|
|
61 |
|
| 62 |
my $rs = Koha::Database->new()->schema->resultset('BorrowerModification'); |
| 63 |
return $rs->update_or_create($data); |
| 87 |
} |
64 |
} |
| 88 |
|
65 |
|
| 89 |
=head2 Verify |
66 |
=head2 Verify |
|
Lines 120-125
sub Verify {
Link Here
|
| 120 |
$count = Koha::Borrower::Modifications->GetPendingModificationsCount(); |
97 |
$count = Koha::Borrower::Modifications->GetPendingModificationsCount(); |
| 121 |
|
98 |
|
| 122 |
Returns the number of pending modifications for existing borrowers. |
99 |
Returns the number of pending modifications for existing borrowers. |
|
|
100 |
|
| 123 |
=cut |
101 |
=cut |
| 124 |
|
102 |
|
| 125 |
sub GetPendingModificationsCount { |
103 |
sub GetPendingModificationsCount { |
|
Lines 203-212
sub ApproveModifications {
Link Here
|
| 203 |
|
181 |
|
| 204 |
return unless $borrowernumber; |
182 |
return unless $borrowernumber; |
| 205 |
|
183 |
|
| 206 |
my $data = $self->GetModifications({ borrowernumber => $borrowernumber }); |
184 |
my $data = $self->GetModifications( { borrowernumber => $borrowernumber } ); |
|
|
185 |
delete $data->{timestamp}; |
| 186 |
delete $data->{verification_token}; |
| 207 |
|
187 |
|
| 208 |
if ( UpdateInTable( "borrowers", $data ) ) { |
188 |
my $rs = Koha::Database->new()->schema->resultset('Borrower')->search({ |
| 209 |
$self->DelModifications({ borrowernumber => $borrowernumber }); |
189 |
borrowernumber => $data->{borrowernumber}, |
|
|
190 |
}); |
| 191 |
if( $rs->update($data) ) { |
| 192 |
$self->DelModifications( { borrowernumber => $borrowernumber } ); |
| 210 |
} |
193 |
} |
| 211 |
} |
194 |
} |
| 212 |
|
195 |
|
|
Lines 227-233
sub DenyModifications {
Link Here
|
| 227 |
|
210 |
|
| 228 |
return unless $borrowernumber; |
211 |
return unless $borrowernumber; |
| 229 |
|
212 |
|
| 230 |
return $self->DelModifications({ borrowernumber => $borrowernumber }); |
213 |
return $self->DelModifications( { borrowernumber => $borrowernumber } ); |
| 231 |
} |
214 |
} |
| 232 |
|
215 |
|
| 233 |
=head2 DelModifications |
216 |
=head2 DelModifications |