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

(-)a/installer/data/mysql/atomicupdate/bug_11573.perl (-1 / +26 lines)
Line 0 Link Here
0
- 
1
$DBversion = 'XXX';    # will be replaced by the RM
2
if ( CheckVersion($DBversion) ) {
3
4
    $dbh->do(qq{
5
        UPDATE
6
          accountlines
7
        SET
8
          accounttype = 'RENT_RENEW'
9
        WHERE
10
          accounttype = 'Rent'
11
        AND
12
          description LIKE 'Renewal of Rental Item%';
13
    });
14
15
    $dbh->do(qq{
16
        UPDATE
17
          accountlines
18
        SET
19
          accounttype = 'RENT'
20
        WHERE
21
          accounttype = 'Rent';
22
    });
23
24
    SetVersion($DBversion);
25
    print "Upgrade to $DBversion done (Bug 11573 - Fix accounttypes for 'Rent')\n";
26
}

Return to bug 11573