|
Lines 1169-1188
Charges exempt from non-issue are:
Link Here
|
| 1169 |
|
1169 |
|
| 1170 |
=cut |
1170 |
=cut |
| 1171 |
|
1171 |
|
| 1172 |
my $ACCOUNT_TYPE_LENGTH = 5; # this is plain ridiculous... |
|
|
| 1173 |
|
| 1174 |
my @not_fines = ('Res'); |
| 1175 |
push @not_fines, 'Rent' unless C4::Context->preference('RentalsInNoissuesCharge'); |
| 1176 |
unless ( C4::Context->preference('ManInvInNoissuesCharge') ) { |
| 1177 |
my $dbh = C4::Context->dbh; |
| 1178 |
my $man_inv_types = $dbh->selectcol_arrayref(qq{SELECT authorised_value FROM authorised_values WHERE category = 'MANUAL_INV'}); |
| 1179 |
push @not_fines, map substr($_, 0, $ACCOUNT_TYPE_LENGTH), @$man_inv_types; |
| 1180 |
} |
| 1181 |
my %not_fine = map {$_ => 1} @not_fines; |
| 1182 |
|
| 1183 |
sub GetMemberAccountBalance { |
1172 |
sub GetMemberAccountBalance { |
| 1184 |
my ($borrowernumber) = @_; |
1173 |
my ($borrowernumber) = @_; |
| 1185 |
|
1174 |
|
|
|
1175 |
my $ACCOUNT_TYPE_LENGTH = 5; # this is plain ridiculous... |
| 1176 |
|
| 1177 |
my @not_fines = ('Res'); |
| 1178 |
push @not_fines, 'Rent' unless C4::Context->preference('RentalsInNoissuesCharge'); |
| 1179 |
unless ( C4::Context->preference('ManInvInNoissuesCharge') ) { |
| 1180 |
my $dbh = C4::Context->dbh; |
| 1181 |
my $man_inv_types = $dbh->selectcol_arrayref(qq{SELECT authorised_value FROM authorised_values WHERE category = 'MANUAL_INV'}); |
| 1182 |
push @not_fines, map substr($_, 0, $ACCOUNT_TYPE_LENGTH), @$man_inv_types; |
| 1183 |
} |
| 1184 |
my %not_fine = map {$_ => 1} @not_fines; |
| 1185 |
|
| 1186 |
my ($total, $acctlines) = GetMemberAccountRecords($borrowernumber); |
1186 |
my ($total, $acctlines) = GetMemberAccountRecords($borrowernumber); |
| 1187 |
my $other_charges = 0; |
1187 |
my $other_charges = 0; |
| 1188 |
foreach (@$acctlines) { |
1188 |
foreach (@$acctlines) { |
| 1189 |
- |
|
|