# - #4 : the developer version. The 4th number is the database subversion.
# used by developers when the database changes. updatedatabase take care of the changes itself
# and is automatically called by Auth.pm when needed.
-$VERSION = "3.23.00.052";
+$VERSION = "3.23.00.053";
sub version {
return $VERSION;
+++ /dev/null
-my $dbh = C4::Context->dbh;
-my $letters = $dbh->selectall_arrayref(q|
- SELECT code, name
- FROM letter
- WHERE message_transport_type="email"
-|, { Slice => {} });
-for my $letter ( @$letters ) {
- $dbh->do(q|
- UPDATE letter
- SET name = ?
- WHERE code = ?
- AND message_transport_type <> "email"
- |, undef, $letter->{name}, $letter->{code});
-}
SetVersion($DBversion);
}
+$DBversion = "3.23.00.053";
+if ( CheckVersion($DBversion) ) {
+my $letters = $dbh->selectall_arrayref(q|
+ SELECT code, name
+ FROM letter
+ WHERE message_transport_type="email"
+ |, { Slice => {} });
+for my $letter ( @$letters ) {
+ $dbh->do(q|
+ UPDATE letter
+ SET name = ?
+ WHERE code = ?
+ AND message_transport_type <> "email"
+ |, undef, $letter->{name}, $letter->{code});
+}
+
+ print "Upgrade to $DBversion done (Bug 16217 - Notice' names may have diverged)\n";
+ SetVersion($DBversion);
+ }
+
+
# DEVELOPER PROCESS, search for anything to execute in the db_update directory
# SEE bug 13068
# if there is anything in the atomicupdate, read and execute it.