|
Lines 6532-6537
if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
Link Here
|
| 6532 |
SetVersion ($DBversion); |
6532 |
SetVersion ($DBversion); |
| 6533 |
} |
6533 |
} |
| 6534 |
|
6534 |
|
|
|
6535 |
$DBversion = '3.11.00.XXX'; |
| 6536 |
if (C4::Context->preference("Version") < TransformToNum($DBversion)) { |
| 6537 |
my $sth = $dbh->prepare(" |
| 6538 |
SELECT module, code, branchcode, content |
| 6539 |
FROM letter |
| 6540 |
WHERE content LIKE '%<fine>%' |
| 6541 |
"); |
| 6542 |
$sth->execute; |
| 6543 |
my $sth_update = $dbh->prepare("UPDATE letter SET content = ? WHERE module = ? AND code = ? AND branchcode = ?"); |
| 6544 |
while(my $row = $sth->fetchrow_hashref){ |
| 6545 |
$row->{content} =~ s/<fine>\w+<\/fine>/<<items.fine>>/; |
| 6546 |
$sth_update->execute($row->{content}, $row->{module}, $row->{code}, $row->{branchcode}); |
| 6547 |
} |
| 6548 |
print "Upgrade to $DBversion done (use new <<items.fine>> syntax in notices)\n"; |
| 6549 |
SetVersion ($DBversion); |
| 6550 |
} |
| 6551 |
|
| 6535 |
=head1 FUNCTIONS |
6552 |
=head1 FUNCTIONS |
| 6536 |
|
6553 |
|
| 6537 |
=head2 TableExists($table) |
6554 |
=head2 TableExists($table) |
| 6538 |
- |
|
|