Lines 72-84
sub _get_data_and_patron {
Link Here
|
72 |
if defined $claim->{$pkey}; |
72 |
if defined $claim->{$pkey}; |
73 |
} |
73 |
} |
74 |
|
74 |
|
75 |
my $value = $mapped_data->{$matchpoint}; |
75 |
$patron = $self->_find_patron_by_matchpoint( $matchpoint, $mapped_data->{$matchpoint} ); |
76 |
|
|
|
77 |
my $matchpoint_rs = Koha::Patrons->search( { $matchpoint => $value } ); |
78 |
|
79 |
if ( defined $value and $matchpoint_rs->count ) { |
80 |
$patron = $matchpoint_rs->next; |
81 |
} |
82 |
} |
76 |
} |
83 |
|
77 |
|
84 |
if ( defined $config->{userinfo_url} ) { |
78 |
if ( defined $config->{userinfo_url} ) { |
Lines 101-113
sub _get_data_and_patron {
Link Here
|
101 |
} |
95 |
} |
102 |
|
96 |
|
103 |
unless ($patron) { |
97 |
unless ($patron) { |
104 |
my $value = $mapped_data->{$matchpoint}; |
98 |
$patron = $self->_find_patron_by_matchpoint( $matchpoint, $mapped_data->{$matchpoint} ); |
105 |
|
|
|
106 |
my $matchpoint_rs = Koha::Patrons->search( { $matchpoint => $value } ); |
107 |
|
108 |
if ( defined $value and $matchpoint_rs->count ) { |
109 |
$patron = $matchpoint_rs->next; |
110 |
} |
111 |
} |
99 |
} |
112 |
|
100 |
|
113 |
} |
101 |
} |
Lines 115-118
sub _get_data_and_patron {
Link Here
|
115 |
return ( $mapped_data, $patron ); |
103 |
return ( $mapped_data, $patron ); |
116 |
} |
104 |
} |
117 |
|
105 |
|
|
|
106 |
=head3 _find_patron_by_matchpoint |
107 |
|
108 |
my $patron = $client->_find_patron_by_matchpoint( $matchpoint, $value ); |
109 |
|
110 |
Internal method to find a patron by the given matchpoint and value. |
111 |
Returns the patron object if found, undef otherwise. |
112 |
|
113 |
=cut |
114 |
|
115 |
sub _find_patron_by_matchpoint { |
116 |
my ( $self, $matchpoint, $value ) = @_; |
117 |
|
118 |
return unless defined $value; |
119 |
|
120 |
my $matchpoint_rs = Koha::Patrons->search( { $matchpoint => $value } ); |
121 |
|
122 |
return $matchpoint_rs->count ? $matchpoint_rs->next : undef; |
123 |
} |
124 |
|
118 |
1; |
125 |
1; |
119 |
- |
|
|