Lines 188-193
if ($issues){
Link Here
|
188 |
|
188 |
|
189 |
my ( $total , $accts, $numaccts) = GetMemberAccountRecords( $borrowernumber ); |
189 |
my ( $total , $accts, $numaccts) = GetMemberAccountRecords( $borrowernumber ); |
190 |
my $charges = 0; |
190 |
my $charges = 0; |
|
|
191 |
my $rentalfines = 0; |
191 |
foreach my $ac (@$accts) { |
192 |
foreach my $ac (@$accts) { |
192 |
if ( $ac->{'itemnumber'} == $issue->{'itemnumber'} ) { |
193 |
if ( $ac->{'itemnumber'} == $issue->{'itemnumber'} ) { |
193 |
$charges += $ac->{'amountoutstanding'} |
194 |
$charges += $ac->{'amountoutstanding'} |
Lines 196-204
if ($issues){
Link Here
|
196 |
if $ac->{'accounttype'} eq 'FU'; |
197 |
if $ac->{'accounttype'} eq 'FU'; |
197 |
$charges += $ac->{'amountoutstanding'} |
198 |
$charges += $ac->{'amountoutstanding'} |
198 |
if $ac->{'accounttype'} eq 'L'; |
199 |
if $ac->{'accounttype'} eq 'L'; |
|
|
200 |
$rentalfines += $ac->{'amountoutstanding'} |
201 |
if $ac->{'accounttype'} eq 'Rent'; |
199 |
} |
202 |
} |
200 |
} |
203 |
} |
201 |
$issue->{'charges'} = $charges; |
204 |
$issue->{'charges'} = $charges; |
|
|
205 |
$issue->{'rentalfines'} = $rentalfines; |
202 |
my $marcrecord = GetMarcBiblio( $issue->{'biblionumber'} ); |
206 |
my $marcrecord = GetMarcBiblio( $issue->{'biblionumber'} ); |
203 |
$issue->{'subtitle'} = GetRecordValue('subtitle', $marcrecord, GetFrameworkCode($issue->{'biblionumber'})); |
207 |
$issue->{'subtitle'} = GetRecordValue('subtitle', $marcrecord, GetFrameworkCode($issue->{'biblionumber'})); |
204 |
# check if item is renewable |
208 |
# check if item is renewable |
205 |
- |
|
|