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