gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 18936: DBRev 19.12.00.018 

Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
This commit is contained in:
Martin Renvoize 2020-02-04 10:08:50 +00:00
parent 845c1bae63
commit 14fa7c112c
No known key found for this signature in database
GPG Key ID: 422B469130441A0F
3 changed files with 50 additions and 49 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Koha.pm
View File

@ -29,7 +29,7 @@ use vars qw{ $VERSION };
# - #4 : the developer version. The 4th number is the database subversion.
# used by developers when the database changes. updatedatabase take care of the changes itself
# and is automatically called by Auth.pm when needed.
$VERSION = "19.12.00.017";
$VERSION = "19.12.00.018";
sub version {
return $VERSION;

48
installer/data/mysql/atomicupdate/bug_18936.perl
View File

@ -1,48 +0,0 @@
$DBversion = 'XXX'; # will be replaced by the RM
if( CheckVersion( $DBversion ) ) {
my @columns = qw(
restrictedtype
rentaldiscount
fine
finedays
maxsuspensiondays
suspension_chargeperiod
firstremind
chargeperiod
chargeperiod_charge_at
accountsent
issuelength
lengthunit
hardduedate
hardduedatecompare
renewalsallowed
renewalperiod
norenewalbefore
auto_renew
no_auto_renewal_after
no_auto_renewal_after_hard_limit
reservesallowed
holds_per_record
holds_per_day
onshelfholds
opacitemholds
overduefinescap
cap_fine_to_replacement_price
article_requests
note
);
if ( column_exists( 'issuingrules', 'categorycode' ) ) {
foreach my $column ( @columns ) {
$dbh->do("
INSERT INTO circulation_rules ( categorycode, branchcode, itemtype, rule_name, rule_value )
SELECT IF(categorycode='*', NULL, categorycode), IF(branchcode='*', NULL, branchcode), IF(itemtype='*', NULL, itemtype), \'$column\', COALESCE( $column, '' )
FROM issuingrules
");
}
$dbh->do("DROP TABLE issuingrules");
}
SetVersion( $DBversion );
print "Upgrade to $DBversion done (Bug 18936: Convert issuingrules fields to circulation_rules)\n";
}

49
installer/data/mysql/updatedatabase.pl
View File

@ -20683,6 +20683,55 @@ if( CheckVersion( $DBversion ) ) {
print "Upgrade to $DBversion done (Bug 21674 - Add unique key (parent_id, branchcode) to library_group)\n";
}
$DBversion = '19.12.00.018';
if( CheckVersion( $DBversion ) ) {
my @columns = qw(
restrictedtype
rentaldiscount
fine
finedays
maxsuspensiondays
suspension_chargeperiod
firstremind
chargeperiod
chargeperiod_charge_at
accountsent
issuelength
lengthunit
hardduedate
hardduedatecompare
renewalsallowed
renewalperiod
norenewalbefore
auto_renew
no_auto_renewal_after
no_auto_renewal_after_hard_limit
reservesallowed
holds_per_record
holds_per_day
onshelfholds
opacitemholds
overduefinescap
cap_fine_to_replacement_price
article_requests
note
);
if ( column_exists( 'issuingrules', 'categorycode' ) ) {
foreach my $column ( @columns ) {
$dbh->do("
INSERT INTO circulation_rules ( categorycode, branchcode, itemtype, rule_name, rule_value )
SELECT IF(categorycode='*', NULL, categorycode), IF(branchcode='*', NULL, branchcode), IF(itemtype='*', NULL, itemtype), \'$column\', COALESCE( $column, '' )
FROM issuingrules
");
}
$dbh->do("DROP TABLE issuingrules");
}
SetVersion( $DBversion );
print "Upgrade to $DBversion done (Bug 18936: Convert issuingrules fields to circulation_rules)\n";
}
# SEE bug 13068
# if there is anything in the atomicupdate, read and execute it.
my $update_dir = C4::Context->config('intranetdir') . '/installer/data/mysql/atomicupdate/';