# - #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.021";
+$VERSION = "3.23.00.022";
sub version {
return $VERSION;
SetVersion($DBversion);
}
+$DBversion = "3.23.00.022";
+ if ( CheckVersion($DBversion) ) {
+ $dbh->do(q{
+ ALTER TABLE tags_all MODIFY COLUMN borrowernumber INT(11);
+ });
+ $dbh->do(q{
+ ALTER TABLE tags_all drop FOREIGN KEY tags_borrowers_fk_1;
+ });
+ $dbh->do(q{
+ ALTER TABLE tags_all ADD CONSTRAINT `tags_borrowers_fk_1` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`) ON DELETE SET NULL ON UPDATE CASCADE;
+ });
+ $dbh->do(q{
+ ALTER TABLE tags_approval DROP FOREIGN KEY tags_approval_borrowers_fk_1;
+ });
+ $dbh->do(q{
+ ALTER TABLE tags_approval ADD CONSTRAINT `tags_approval_borrowers_fk_1` FOREIGN KEY (`approved_by`) REFERENCES `borrowers` (`borrowernumber`) ON DELETE SET NULL ON UPDATE CASCADE;
+ });
+ print "Upgrade to $DBversion done (Bug 13534 - Deleting staff patron will delete tags approved by this patron)\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.