my $ACCOUNT_TYPE_LENGTH = 5; # this is plain ridiculous...
my @not_fines = ('Res');
my @not_fines;
push @not_fines, 'Res' unless C4::Context->preference('HoldsInNoissuesCharge');
push @not_fines, 'Rent' unless C4::Context->preference('RentalsInNoissuesCharge');
unless ( C4::Context->preference('ManInvInNoissuesCharge') ) {
my $dbh = C4::Context->dbh;
SetVersion($DBversion);
}
$DBversion = "3.15.00.XXX";
if ( CheckVersion($DBversion) ) {
$dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('HoldsInNoissuesCharge', '0', 'Hold charges block checkouts (added to noissuescharge).',NULL,'YesNo');");
print "Upgrade to $DBversion done (Add HoldsInNoissuesCharge systempreference)\n";
=head1 FUNCTIONS
=head2 TableExists($table)
no: "Don't include"
- MANUAL_INV charges when summing up charges for noissuescharge.
-
- pref: HoldsInNoissuesCharge
choices:
yes: Include
- hold charges when summing up charges for noissuescharge.
- pref: ReturnBeforeExpiry
yes: Require