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

Bug 23049: (QA follow-up) DB Update Improvements 

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
This commit is contained in:
Martin Renvoize 2019-10-18 13:02:16 +01:00
parent b2b651d13d
commit 7555441ace
No known key found for this signature in database
GPG Key ID: 422B469130441A0F
1 changed files with 29 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
installer/data/mysql/atomicupdate/bug_23049_debit.perl
View File

@ -83,6 +83,17 @@ if ( CheckVersion($DBversion) ) {
}
);
# Catch 'F' cases introduced since bug 22521
$dbh->do(qq{
UPDATE
accountlines
SET
accounttype = 'OVERDUE',
status = 'RETURNED'
WHERE
accounttype = 'F';
});
# Moving MANUAL_INV to account_debit_types
$dbh->do(
qq{
@ -94,7 +105,7 @@ if ( CheckVersion($DBversion) ) {
is_system
)
SELECT
SUBSTR(authorised_value, 1, 80),
authorised_value,
lib,
authorised_value,
1,
@ -106,6 +117,22 @@ if ( CheckVersion($DBversion) ) {
}
);
# Update uncaught partial accounttypes left behind after bugs 23539 and 22521
my $sth = $dbh->prepare( "SELECT code, SUBSTR(code, 1,5) AS subcode FROM account_debit_types" );
$sth->execute();
while ( my $row = $sth->fetchrow_hashref ) {
$dbh->do(
qq{
UPDATE accountlines SET accounttype = ? WHERE accounttype = ?
},
{},
(
$row->{code},
$row->{subcode}
)
);
}
# Add any unexpected accounttype codes to debit_types as appropriate
$dbh->do(
qq{
@ -117,7 +144,7 @@ if ( CheckVersion($DBversion) ) {
is_system
)
SELECT
SUBSTR(accounttype, 1, 80),
DISTINCT(accounttype),
"Unexpected type found during upgrade",
1,
NULL,