Attachment #85157 for bug #13515

View | Details | Raw Unified | Return to bug 13515
Collapse All | Expand All

Lines 1-7 Link Here

(-)a/installer/data/mysql/atomicupdate/bug_13515.perl (-2 / +1 lines)
1	$DBversion = 'XXX'; # will be replaced by the RM	1	$DBversion = 'XXX'; # will be replaced by the RM
2	if( CheckVersion( $DBversion ) ) {	2	if( CheckVersion( $DBversion ) ) {
3		3
4	unless( foreign_key_exists( 'messages', 'borrowernumber' ) ) {	4	unless( foreign_key_exists( 'messages', 'messages_borrowernumber' ) ) {
5	$dbh->do(q\|	5	$dbh->do(q\|
6	DELETE m FROM messages m	6	DELETE m FROM messages m
7	LEFT JOIN borrowers b ON m.borrowernumber=b.borrowernumber	7	LEFT JOIN borrowers b ON m.borrowernumber=b.borrowernumber
8	-

Return to bug 13515