View | Details | Raw Unified | Return to bug 9592
Collapse All | Expand All

(-)a/C4/Members.pm (-12 / +11 lines)
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
- 

Return to bug 9592