Lines 40-45
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" } ); |
44 |
$sth->execute(); |
45 |
my $seen = {}; |
46 |
while (my $row = $sth->fetchrow_hashref) { |
47 |
my $type = $row->{accounttype}; |
48 |
my $sipcode = $type; |
49 |
$sipcode =~ s/Pay/SIP/g; |
50 |
unless ($seen->{$sipcode}) { |
51 |
$dbh->do(qq{ |
52 |
INSERT INTO |
53 |
authorised_values (category,authorised_value,lib) |
54 |
VALUES |
55 |
('PAYMENT_TYPE',"$sipcode",'Unrecognised SIP2 payment type') |
56 |
}); |
57 |
|
58 |
$dbh->do(qq{ |
59 |
UPDATE |
60 |
accountlines |
61 |
SET |
62 |
accounttype = 'Pay', |
63 |
payment_type = "$sipcode" |
64 |
WHERE |
65 |
accounttype = "$type"; |
66 |
}); |
67 |
|
68 |
$seen->{$sipcode} = 1; |
69 |
} |
70 |
} |
71 |
|
43 |
SetVersion($DBversion); |
72 |
SetVersion($DBversion); |
44 |
print "Upgrade to $DBversion done (Bug 22610 - Fix accounttypes for SIP2 payments)\n"; |
73 |
print "Upgrade to $DBversion done (Bug 22610 - Fix accounttypes for SIP2 payments)\n"; |
45 |
} |
74 |
} |
46 |
- |
|
|