|
Lines 6557-6562
if ( CheckVersion($DBversion) ) {
Link Here
|
| 6557 |
SetVersion($DBversion); |
6557 |
SetVersion($DBversion); |
| 6558 |
} |
6558 |
} |
| 6559 |
|
6559 |
|
|
|
6560 |
$DBversion = '3.11.00.XXX'; |
| 6561 |
if (C4::Context->preference("Version") < TransformToNum($DBversion)) { |
| 6562 |
my $sth = $dbh->prepare(" |
| 6563 |
SELECT module, code, branchcode, content |
| 6564 |
FROM letter |
| 6565 |
WHERE content LIKE '%<fine>%' |
| 6566 |
"); |
| 6567 |
$sth->execute; |
| 6568 |
my $sth_update = $dbh->prepare("UPDATE letter SET content = ? WHERE module = ? AND code = ? AND branchcode = ?"); |
| 6569 |
while(my $row = $sth->fetchrow_hashref){ |
| 6570 |
$row->{content} =~ s/<fine>\w+<\/fine>/<<items.fine>>/; |
| 6571 |
$sth_update->execute($row->{content}, $row->{module}, $row->{code}, $row->{branchcode}); |
| 6572 |
} |
| 6573 |
print "Upgrade to $DBversion done (use new <<items.fine>> syntax in notices)\n"; |
| 6574 |
SetVersion ($DBversion); |
| 6575 |
} |
| 6576 |
|
| 6560 |
=head1 FUNCTIONS |
6577 |
=head1 FUNCTIONS |
| 6561 |
|
6578 |
|
| 6562 |
=head2 TableExists($table) |
6579 |
=head2 TableExists($table) |
| 6563 |
- |
|
|