From 52c6177ed903ce42e530e2daf46df513db63b5af Mon Sep 17 00:00:00 2001 From: Marcel de Rooy Date: Tue, 30 Apr 2024 11:41:55 +0000 Subject: [PATCH] Bug 36002: (follow-up) Save purchaseordernumbers from aqorders We copy them here to another (temporary) table. Signed-off-by: Marcel de Rooy Signed-off-by: Katrin Fischer --- installer/data/mysql/atomicupdate/bug_36002.pl | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) diff --git a/installer/data/mysql/atomicupdate/bug_36002.pl b/installer/data/mysql/atomicupdate/bug_36002.pl index 188c48e7e7..aa4bef2951 100755 --- a/installer/data/mysql/atomicupdate/bug_36002.pl +++ b/installer/data/mysql/atomicupdate/bug_36002.pl @@ -6,7 +6,24 @@ return { up => sub { my ($args) = @_; my ( $dbh, $out ) = @$args{qw(dbh out)}; + if ( column_exists( 'aqorders', 'purchaseordernumber' ) ) { + my ($cnt) = $dbh->selectrow_array( + q| +SELECT count(*) FROM aqorders +WHERE purchaseordernumber IS NOT NULL| + ); + if( $cnt ) { + say $out "We found $cnt order lines where field purchaseordernumber was filled!"; + $dbh->do( + q| +CREATE TABLE zzaqorders_purchaseordernumber AS +SELECT ordernumber,purchaseordernumber FROM aqorders WHERE purchaseordernumber IS NOT NULL| + ); + say $out q|These records have been copied to table: zzaqorders_purchaseordernumber. +Please examine the data and remove this table.|; + } + $dbh->do(q{ALTER TABLE aqorders DROP COLUMN purchaseordernumber}); } }, -- 2.39.5