# - #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 = "18.05.09.000";
+$VERSION = "18.05.09.001";
sub version {
return $VERSION;
+++ /dev/null
-$DBversion = 'XXX'; # will be replaced by the RM
-if( CheckVersion( $DBversion ) ) {
-
- unless( foreign_key_exists( 'messages', 'messages_borrowernumber' ) ) {
- $dbh->do(q|
- DELETE m FROM messages m
- LEFT JOIN borrowers b ON m.borrowernumber=b.borrowernumber
- WHERE b.borrowernumber IS NULL
- |);
-
- $dbh->do(q|
- ALTER TABLE messages
- ADD CONSTRAINT messages_borrowernumber
- FOREIGN KEY (borrowernumber) REFERENCES borrowers (borrowernumber) ON DELETE CASCADE ON UPDATE CASCADE
- |);
- }
-
- SetVersion( $DBversion );
- print "Upgrade to $DBversion done (Bug 13515 - Add a FOREIGN KEY constaint on messages.borrowernumber)\n";
-}
SetVersion ($DBversion);
}
+
+$DBversion = '18.05.09.001';
+if( CheckVersion( $DBversion ) ) {
+
+ unless( foreign_key_exists( 'messages', 'messages_borrowernumber' ) ) {
+ $dbh->do(q|
+ DELETE m FROM messages m
+ LEFT JOIN borrowers b ON m.borrowernumber=b.borrowernumber
+ WHERE b.borrowernumber IS NULL
+ |);
+
+ $dbh->do(q|
+ ALTER TABLE messages
+ ADD CONSTRAINT messages_borrowernumber
+ FOREIGN KEY (borrowernumber) REFERENCES borrowers (borrowernumber) ON DELETE CASCADE ON UPDATE CASCADE
+ |);
+ }
+
+ SetVersion( $DBversion );
+ print "Upgrade to $DBversion done (Bug 13515 - Add a FOREIGN KEY constaint on messages.borrowernumber)\n";
+}
+
# SEE bug 13068
# if there is anything in the atomicupdate, read and execute it.