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 |
- |
|
|