|
Lines 840-846
sub CanBookBeIssued {
Link Here
|
| 840 |
$no_issues_charge_guarantees = undef unless looks_like_number( $no_issues_charge_guarantees ); |
840 |
$no_issues_charge_guarantees = undef unless looks_like_number( $no_issues_charge_guarantees ); |
| 841 |
if ( defined $no_issues_charge_guarantees ) { |
841 |
if ( defined $no_issues_charge_guarantees ) { |
| 842 |
my @guarantees = map { $_->guarantee } $patron->guarantee_relationships(); |
842 |
my @guarantees = map { $_->guarantee } $patron->guarantee_relationships(); |
| 843 |
my $guarantees_non_issues_charges; |
843 |
my $guarantees_non_issues_charges = 0; |
| 844 |
foreach my $g ( @guarantees ) { |
844 |
foreach my $g ( @guarantees ) { |
| 845 |
$guarantees_non_issues_charges += $g->account->non_issues_charges; |
845 |
$guarantees_non_issues_charges += $g->account->non_issues_charges; |
| 846 |
} |
846 |
} |
| 847 |
- |
|
|