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

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

Return to bug 22564