From a681f4a463aced490684f459bb44e0d5a5c1503c Mon Sep 17 00:00:00 2001
From: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
Date: Thu, 14 Feb 2019 17:19:08 -0300
Subject: [PATCH] Bug 13515: Fix contrainst name before deleting it

---
 installer/data/mysql/atomicupdate/bug_13515.perl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/installer/data/mysql/atomicupdate/bug_13515.perl b/installer/data/mysql/atomicupdate/bug_13515.perl
index 837ae458df..7a97061fba 100644
--- a/installer/data/mysql/atomicupdate/bug_13515.perl
+++ b/installer/data/mysql/atomicupdate/bug_13515.perl
@@ -1,7 +1,7 @@
 $DBversion = 'XXX';  # will be replaced by the RM
 if( CheckVersion( $DBversion ) ) {
 
-    unless( foreign_key_exists( 'messages', 'borrowernumber' ) ) {
+    unless( foreign_key_exists( 'messages', 'messages_borrowernumber' ) ) {
         $dbh->do(q|
             DELETE m FROM messages m
             LEFT JOIN borrowers b ON m.borrowernumber=b.borrowernumber
-- 
2.11.0