|
Lines 505-510
sub guarantee_relationships {
Link Here
|
| 505 |
); |
505 |
); |
| 506 |
} |
506 |
} |
| 507 |
|
507 |
|
|
|
508 |
=head3 non_patron_guarantor_info |
| 509 |
|
| 510 |
Returns ($contactfirstname, $contactname, $relationship) of this patron's non-patron guarantor |
| 511 |
|
| 512 |
=cut |
| 513 |
|
| 514 |
sub non_patron_guarantor_info { |
| 515 |
my ($self) = @_; |
| 516 |
|
| 517 |
my $contactfirstname = $self->_result->contactfirstname; |
| 518 |
my $contactname = $self->_result->contactname; |
| 519 |
my $relationship = $self->_result->relationship; |
| 520 |
|
| 521 |
return ($contactfirstname, $contactname, $relationship); |
| 522 |
} |
| 523 |
|
| 508 |
=head3 relationships_debt |
524 |
=head3 relationships_debt |
| 509 |
|
525 |
|
| 510 |
Returns the amount owed by the patron's guarantors *and* the other guarantees of those guarantors |
526 |
Returns the amount owed by the patron's guarantors *and* the other guarantees of those guarantors |
| 511 |
- |
|
|