SetVersion($DBversion);
}
-
-$DBversion = "3.13.00.XXX";
+$DBversion = "3.13.00.012";
if ( CheckVersion($DBversion) ) {
$dbh->do("ALTER TABLE issuingrules MODIFY COLUMN overduefinescap decimal(28,6) DEFAULT NULL;");
print "Upgrade to $DBversion done (Bug 10490: Correct datatype for overduefinescap in issuingrules)\n";
SetVersion($DBversion);
}
+$DBversion ="3.13.00.013";
+if ( CheckVersion($DBversion) ) {
+ $dbh->do("INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES ('AllowTooManyOverride', '1', 'If on, allow staff to override and check out items when the patron has reached the maximum number of allowed checkouts', '', 'YesNo');");
+ print "Upgrade to $DBversion done (Bug 9576: add AllowTooManyOverride syspref to enable or disable issue limit confirmation)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = "3.13.00.014";
+if ( CheckVersion($DBversion) ) {
+ $dbh->do("ALTER TABLE courses MODIFY COLUMN department varchar(80) DEFAULT NULL;");
+ $dbh->do("ALTER TABLE courses MODIFY COLUMN term varchar(80) DEFAULT NULL;");
+ print "Upgrade to $DBversion done (Bug 10604: correct width of courses.department and courses.term)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = "3.13.00.015";
+if ( CheckVersion($DBversion) ) {
+ $dbh->do(
+"INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('itemBarcodeFallbackSearch','','If set, enables the automatic use of a keyword catalog search if the phrase entered as a barcode on the checkout page does not turn up any results during an item barcode search',NULL,'YesNo')"
+ );
+ print "Upgrade to $DBversion done (Bug 7494: Add itemBarcodeFallbackSearch syspref)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = "3.13.00.016";
+if ( CheckVersion($DBversion) ) {
+ $dbh->do(q{
+ ALTER TABLE items CHANGE wthdrawn withdrawn TINYINT( 1 ) NOT NULL DEFAULT '0'
+ });
+
+ $dbh->do(q{
+ ALTER TABLE deleteditems CHANGE wthdrawn withdrawn TINYINT( 1 ) NOT NULL DEFAULT '0'
+ });
+
+ $dbh->do(q{
+ UPDATE saved_sql SET savedsql = REPLACE(savedsql, 'wthdrawn', 'withdrawn')
+ });
+
+ $dbh->do(q{
+ UPDATE marc_subfield_structure SET kohafield = 'items.withdrawn' WHERE kohafield = 'items.wthdrawn'
+ });
+
+ print "Upgrade to $DBversion done (Bug 10550 - Fix database typo wthdrawn)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = "3.13.00.017";
+if ( CheckVersion($DBversion) ) {
+ $dbh->do(
+"INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('OverDriveClientKey','','Client key for OverDrive integration','30','Free')"
+ );
+ $dbh->do(
+"INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('OverDriveClientSecret','','Client key for OverDrive integration','30','YesNo')"
+ );
+ $dbh->do(
+"INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('OverDriveLibraryID','','Library ID for OverDrive integration','','Integer')"
+ );
+ print "Upgrade to $DBversion done (Bug 10320 - Show results from library's OverDrive collection in OPAC search)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = "3.13.00.018";
+if ( CheckVersion($DBversion) ) {
+ $dbh->do(qq{DROP TABLE IF EXISTS aqorders_transfers;});
+ $dbh->do(qq{
+ CREATE TABLE aqorders_transfers (
+ ordernumber_from int(11) NULL,
+ ordernumber_to int(11) NULL,
+ timestamp timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP,
+ UNIQUE KEY ordernumber_from (ordernumber_from),
+ UNIQUE KEY ordernumber_to (ordernumber_to),
+ CONSTRAINT aqorders_transfers_ordernumber_from FOREIGN KEY (ordernumber_from) REFERENCES aqorders (ordernumber) ON DELETE SET NULL ON UPDATE CASCADE,
+ CONSTRAINT aqorders_transfers_ordernumber_to FOREIGN KEY (ordernumber_to) REFERENCES aqorders (ordernumber) ON DELETE SET NULL ON UPDATE CASCADE
+ ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
+ });
+ print "Upgrade to $DBversion done (Bug 5349: Add aqorders_transfers table)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = "3.13.00.019";
+if ( CheckVersion($DBversion) ) {
+ $dbh->do("ALTER TABLE itemtypes ADD COLUMN checkinmsg VARCHAR(255) AFTER summary;");
+ $dbh->do("ALTER TABLE itemtypes ADD COLUMN checkinmsgtype CHAR(16) DEFAULT 'message' NOT NULL AFTER checkinmsg;");
+ print "Upgrade to $DBversion done (Bug 10513 - Light up a warning/message when returning a chosen item type)\n";
+ SetVersion($DBversion);
+}
+
+
+$DBversion = "3.13.00.020";
+if ( CheckVersion($DBversion) ) {
+ $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES('WhenLostForgiveFine','0',NULL,'If ON, Forgives the fines on an item when it is lost.','YesNo')");
+ $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES('WhenLostChargeReplacementFee','1',NULL,'If ON, Charge the replacement price when a patron loses an item.','YesNo')");
+ print "Upgrade to $DBversion done (Bug 7639: system preferences to forgive fines on lost items)\n";
+ SetVersion ($DBversion);
+}
+
+$DBversion ="3.13.00.021";
+if ( CheckVersion($DBversion) ) {
+ $dbh->do("INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('ConfirmFutureHolds','0','Number of days for confirming future holds','','Integer');");
+ print "Upgrade to $DBversion done (Bug 9761: Add ConfirmFutureHolds pref)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = "3.13.00.022";
+if ( CheckVersion($DBversion) ) {
+ $dbh->do("DELETE from auth_tag_structure WHERE tagfield IN ('68a','68b')");
+ $dbh->do("DELETE from auth_subfield_structure WHERE tagfield IN ('68a','68b')");
+ print "Upgrade to $DBversion done (Bug 10687 - Delete erroneous tags 68a and 68b on default MARC21 auth framework)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = "3.13.00.023";
+if ( CheckVersion($DBversion) ) {
+ $dbh->do("ALTER TABLE borrowers CHANGE password password VARCHAR(60);");
+ print "Upgrade to $DBversion done (Bug 9611 upgrading password storage system)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = "3.13.00.024";
+if ( CheckVersion($DBversion) ) {
+ $dbh->do(q{ALTER TABLE z3950servers ADD COLUMN recordtype VARCHAR(45) NOT NULL DEFAULT 'biblio' AFTER description;});
+ print "Upgrade to $DBversion done (Bug 10096 - Add a Z39.50 interface for authority searching)\n";
+ SetVersion ($DBversion);
+}
+
+$DBversion = "3.13.00.025";
+if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
+ $dbh->do("ALTER TABLE oai_sets_mappings ADD COLUMN operator varchar(8) NOT NULL default 'equal' AFTER marcsubfield;");
+ print "Upgrade to $DBversion done (Bug 9295: OAI notequal: add operator column to OAI mappings table)\n";
+ SetVersion ($DBversion);
+}
+
+$DBversion = "3.13.00.026";
+if ( CheckVersion($DBversion) ) {
+ $dbh->do(q|
+ ALTER TABLE auth_subfield_structure ADD COLUMN defaultvalue TEXT DEFAULT NULL AFTER frameworkcode
+ |);
+ print "Upgrade to $DBversion done (Bug 10602: Add the column auth_subfield_structure.defaultvalue)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = "3.13.00.027";
+if ( CheckVersion($DBversion) ) {
+ $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('AllowOfflineCirculation','0','','If on, enables HTML5 offline circulation functionality.','YesNo')");
+ print "Upgrade to $DBversion done (Bug 10240: Add syspref AllowOfflineCirculation)\n";
+ SetVersion ($DBversion);
+}
+
+$DBversion = "3.13.00.028";
+if ( CheckVersion($DBversion) ) {
+ $dbh->do(q{
+ ALTER TABLE export_format ADD type VARCHAR(255) DEFAULT 'marc' AFTER encoding
+ });
+ $dbh->do(q{
+ ALTER TABLE export_format CHANGE marcfields content mediumtext NOT NULL
+ });
+ print "Upgrade to $DBversion done (Bug 10853: Add new field export_format.type and rename export_format.marcfields with export_format.content)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = "3.13.00.029";
+if ( CheckVersion($DBversion) ) {
+ $dbh->do(q{
+ INSERT IGNORE INTO export_format( profile, description, content, csv_separator, type )
+ VALUES ( "issues to claim", "efault CSV export for serial issue claims",
+ "SUPPLIER=aqbooksellers.name|TITLE=subscription.title|ISSUE NUMBER=serial.serialseq|LATE SINCE=serial.planneddate",
+ ",", "sql" )
+ });
+ print "Upgrade to $DBversion done (Bug 10854: Add the default CSV profile for claiming issues)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = "3.13.00.030";
+if ( CheckVersion($DBversion) ) {
+ $dbh->do(qq{
+ DELETE FROM patronimage WHERE NOT EXISTS (SELECT * FROM borrowers WHERE borrowers.cardnumber = patronimage.cardnumber)
+ });
+
+ $dbh->do(qq{
+ ALTER TABLE patronimage ADD borrowernumber INT( 11 ) NULL FIRST
+ });
+
+ $dbh->{AutoCommit} = 0;
+ $dbh->{RaiseError} = 1;
+
+ eval {
+ $dbh->do(qq{
+ UPDATE patronimage LEFT JOIN borrowers USING ( cardnumber ) SET patronimage.borrowernumber = borrowers.borrowernumber
+ });
+ $dbh->commit();
+ };
+
+ if ($@) {
+ print "Upgrade to $DBversion done (Bug 10636 - patronimage should have borrowernumber as PK, not cardnumber) failed! Transaction aborted because $@\n";
+ eval { $dbh->rollback };
+ }
+ else {
+ $dbh->do(qq{
+ ALTER TABLE patronimage DROP FOREIGN KEY patronimage_fk1
+ });
+ $dbh->do(qq{
+ ALTER TABLE patronimage DROP PRIMARY KEY, ADD PRIMARY KEY( borrowernumber )
+ });
+ $dbh->do(qq{
+ ALTER TABLE patronimage DROP cardnumber
+ });
+ $dbh->do(qq{
+ ALTER TABLE patronimage ADD FOREIGN KEY ( borrowernumber ) REFERENCES borrowers ( borrowernumber ) ON DELETE CASCADE ON UPDATE CASCADE
+ });
+
+ print "Upgrade to $DBversion done (Bug 10636 - patronimage should have borrowernumber as PK, not cardnumber)\n";
+ SetVersion($DBversion);
+ }
+
+ $dbh->{AutoCommit} = 1;
+ $dbh->{RaiseError} = 0;
+}
+
+$DBversion = "3.13.00.031";
+if ( CheckVersion($DBversion) ) {
+
+ $dbh->do(q{
+ CREATE TABLE IF NOT EXISTS `patron_lists` (
+ patron_list_id int(11) NOT NULL AUTO_INCREMENT,
+ name varchar(255) CHARACTER SET utf8 NOT NULL,
+ owner int(11) NOT NULL,
+ PRIMARY KEY (patron_list_id),
+ KEY owner (owner)
+ ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
+ });
+
+ $dbh->do(q{
+ ALTER TABLE `patron_lists`
+ ADD CONSTRAINT patron_lists_ibfk_1 FOREIGN KEY (`owner`) REFERENCES borrowers (borrowernumber) ON DELETE CASCADE ON UPDATE CASCADE;
+ });
+
+ $dbh->do(q{
+ CREATE TABLE patron_list_patrons (
+ patron_list_patron_id int(11) NOT NULL AUTO_INCREMENT,
+ patron_list_id int(11) NOT NULL,
+ borrowernumber int(11) NOT NULL,
+ PRIMARY KEY (patron_list_patron_id),
+ KEY patron_list_id (patron_list_id),
+ KEY borrowernumber (borrowernumber)
+ ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
+ });
+
+ $dbh->do(q{
+ ALTER TABLE `patron_list_patrons`
+ ADD CONSTRAINT patron_list_patrons_ibfk_1 FOREIGN KEY (patron_list_id) REFERENCES patron_lists (patron_list_id) ON DELETE CASCADE ON UPDATE CASCADE,
+ ADD CONSTRAINT patron_list_patrons_ibfk_2 FOREIGN KEY (borrowernumber) REFERENCES borrowers (borrowernumber) ON DELETE CASCADE ON UPDATE CASCADE;
+ });
+
+ $dbh->do(q{
+ INSERT INTO permissions (module_bit, code, description) VALUES
+ (13, 'manage_patron_lists', 'Add, edit and delete patron lists and their contents')
+ });
+
+ print "Upgrade to $DBversion done (Bug 10565 - Add a 'Patron List' feature for storing and manipulating collections of patrons)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = "3.13.00.032";
+if ( CheckVersion($DBversion) ) {
+ $dbh->do("ALTER TABLE aqorders ADD COLUMN orderstatus varchar(16) DEFAULT 'new' AFTER parent_ordernumber");
+ $dbh->do("UPDATE aqorders SET orderstatus='ordered' WHERE basketno IN (SELECT basketno FROM aqbasket WHERE closedate IS NOT NULL)");
+ $dbh->do(q{
+ UPDATE aqorders SET orderstatus='partial'
+ WHERE quantity > quantityreceived
+ AND quantityreceived > 0
+ AND ordernumber IN (
+ SELECT parent_ordernumber
+ FROM (
+ SELECT DISTINCT(parent_ordernumber)
+ FROM aqorders
+ WHERE ordernumber != parent_ordernumber
+ ) AS aq
+ )
+ AND basketno IN (SELECT basketno FROM aqbasket WHERE closedate IS NOT NULL)
+ });
+ $dbh->do("UPDATE aqorders SET orderstatus='complete' WHERE quantity=quantityreceived");
+ $dbh->do("UPDATE aqorders SET orderstatus='cancelled' WHERE datecancellationprinted IS NOT NULL");
+ print "Upgrade to $DBversion done (Bug 5336: Add the new column aqorders.orderstatus)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = "3.13.00.033";
+if ( CheckVersion($DBversion) ) {
+ $dbh->do(qq|
+ DROP TABLE IF EXISTS subscription_frequencies
+ |);
+ $dbh->do(qq|
+ CREATE TABLE subscription_frequencies (
+ id INTEGER NOT NULL AUTO_INCREMENT,
+ description TEXT NOT NULL,
+ displayorder INT DEFAULT NULL,
+ unit ENUM('day','week','month','year') DEFAULT NULL,
+ unitsperissue INTEGER NOT NULL DEFAULT '1',
+ issuesperunit INTEGER NOT NULL DEFAULT '1',
+ PRIMARY KEY (id)
+ ) ENGINE=InnoDB DEFAULT CHARSET=utf8
+ |);
+
+ $dbh->do(qq|
+ DROP TABLE IF EXISTS subscription_numberpatterns
+ |);
+ $dbh->do(qq|
+ CREATE TABLE subscription_numberpatterns (
+ id INTEGER NOT NULL AUTO_INCREMENT,
+ label VARCHAR(255) NOT NULL,
+ displayorder INTEGER DEFAULT NULL,
+ description TEXT NOT NULL,
+ numberingmethod VARCHAR(255) NOT NULL,
+ label1 VARCHAR(255) DEFAULT NULL,
+ add1 INTEGER DEFAULT NULL,
+ every1 INTEGER DEFAULT NULL,
+ whenmorethan1 INTEGER DEFAULT NULL,
+ setto1 INTEGER DEFAULT NULL,
+ numbering1 VARCHAR(255) DEFAULT NULL,
+ label2 VARCHAR(255) DEFAULT NULL,
+ add2 INTEGER DEFAULT NULL,
+ every2 INTEGER DEFAULT NULL,
+ whenmorethan2 INTEGER DEFAULT NULL,
+ setto2 INTEGER DEFAULT NULL,
+ numbering2 VARCHAR(255) DEFAULT NULL,
+ label3 VARCHAR(255) DEFAULT NULL,
+ add3 INTEGER DEFAULT NULL,
+ every3 INTEGER DEFAULT NULL,
+ whenmorethan3 INTEGER DEFAULT NULL,
+ setto3 INTEGER DEFAULT NULL,
+ numbering3 VARCHAR(255) DEFAULT NULL,
+ PRIMARY KEY (id)
+ ) ENGINE=InnoDB DEFAULT CHARSET=utf8
+ |);
+
+ $dbh->do(qq|
+ INSERT INTO subscription_frequencies (description, unit, unitsperissue, issuesperunit, displayorder)
+ VALUES
+ ('2/day', 'day', 1, 2, 1),
+ ('1/day', 'day', 1, 1, 2),
+ ('3/week', 'week', 1, 3, 3),
+ ('1/week', 'week', 1, 1, 4),
+ ('1/2 weeks', 'week', 2, 1, 5),
+ ('1/3 weeks', 'week', 3, 1, 6),
+ ('1/month', 'month', 1, 1, 7),
+ ('1/2 months', 'month', 2, 1, 8),
+ ('1/3 months', 'month', 3, 1, 9),
+ ('2/year', 'month', 6, 1, 10),
+ ('1/year', 'year', 1, 1, 11),
+ ('1/2 year', 'year', 2, 1, 12),
+ ('Irregular', NULL, 1, 1, 13)
+ |);
+
+ # Used to link existing subscription to newly created frequencies
+ my $frequencies_mapping = { # keys are old frequency numbers, values are the new ones
+ 1 => 2, # daily (n/week)
+ 2 => 4, # 1/week
+ 3 => 5, # 1/2 weeks
+ 4 => 6, # 1/3 weeks
+ 5 => 7, # 1/month
+ 6 => 8, # 1/2 months (6/year)
+ 7 => 9, # 1/3 months (1/quarter)
+ 8 => 9, # 1/quarter (seasonal)
+ 9 => 10, # 2/year
+ 10 => 11, # 1/year
+ 11 => 12, # 1/2 years
+ 12 => 1, # 2/day
+ 16 => 13, # Without periodicity
+ 32 => 13, # Irregular
+ 48 => 13 # Unknown
+ };
+
+ $dbh->do(qq|
+ INSERT INTO subscription_numberpatterns
+ (label, displayorder, description, numberingmethod,
+ label1, add1, every1, whenmorethan1, setto1, numbering1,
+ label2, add2, every2, whenmorethan2, setto2, numbering2,
+ label3, add3, every3, whenmorethan3, setto3, numbering3)
+ VALUES
+ ('Number', 1, 'Simple Numbering method', 'No.{X}',
+ 'Number', 1, 1, 99999, 1, NULL,
+ NULL, NULL, NULL, NULL, NULL, NULL,
+ NULL, NULL, NULL, NULL, NULL, NULL),
+
+ ('Volume, Number, Issue', 2, 'Volume Number Issue 1', 'Vol.{X}, Number {Y}, Issue {Z}',
+ 'Volume', 1, 48, 99999, 1, NULL,
+ 'Number', 1, 4, 12, 1, NULL,
+ 'Issue', 1, 1, 4, 1, NULL),
+
+ ('Volume, Number', 3, 'Volume Number 1', 'Vol {X}, No {Y}',
+ 'Volume', 1, 12, 99999, 1, NULL,
+ 'Number', 1, 1, 12, 1, NULL,
+ NULL, NULL, NULL, NULL, NULL, NULL),
+
+ ('Seasonal', 4, 'Season Year', '{X} {Y}',
+ 'Season', 1, 1, 3, 0, 'season',
+ 'Year', 1, 4, 99999, 1, NULL,
+ NULL, NULL, NULL, NULL, NULL, NULL)
+ |);
+
+ $dbh->do(qq|
+ ALTER TABLE subscription
+ MODIFY COLUMN numberpattern INTEGER DEFAULT NULL,
+ MODIFY COLUMN periodicity INTEGER DEFAULT NULL
+ |);
+
+ # Update existing subscriptions
+
+ my $query = qq|
+ SELECT subscriptionid, periodicity, numberingmethod,
+ add1, every1, whenmorethan1, setto1,
+ add2, every2, whenmorethan2, setto2,
+ add3, every3, whenmorethan3, setto3
+ FROM subscription
+ ORDER BY subscriptionid
+ |;
+ my $sth = $dbh->prepare($query);
+ $sth->execute;
+ my $insert_numberpatterns_sth = $dbh->prepare(qq|
+ INSERT INTO subscription_numberpatterns
+ (label, displayorder, description, numberingmethod,
+ label1, add1, every1, whenmorethan1, setto1, numbering1,
+ label2, add2, every2, whenmorethan2, setto2, numbering2,
+ label3, add3, every3, whenmorethan3, setto3, numbering3)
+ VALUES
+ (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)
+ |);
+ my $check_numberpatterns_sth = $dbh->prepare(qq|
+ SELECT * FROM subscription_numberpatterns
+ WHERE add1 = ? AND add2 = ? AND add3 = ?
+ AND every1 = ? AND every2 = ? AND every3 = ?
+ AND whenmorethan1 = ? AND whenmorethan2 = ? AND whenmorethan3 = ?
+ AND setto1 = ? AND setto2 = ? AND setto3 = ?
+ AND numberingmethod = ?
+ LIMIT 1
+ |);
+ my $update_subscription_sth = $dbh->prepare(qq|
+ UPDATE subscription
+ SET numberpattern = ?,
+ periodicity = ?
+ WHERE subscriptionid = ?
+ |);
+
+ my $i = 1;
+ while(my $sub = $sth->fetchrow_hashref) {
+ $check_numberpatterns_sth->execute(
+ $sub->{add1}, $sub->{add2}, $sub->{add3},
+ $sub->{every1}, $sub->{every2}, $sub->{every3},
+ $sub->{whenmorethan1}, $sub->{whenmorethan2}, $sub->{whenmorethan3},
+ $sub->{setto1}, $sub->{setto2}, $sub->{setto3},
+ $sub->{numberingmethod}
+ );
+ my $p = $check_numberpatterns_sth->fetchrow_hashref;
+ if (defined $p) {
+ # Pattern already exists, link to it
+ $update_subscription_sth->execute($p->{id},
+ $frequencies_mapping->{$sub->{periodicity}},
+ $sub->{subscriptionid});
+ } else {
+ # Create a new numbering pattern for this subscription
+ my $ok = $insert_numberpatterns_sth->execute(
+ "Backup pattern $i", 4+$i, "Automatically created pattern by updatedatabase", $sub->{numberingmethod},
+ "X", $sub->{add1}, $sub->{every1}, $sub->{whenmorethan1}, $sub->{setto1}, undef,
+ "Y", $sub->{add2}, $sub->{every2}, $sub->{whenmorethan2}, $sub->{setto2}, undef,
+ "Z", $sub->{add3}, $sub->{every3}, $sub->{whenmorethan3}, $sub->{setto3}, undef
+ );
+ if($ok) {
+ my $id = $dbh->last_insert_id(undef, undef, 'subscription_numberpatterns', undef);
+ # Link to subscription_numberpatterns and subscription_frequencies
+ $update_subscription_sth->execute($id,
+ $frequencies_mapping->{$sub->{periodicity}},
+ $sub->{subscriptionid});
+ }
+ $i++;
+ }
+ }
+
+ # Remove now useless columns
+ $dbh->do(qq|
+ ALTER TABLE subscription
+ DROP COLUMN numberingmethod,
+ DROP COLUMN add1,
+ DROP COLUMN every1,
+ DROP COLUMN whenmorethan1,
+ DROP COLUMN setto1,
+ DROP COLUMN add2,
+ DROP COLUMN every2,
+ DROP COLUMN whenmorethan2,
+ DROP COLUMN setto2,
+ DROP COLUMN add3,
+ DROP COLUMN every3,
+ DROP COLUMN whenmorethan3,
+ DROP COLUMN setto3,
+ DROP COLUMN dow,
+ DROP COLUMN issuesatonce,
+ DROP COLUMN hemisphere,
+ ADD COLUMN countissuesperunit INTEGER NOT NULL DEFAULT 1 AFTER periodicity,
+ ADD COLUMN skip_serialseq BOOLEAN NOT NULL DEFAULT 0 AFTER irregularity,
+ ADD COLUMN locale VARCHAR(80) DEFAULT NULL AFTER numberpattern,
+ ADD CONSTRAINT subscription_ibfk_1 FOREIGN KEY (periodicity) REFERENCES subscription_frequencies (id) ON DELETE SET NULL ON UPDATE CASCADE,
+ ADD CONSTRAINT subscription_ibfk_2 FOREIGN KEY (numberpattern) REFERENCES subscription_numberpatterns (id) ON DELETE SET NULL ON UPDATE CASCADE
+ |);
+
+ # Set firstacquidate if not already set (firstacquidate is now mandatory)
+ my $get_first_planneddate_sth = $dbh->prepare(qq|
+ SELECT planneddate
+ FROM serial
+ WHERE subscriptionid = ?
+ ORDER BY serialid
+ LIMIT 1
+ |);
+ my $update_firstacquidate_sth = $dbh->prepare(qq|
+ UPDATE subscription
+ SET firstacquidate = ?
+ WHERE subscriptionid = ?
+ |);
+ my $get_subscriptions_sth = $dbh->prepare(qq|
+ SELECT subscriptionid, startdate
+ FROM subscription
+ WHERE firstacquidate IS NULL
+ OR firstacquidate = '0000-00-00'
+ |);
+ $get_subscriptions_sth->execute;
+ while ( my ($subscriptionid, $startdate) = $get_subscriptions_sth->fetchrow ) {
+ # Try to get the planned date of the first serial
+ $get_first_planneddate_sth->execute($subscriptionid);
+ my ($first_planneddate) = $get_first_planneddate_sth->fetchrow;
+ if ($first_planneddate and $first_planneddate =~ /^\d{4}-\d{2}-\d{2}$/) {
+ $update_firstacquidate_sth->execute($first_planneddate, $subscriptionid);
+ } else {
+ # Defaults to subscription start date
+ $update_firstacquidate_sth->execute($startdate, $subscriptionid);
+ }
+ }
+
+ print "Upgrade to $DBversion done (Bug 7688: add subscription_frequencies and subscription_numberpatterns tables)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = "3.13.00.034";
+if ( CheckVersion($DBversion) ) {
+ $dbh->do("
+ ALTER TABLE `import_batches`
+ CHANGE `item_action` `item_action`
+ ENUM( 'always_add', 'add_only_for_matches', 'add_only_for_new', 'ignore', 'replace' )
+ NOT NULL DEFAULT 'always_add'
+ ");
+ print "Upgrade to $DBversion done (Bug 7131 - way to overlay items in in marc import)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion ="3.13.00.035";
+if ( CheckVersion($DBversion) ) {
+ $dbh->do(q{
+CREATE TABLE borrower_debarments (
+ borrower_debarment_id int(11) NOT NULL AUTO_INCREMENT,
+ borrowernumber int(11) NOT NULL,
+ expiration date DEFAULT NULL,
+ `type` enum('SUSPENSION','OVERDUES','MANUAL') NOT NULL DEFAULT 'MANUAL',
+ `comment` text,
+ manager_id int(11) DEFAULT NULL,
+ created timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP ON UPDATE CURRENT_TIMESTAMP,
+ updated timestamp NULL DEFAULT NULL,
+ PRIMARY KEY (borrower_debarment_id),
+ KEY borrowernumber (borrowernumber) ,
+ CONSTRAINT `borrower_debarments_ibfk_1` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`)
+ ON DELETE CASCADE ON UPDATE CASCADE
+) ENGINE=InnoDB DEFAULT CHARSET=utf8;
+ });
+
+ $dbh->do(q{
+INSERT INTO borrower_debarments ( borrowernumber, expiration, comment ) SELECT borrowernumber, debarred, debarredcomment FROM borrowers WHERE debarred IS NOT NULL
+ });
+
+ $dbh->do(q{
+INSERT IGNORE INTO systempreferences (variable,value,explanation,type) VALUES
+('AutoRemoveOverduesRestrictions','0','Defines whether an OVERDUES debarment should be lifted automatically if all overdue items are returned by the patron.','YesNo')
+ });
+
+ print "Upgrade to $DBversion done (Bug 2720 - Overdues which debar automatically should undebar automatically when returned)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = "3.13.00.036";
+if ( CheckVersion($DBversion) ) {
+ $dbh->do(qq{
+ INSERT INTO systempreferences (variable, value, explanation, options, type)
+ VALUES ('StaffDetailItemSelection', '1', 'Enable item selection in record detail page', NULL, 'YesNo')
+ });
+ print "Upgrade to $DBversion done (Add system preference StaffDetailItemSelection)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = "3.13.00.037";
+if ( CheckVersion($DBversion) ) {
+ #add phone if it is not there already (explains the ignore option)
+ $dbh->do("
+INSERT IGNORE INTO message_transport_types (message_transport_type) values ('phone');
+ ");
+ print "Upgrade to $DBversion done (Bug 10572: Add phone to message_transport_types table for new installs)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = "3.13.00.038";
+if ( CheckVersion($DBversion) ) {
+ $dbh->do("INSERT INTO permissions (module_bit, code, description) VALUES(15, 'superserials', 'Manage subscriptions from any branch (only applies when IndependentBranches is used)')");
+ print "Upgrade to $DBversion done (Bug 8435: Add superserials permission)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = "3.13.00.XXX";
+if ( CheckVersion($DBversion) ) {
+ $dbh->do("
+ ALTER TABLE aqbasket ADD branch varchar(10) default NULL
+ ");
+ $dbh->do("
+ ALTER TABLE aqbasket
+ ADD CONSTRAINT aqbasket_ibfk_4 FOREIGN KEY (branch)
+ REFERENCES branches (branchcode)
+ ON UPDATE CASCADE ON DELETE SET NULL
+ ");
+ $dbh->do("
+ DROP TABLE IF EXISTS aqbasketusers
+ ");
+ $dbh->do("
+ CREATE TABLE aqbasketusers (
+ basketno int(11) NOT NULL,
+ borrowernumber int(11) NOT NULL,
+ PRIMARY KEY (basketno,borrowernumber),
+ CONSTRAINT aqbasketusers_ibfk_1 FOREIGN KEY (basketno) REFERENCES aqbasket (basketno) ON DELETE CASCADE ON UPDATE CASCADE,
+ CONSTRAINT aqbasketusers_ibfk_2 FOREIGN KEY (borrowernumber) REFERENCES borrowers (borrowernumber) ON DELETE CASCADE ON UPDATE CASCADE
+ ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
+ ");
+ $dbh->do("
+ INSERT INTO permissions (module_bit, code, description)
+ VALUES (11, 'order_manage_all', 'Manage all orders & baskets')
+ ");
+
+ print "Upgrade to $DBversion done (Add branch and users list to baskets. "
+ . "New permission order_manage_all)\n";
+ SetVersion($DBversion);
+}
+
=head1 FUNCTIONS
=head2 TableExists($table)
projects / koha_fer / blobdiff