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

(-)a/installer/data/mysql/atomicupdate/bug_22518.perl (-11 / +10 lines)
Lines 1-16 Link Here
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
    printf "Upgrade to $DBversion done (Bug 22518 - Fix accounttype 'O' to 'FU' - %d updated)\n", $rows;
16
}
16
}
17
- 

Return to bug 22518