|
Lines 45-51
Returns a Koha::Patron object for this patron's guarantor
Link Here
|
| 45 |
sub guarantor { |
45 |
sub guarantor { |
| 46 |
my ( $self ) = @_; |
46 |
my ( $self ) = @_; |
| 47 |
|
47 |
|
| 48 |
return undef unless $self->guarantorid(); |
48 |
return unless $self->guarantorid(); |
| 49 |
|
49 |
|
| 50 |
return Koha::Patrons->find( $self->guarantorid() ); |
50 |
return Koha::Patrons->find( $self->guarantorid() ); |
| 51 |
} |
51 |
} |
|
Lines 79-85
sub siblings {
Link Here
|
| 79 |
|
79 |
|
| 80 |
my $guarantor = $self->guarantor; |
80 |
my $guarantor = $self->guarantor; |
| 81 |
|
81 |
|
| 82 |
return undef unless $guarantor; |
82 |
return unless $guarantor; |
| 83 |
|
83 |
|
| 84 |
return Koha::Patrons->search( |
84 |
return Koha::Patrons->search( |
| 85 |
{ |
85 |
{ |
| 86 |
- |
|
|