} else {

    } else {

        # a zero (or null) chargeperiod or negative units_minus_grace value means no charge.

        # a zero (or null) chargeperiod or negative units_minus_grace value means no charge.

    }

    }

    $amount = $data->{overduefinescap} if $data->{overduefinescap} && $amount > $data->{overduefinescap};

    $amount = $data->{overduefinescap} if $data->{overduefinescap} && $amount > $data->{overduefinescap};

    $debug and warn sprintf("CalcFine returning (%s, %s, %s, %s)", $amount, $data->{'chargename'}, $units_minus_grace, $chargeable_units);

    $debug and warn sprintf("CalcFine returning (%s, %s, %s, %s)", $amount, $data->{'chargename'}, $units_minus_grace, $chargeable_units);

    return ($amount, $data->{'chargename'}, $units_minus_grace, $chargeable_units);

    return ($amount, $data->{'chargename'}, $units_minus_grace, $chargeable_units);

    # FIXME: chargename is NEVER populated anywhere.

    # FIXME: chargename is NEVER populated anywhere.

}

}

        }

        }

        $total_amount_other += $rec->{'amount'};

        $total_amount_other += $rec->{'amount'};

    }

    }

    if (my $maxfine = C4::Context->preference('MaxFine')) {

    if (my $maxfine = C4::Context->preference('MaxFine')) {

        if ($total_amount_other + $amount > $maxfine) {

        if ($total_amount_other + $amount > $maxfine) {

            my $new_amount = $maxfine - $total_amount_other;

            my $new_amount = $maxfine - $total_amount_other;

            return if $new_amount <= 0.00;

            return if $new_amount <= 0.00;

            $amount = $new_amount;

            $amount = $new_amount;

        }

        }

    }

    }

    if ( $data ) {

    if ( $data ) {

		# we're updating an existing fine.  Only modify if amount changed

		# we're updating an existing fine.  Only modify if amount changed

INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('HighlightOwnItemsOnOPAC','0','','If on, and a patron is logged into the OPAC, items from his or her home library will be emphasized and shown first in search results and item details.','YesNo');

INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('HighlightOwnItemsOnOPAC','0','','If on, and a patron is logged into the OPAC, items from his or her home library will be emphasized and shown first in search results and item details.','YesNo');

INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('HighlightOwnItemsOnOPACWhich','PatronBranch','PatronBranch|OpacURLBranch','Decides which branch''s items to emphasize. If PatronBranch, emphasize the logged in user''s library''s items. If OpacURLBranch, highlight the items of the Apache var BRANCHCODE defined in Koha''s Apache configuration file.','Choice');

INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('HighlightOwnItemsOnOPACWhich','PatronBranch','PatronBranch|OpacURLBranch','Decides which branch''s items to emphasize. If PatronBranch, emphasize the logged in user''s library''s items. If OpacURLBranch, highlight the items of the Apache var BRANCHCODE defined in Koha''s Apache configuration file.','Choice');

INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('UniqueItemFields', 'barcode', 'Space-separated list of fields that should be unique (used in acquisition module for item creation). Fields must be valid SQL column names of items table', '', 'Free');

INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('UniqueItemFields', 'barcode', 'Space-separated list of fields that should be unique (used in acquisition module for item creation). Fields must be valid SQL column names of items table', '', 'Free');

    SetVersion ($DBversion);

    SetVersion ($DBversion);

}

}

=head1 FUNCTIONS

=head1 FUNCTIONS

         - '[% local_currency %].'

         - '[% local_currency %].'

         - Empty value means no limit. Single item caps are specified in the circulation rules matrix.

         - Empty value means no limit. Single item caps are specified in the circulation rules matrix.

     -

     -

         - pref: memberofinstitution

         - pref: memberofinstitution

           choices:

           choices:

               yes: Do

               yes: Do