Lines 9527-9543
if ( CheckVersion($DBversion) ) {
Link Here
|
9527 |
|
9527 |
|
9528 |
$DBversion = "3.17.00.XXX"; |
9528 |
$DBversion = "3.17.00.XXX"; |
9529 |
if ( CheckVersion($DBversion) ) { |
9529 |
if ( CheckVersion($DBversion) ) { |
9530 |
$dbh->do(q{ |
9530 |
my ($count) = $dbh->selectrow_array("SELECT COUNT(*) FROM borrowers GROUP BY userid HAVING COUNT(userid) > 1"); |
9531 |
UPDATE borrowers SET userid = NULL where userid = "" |
|
|
9532 |
}); |
9533 |
|
9531 |
|
9534 |
$dbh->do(q{ |
9532 |
if ( $count ) { |
9535 |
ALTER TABLE borrowers |
9533 |
print "Upgrade to $DBversion done (Bug 1861 - Unique patrons logins not (totally) enforced) FAILED!\n"; |
9536 |
DROP INDEX userid , |
9534 |
print "Your database was users with duplicate user logins. Please have your administrator deduplicate your user logins.\n"; |
9537 |
ADD UNIQUE userid (userid) |
9535 |
print "Afterward, your Koha administrator should execute the following database query: ALTER TABLE borrowers DROP INDEX userid, ADD UNIQUE userid (userid)"; |
9538 |
}); |
9536 |
} else { |
|
|
9537 |
$dbh->do(q{ |
9538 |
ALTER TABLE borrowers |
9539 |
DROP INDEX userid , |
9540 |
ADD UNIQUE userid (userid) |
9541 |
}); |
9542 |
print "Upgrade to $DBversion done (Bug 1861 - Unique patrons logins not (totally) enforced)\n"; |
9543 |
} |
9539 |
|
9544 |
|
9540 |
print "Upgrade to $DBversion done (Bug 1861 - Unique patrons logins not (totally) enforced)\n"; |
|
|
9541 |
SetVersion($DBversion); |
9545 |
SetVersion($DBversion); |
9542 |
} |
9546 |
} |
9543 |
|
9547 |
|
9544 |
- |
|
|