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

(-)a/installer/data/mysql/atomicupdate/bug_22521.perl (-2 / +30 lines)
Lines 11-16 if ( CheckVersion($DBversion) ) { Link Here
11
        );
11
        );
12
    }
12
    }
13
13
14
    $dbh->do(qq{
15
        UPDATE
16
          accountlines
17
        SET
18
          accounttype = 'OVERDUE',
19
          status = 'UNRETURNED'
20
        WHERE
21
          accounttype = 'FU';    
22
    });
23
24
    $dbh->do(qq{
25
        UPDATE
26
          accountlines
27
        SET
28
          accounttype = 'OVERDUE',
29
          status = 'FORGIVEN'
30
        WHERE
31
          accounttype = 'FFOR';    
32
    });
33
34
    $dbh->do(qq{
35
        UPDATE
36
          accountlines
37
        SET
38
          accounttype = 'OVERDUE',
39
          status = 'RETURNED'
40
        WHERE
41
          accounttype = 'F';    
42
    });
14
    SetVersion($DBversion);
43
    SetVersion($DBversion);
15
    print "Upgrade to $DBversion done (Bug 22521 - Update accountlines.accounttype to varchar(16))\n";
44
    print "Upgrade to $DBversion done (Bug 22521 - Update accountlines.accounttype to varchar(16), and map new statuses)\n";
16
}
45
}
17
- 

Return to bug 22521