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 |
- |
|
|