|
Lines 242-255
sub logs {
Link Here
|
| 242 |
|
242 |
|
| 243 |
my $patron = $request->patron; |
243 |
my $patron = $request->patron; |
| 244 |
|
244 |
|
| 245 |
Returns the linked I<Koha::Patron> object. |
245 |
For a given request, return the linked I<Koha::Patron> object |
|
|
246 |
associated with it, or undef if none exists |
| 246 |
|
247 |
|
| 247 |
=cut |
248 |
=cut |
| 248 |
|
249 |
|
| 249 |
sub patron { |
250 |
sub patron { |
| 250 |
my ( $self ) = @_; |
251 |
my ( $self ) = @_; |
| 251 |
|
252 |
|
| 252 |
return Koha::Patron->_new_from_dbic( scalar $self->_result->patron ); |
253 |
my $patron_rs = $self->_result->patron; |
|
|
254 |
return unless $patron_rs; |
| 255 |
return Koha::Patron->_new_from_dbic($patron_rs); |
| 253 |
} |
256 |
} |
| 254 |
|
257 |
|
| 255 |
=head3 library |
258 |
=head3 library |
| 256 |
- |
|
|