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

(-)a/installer/data/mysql/atomicupdate/bug_22610.perl (-2 / +1 lines)
Lines 40-46 if ( CheckVersion($DBversion) ) { Link Here
40
          accounttype = 'Pay02';
40
          accounttype = 'Pay02';
41
    });
41
    });
42
42
43
    my $sth = $dbh->prepare( qq{SELECT * FROM accountlines WHERE accounttype LIKE "Pay%" AND accounttype != "Pay" } );
43
    my $sth = $dbh->prepare( qq{SELECT * FROM accountlines WHERE accounttype REGEXP '^Pay[[:digit:]]{2}$' } );
44
    $sth->execute();
44
    $sth->execute();
45
    my $seen = {};
45
    my $seen = {};
46
    while (my $row = $sth->fetchrow_hashref) {
46
    while (my $row = $sth->fetchrow_hashref) {
47
- 

Return to bug 22610