Lines 9575-9591
if ( CheckVersion($DBversion) ) {
Link Here
|
9575 |
|
9575 |
|
9576 |
$DBversion = "3.17.00.XXX"; |
9576 |
$DBversion = "3.17.00.XXX"; |
9577 |
if ( CheckVersion($DBversion) ) { |
9577 |
if ( CheckVersion($DBversion) ) { |
9578 |
$dbh->do(q{ |
9578 |
my ($count) = $dbh->selectrow_array("SELECT COUNT(*) FROM borrowers GROUP BY userid HAVING COUNT(userid) > 1"); |
9579 |
UPDATE borrowers SET userid = NULL where userid = "" |
|
|
9580 |
}); |
9581 |
|
9579 |
|
9582 |
$dbh->do(q{ |
9580 |
if ( $count ) { |
9583 |
ALTER TABLE borrowers |
9581 |
print "Upgrade to $DBversion done (Bug 1861 - Unique patrons logins not (totally) enforced) FAILED!\n"; |
9584 |
DROP INDEX userid , |
9582 |
print "Your database has users with duplicate user logins. Please have your administrator deduplicate your user logins.\n"; |
9585 |
ADD UNIQUE userid (userid) |
9583 |
print "Afterward, your Koha administrator should execute the following database query: ALTER TABLE borrowers DROP INDEX userid, ADD UNIQUE userid (userid)"; |
9586 |
}); |
9584 |
} else { |
|
|
9585 |
$dbh->do(q{ |
9586 |
ALTER TABLE borrowers |
9587 |
DROP INDEX userid , |
9588 |
ADD UNIQUE userid (userid) |
9589 |
}); |
9590 |
print "Upgrade to $DBversion done (Bug 1861 - Unique patrons logins not (totally) enforced)\n"; |
9591 |
} |
9587 |
|
9592 |
|
9588 |
print "Upgrade to $DBversion done (Bug 1861 - Unique patrons logins not (totally) enforced)\n"; |
|
|
9589 |
SetVersion($DBversion); |
9593 |
SetVersion($DBversion); |
9590 |
} |
9594 |
} |
9591 |
|
9595 |
|
9592 |
- |
|
|