Attachment #35831 for bug #13697

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

Lines 811-817 sub ModMember { Link Here

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

Lines 9759-9764 if ( CheckVersion($DBversion) ) { Link Here

(-)a/installer/data/mysql/updatedatabase.pl (-1 / +7 lines)
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