|
Lines 92-105
sub approve {
Link Here
|
| 92 |
delete $data->{verification_token}; |
92 |
delete $data->{verification_token}; |
| 93 |
delete $data->{extended_attributes}; |
93 |
delete $data->{extended_attributes}; |
| 94 |
|
94 |
|
| 95 |
foreach my $key ( keys %$data ) { |
|
|
| 96 |
delete $data->{$key} unless ( defined( $data->{$key} ) ); |
| 97 |
} |
| 98 |
|
| 99 |
my $patron = Koha::Patrons->find( $self->borrowernumber ); |
95 |
my $patron = Koha::Patrons->find( $self->borrowernumber ); |
| 100 |
|
|
|
| 101 |
return unless $patron; |
96 |
return unless $patron; |
| 102 |
|
97 |
|
|
|
98 |
foreach my $key ( keys %$data ) { |
| 99 |
next # Unset it! |
| 100 |
if $key eq 'dateofbirth' |
| 101 |
&& $patron->dateofbirth |
| 102 |
&& not defined $data->{$key}; |
| 103 |
|
| 104 |
delete $data->{$key} unless defined $data->{$key}; |
| 105 |
} |
| 106 |
|
| 103 |
$patron->set($data); |
107 |
$patron->set($data); |
| 104 |
|
108 |
|
| 105 |
# Take care of extended attributes |
109 |
# Take care of extended attributes |