Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Bug 22511: (follow-up) Add DB Update

Browse source 
This update takes old VOID accountlines and attempts to restore the
original accounttypes using the offsets and set the status to 'VOID'

Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>

Signed-off-by: Josef Moravec <josef.moravec@gmail.com>

Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
This commit is contained in:
Martin Renvoize 2019-04-10 10:05:07 +01:00 committed by Nick Clemens
parent 58195734ee
commit 69bd858712
1 changed files with 25 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
installer/data/mysql/atomicupdate/bug_22511.perl Normal file
View file

@ -0,0 +1,25 @@
$DBversion = 'XXX'; # will be replaced by the RM
if ( CheckVersion($DBversion) ) {
my $types_map = {
'Writeoff' => 'W',
'Payment' => 'Pay',
'List Item' => 'CR',
'Manual Credit' => 'C',
'Forgiven' => 'FOR'
};
my $sth = $dbh->prepare( "SELECT accountlines_id FROM accountlines WHERE accounttype = 'VOID'" );
my $sth2 = $dbh->prepare( "SELECT type FROM account_offsets WHERE credit_id = ? ORDER BY created_on LIMIT 1" );
my $sth3 = $dbh->prepare( "UPDATE accountlines SET accounttype = ?, status = 'VOID' WHERE accountlines_id = ?" );
$sth->execute();
while (my $row = $sth->fetchrow_hashref) {
$sth2->execute($row->{accountlines_id});
my $result = $sth2->fetchrow;
my $type = $types_map->{$result->{'type'}} // 'Pay';
$sth3->execute($type,$row->{accountlines_id});
}
SetVersion($DBversion);
print "Upgrade to $DBversion done (Bug 22511 - Update existing VOID accountlines)\n";
}