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