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 |