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