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