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

Bug 17135 - DBRev 16.05.03.002 

Signed-off-by: Frédéric Demians <f.demians@tamil.fr>
This commit is contained in:
Frédéric Demians 2016-09-16 10:50:33 +00:00
parent 57c3d276af
commit f0d508ede6
3 changed files with 18 additions and 15 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 = "16.05.03.001";
$VERSION = "16.05.03.002";
sub version {
return $VERSION;

14
installer/data/mysql/atomicupdate/bug_17135-fix_unclosed_nonaccruing_fines.perl
View File

@ -1,14 +0,0 @@
$DBversion = '16.06.00.XXX';
if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
{
print "Attempting upgrade to $DBversion (Bug 17135) ...\n";
my $maintenance_script = C4::Context->config("intranetdir") . "/installer/data/mysql/fix_unclosed_nonaccruing_fines_bug17135.pl";
system("perl $maintenance_script --confirm");
print "Upgrade to $DBversion done (Bug 17135 - Fine for the previous overdue may get overwritten by the next one)\n";
unless ($original_version < TransformToNum("3.23.00.032")) { ## Bug 15675
print "WARNING: There is a possibility (= just a possibility, it's configuration dependent etc.) that - due to regression introduced by Bug 15675 - some old fine records for overdued items (items which got renewed 1+ time while being overdue) may have been overwritten in your production 16.05+ database. See Bugzilla reports for Bug 14390 and Bug 17135 for more details.\n";
print "WARNING: Please note that this upgrade does not try to recover such overwitten old fine records (if any) - it's just an follow-up for Bug 14390, its sole purpose is preventing eventual further-on overwrites from happening in the future. Optional recovery of the overwritten fines (again, if any) is like, totally outside of the scope of this particular upgrade!\n";
}
SetVersion ($DBversion);
}
}

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

@ -12704,6 +12704,23 @@ if ( CheckVersion($DBversion) ) {
SetVersion($DBversion);
}
$DBversion = '16.05.03.002';
if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
{
print "Attempting upgrade to $DBversion (Bug 17135) ...\n";
my $maintenance_script = C4::Context->config("intranetdir") . "/installer/data/mysql/fix_unclosed_nonaccruing_fines_bug17135.pl";
system("perl $maintenance_script --confirm");
print "Upgrade to $DBversion done (Bug 17135 - Fine for the previous overdue may get overwritten by the next one)\n";
unless ($original_version < TransformToNum("3.23.00.032")) { ## Bug 15675
print "WARNING: There is a possibility (= just a possibility, it's configuration dependent etc.) that - due to regression introduced by Bug 15675 - some old fine records for overdued items (items which got renewed 1+ time while being overdue) may have been overwritten in your production 16.05+ database. See Bugzilla reports for Bug 14390 and Bug 17135 for more details.\n";
print "WARNING: Please note that this upgrade does not try to recover such overwitten old fine records (if any) - it's just an follow-up for Bug 14390, its sole purpose is preventing eventual further-on overwrites from happening in the future. Optional recovery of the overwritten fines (again, if any) is like, totally outside of the scope of this particular upgrade!\n";
}
SetVersion ($DBversion);
}
}
# DEVELOPER PROCESS, search for anything to execute in the db_update directory
# SEE bug 13068
# if there is anything in the atomicupdate, read and execute it.