bug 3099: fix copying patron info to deletedborrowers (DB rev 018)

Fixes the following problem:

When deleting a patron record via the intranet or the cleanborrowers tool,
patron records are deleted but are not copied to deletedborrowers.
C4::Members::MoveMemberToDeleted() fails with the following error:

deletemem.pl: DBD::mysql::st execute failed: Column count doesn't match value
count at row 1 at C4/Members.pm line 1672.,

Signed-off-by: Galen Charlton <galen.charlton@liblime.com>
This commit is contained in:
Galen Charlton 2009-04-08 15:52:05 -05:00
parent 5cf66ad6dd
commit 74cb2f666e
3 changed files with 10 additions and 2 deletions

View File

@ -898,6 +898,7 @@ CREATE TABLE `deletedborrowers` (
`altcontactaddress3` varchar(255) default NULL,
`altcontactzipcode` varchar(50) default NULL,
`altcontactphone` varchar(50) default NULL,
`smsalertnumber` varchar(50) default NULL,
KEY `borrowernumber` (`borrowernumber`),
KEY `cardnumber` (`cardnumber`)
) ENGINE=InnoDB DEFAULT CHARSET=utf8;

View File

@ -2292,7 +2292,14 @@ if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
'OPACSerialIssueDisplayCount', '3', '', 'Number of serial issues to display per subscription in the OPAC', 'Integer'
);");
print "Upgrade to $DBversion done ( Updated table for Branch Transfer Limits)\n";
print "Upgrade to $DBversion done ( Updated table for Serials Display)\n";
SetVersion ($DBversion);
}
$DBversion = "3.01.00.018";
if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
$dbh->do("ALTER TABLE deletedborrowers ADD `smsalertnumber` varchar(50) default NULL");
print "Upgrade to $DBversion done (added deletedborrowers.smsalertnumber, missed in 3.00.00.091)\n";
SetVersion ($DBversion);
}

View File

@ -10,7 +10,7 @@
use strict;
sub kohaversion {
our $VERSION = '3.01.00.017';
our $VERSION = '3.01.00.018';
# version needs to be set this way
# so that it can be picked up by Makefile.PL
# during install