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

(-)a/C4/Members.pm (+2 lines)
Lines 811-817 sub ModMember { Link Here
811
811
812
        # If the patron changes to a category with enrollment fee, we add a fee
812
        # If the patron changes to a category with enrollment fee, we add a fee
813
        if ( $data{categorycode} and $data{categorycode} ne $old_categorycode ) {
813
        if ( $data{categorycode} and $data{categorycode} ne $old_categorycode ) {
814
            if (C4::Context->preference('FeeOnChangePatronCategory') == 0){
814
            AddEnrolmentFeeIfNeeded( $data{categorycode}, $data{borrowernumber} );
815
            AddEnrolmentFeeIfNeeded( $data{categorycode}, $data{borrowernumber} );
816
            }
815
        }
817
        }
816
818
817
        # If NorwegianPatronDBEnable is enabled, we set syncstatus to something that a
819
        # If NorwegianPatronDBEnable is enabled, we set syncstatus to something that a
(-)a/installer/data/mysql/updatedatabase.pl (-1 / +7 lines)
Lines 9759-9764 if ( CheckVersion($DBversion) ) { Link Here
9759
    SetVersion ($DBversion);
9759
    SetVersion ($DBversion);
9760
}
9760
}
9761
9761
9762
$DBversion = "3.19.00.XXX";
9763
if ( CheckVersion($DBversion) ) {
9764
    $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('FeeOnChangePatronCategory','0','If set, when the patron changes to a category with enrolment fee, a fee is not added','','YesNo')");
9765
    print "Upgrade to $DBversion done (Bug 13697 - Option to don't add a fee, if the patron changes to a category with enrolment fee)\n";
9766
    SetVersion($DBversion);
9767
}
9768
9762
=head1 FUNCTIONS
9769
=head1 FUNCTIONS
9763
9770
9764
=head2 TableExists($table)
9771
=head2 TableExists($table)
9765
- 

Return to bug 13697