@@ -, +, @@ format --- installer/data/mysql/atomicupdate/bug_3820.perl | 9 +++++++++ 1 file changed, 9 insertions(+) create mode 100644 installer/data/mysql/atomicupdate/bug_3820.perl --- a/installer/data/mysql/atomicupdate/bug_3820.perl +++ a/installer/data/mysql/atomicupdate/bug_3820.perl @@ -0,0 +1,9 @@ +$DBversion = 'XXX'; # will be replaced by the RM +if( CheckVersion( $DBversion ) ) { + $dbh->do( "UPDATE action_logs SET info = REGEXP_REPLACE(info,'cardnumber_replaced','cardnumber') WHERE module='MEMBERS' AND action='MODIFY'" ); + $dbh->do( "UPDATE action_logs SET info = REGEXP_REPLACE(info,'previous_cardnumber','before') WHERE module='MEMBERS' AND action='MODIFY'" ); + $dbh->do( "UPDATE action_logs SET info = REGEXP_REPLACE(info,'new_cardnumber','after') WHERE module='MEMBERS' AND action='MODIFY'" ); + + SetVersion( $DBversion ); + print "Upgrade to $DBversion done (Bug 3820 - Update patron modification logs)\n"; +} --