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