Attachment #87174 for bug #22518

View | Details | Raw Unified | Return to bug 22518
Collapse All | Expand All




$DBversion = 'XXX';    # will be replaced by the RM
if ( CheckVersion($DBversion) ) {

    my $rows = $dbh->do(
        qq{
        UPDATE `accountlines`
        SET
          `accounttype` = 'FU'
        WHERE
          `accounttype` = 'O'
      }
    );

    SetVersion($DBversion);
    print "Upgrade to $DBversion done (Bug 22518 - Fix accounttype 'O' to 'FU' - $rows updated)\n";
}
- 

Return to bug 22518

Lines 1-16 Link Here

(-)a/installer/data/mysql/atomicupdate/bug_22518.perl (-11 / +10 lines)
1	$DBversion = 'XXX'; # will be replaced by the RM	1	$DBversion = 'XXX'; # will be replaced by the RM
2	if ( CheckVersion($DBversion) ) {	2	if ( CheckVersion($DBversion) ) {
3		3
4	$dbh->do(	4	my $rows = $dbh->do(
5	qq{	5	qq{
6	UPDATE `accountlines`	6	UPDATE `accountlines`
7	SET	7	SET
8	`accounttype` = 'FU'	8	`accounttype` = 'FU'
9	WHERE	9	WHERE
10	`accounttype` = 'O'	10	`accounttype` = 'O'
11	}	11	}
12	);	12	);
13		13
14	SetVersion($DBversion);	14	SetVersion($DBversion);
15	print "Upgrade to $DBversion done (Bug 22518 - Fix accounttype 'O' to 'FU')\n";	15	print "Upgrade to $DBversion done (Bug 22518 - Fix accounttype 'O' to 'FU' - $rows updated)\n";
16	}	16	}
17	-