|
Lines 175-181
sub patronflags {
Link Here
|
| 175 |
if ( defined $no_issues_charge_guarantees ) { |
175 |
if ( defined $no_issues_charge_guarantees ) { |
| 176 |
my $p = Koha::Patrons->find( $patroninformation->{borrowernumber} ); |
176 |
my $p = Koha::Patrons->find( $patroninformation->{borrowernumber} ); |
| 177 |
my @guarantees = map { $_->guarantee } $p->guarantee_relationships; |
177 |
my @guarantees = map { $_->guarantee } $p->guarantee_relationships; |
| 178 |
my $guarantees_non_issues_charges; |
178 |
my $guarantees_non_issues_charges = 0; |
| 179 |
foreach my $g ( @guarantees ) { |
179 |
foreach my $g ( @guarantees ) { |
| 180 |
$guarantees_non_issues_charges += $g->account->non_issues_charges; |
180 |
$guarantees_non_issues_charges += $g->account->non_issues_charges; |
| 181 |
} |
181 |
} |
| 182 |
- |
|
|