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

(-)a/installer/data/mysql/atomicupdate/bug_29457.pl (-1 / +13 lines)
Line 0 Link Here
0
- 
1
use Modern::Perl;
2
3
return {
4
    bug_number => "29457",
5
    description => "Fix manager_id for historical account cancellations",
6
    up => sub {
7
        my ($args) = @_;
8
        my ($dbh, $out) = @$args{qw(dbh out)};
9
        $dbh->do(q{ 
10
            UPDATE accountlines SET manager_id = ( SELECT borrowernumber FROM borrowers WHERE borrowers.userid = accountlines.manager_id ) WHERE credit_type_code = 'CANCELLATION';
11
        });
12
    },
13
}

Return to bug 29457