$DBversion = "3.11.00.016";
if ( CheckVersion($DBversion) ) {
$dbh->do(q{
- UPDATE userflags SET flagdesc="<b>Required for staff login.</b> Staff access, allows viewing of catalogue in staff client." where flag="catalogue";
+ UPDATE userflags SET flagdesc="<b>Required for staff login.</b> Staff access, allows viewing of catalogue in staff client." where flagdesc="Modify login / permissions for staff users";
});
$dbh->do(q{
- UPDATE userflags SET flagdesc="Edit Authorities" where flag="editauthorities";
+ UPDATE userflags SET flagdesc="Edit Authorities" where flagdesc="Allow to edit authorities";
});
$dbh->do(q{
- UPDATE userflags SET flagdesc="Allow access to the reports module" where flag="reports";
+ UPDATE userflags SET flagdesc="Allow access to the reports module" where flagdesc="Allow to access to the reports module";
});
$dbh->do(q{
- UPDATE userflags SET flagdesc="Set library management parameters (deprecated)" where flag="management";
+ UPDATE userflags SET flagdesc="Set library management parameters (deprecated)" where flagdesc="Set library management parameters";
});
$dbh->do(q{
- UPDATE userflags SET flagdesc="Manage serial subscriptions" where flag="serials";
+ UPDATE userflags SET flagdesc="Manage serial subscriptions" where flagdesc="Allow to manage serials subscriptions";
});
$dbh->do(q{
- UPDATE userflags SET flagdesc="Manage patrons fines and fees" where flag="updatecharges";
+ UPDATE userflags SET flagdesc="Manage patrons fines and fees" where flagdesc="Update borrower charges";
});
$dbh->do(q{
- UPDATE userflags SET flagdesc="Check out and check in items" where flag="circulate";
+ UPDATE userflags SET flagdesc="Check out and check in items" where flagdesc="Circulate books";
});
$dbh->do(q{
- UPDATE userflags SET flagdesc="Manage Koha system settings (Administration panel)" where flag="parameters";
+ UPDATE userflags SET flagdesc="Manage Koha system settings (Administration panel)" where flagdesc="Set Koha system parameters";
});
$dbh->do(q{
- UPDATE userflags SET flagdesc="Add or modify patrons" where flag="borrowers";
+ UPDATE userflags SET flagdesc="Add or modify patrons" where flagdesc="Add or modify borrowers";
});
$dbh->do(q{
- UPDATE userflags SET flagdesc="Use all tools (expand for granular tools permissions)" where flag="tools";
+ UPDATE userflags SET flagdesc="Use all tools (expand for granular tools permissions)" where flagdesc="Use tools (export, import, barcodes)";
});
$dbh->do(q{
- UPDATE userflags SET flagdesc="Allow staff members to modify permissions for other staff members" where flag="staffaccess";
+ UPDATE userflags SET flagdesc="Allow staff members to modify permissions for other staff members" where flagdesc="Set user permissions";
});
$dbh->do(q{
- UPDATE userflags SET flagdesc="Perform batch modification of patrons" where flag="edit_patrons";
+ UPDATE permissions SET description="Perform batch modification of patrons" where description="Perform batch modifivation of patrons";
});
- print "Upgrade to $DBversion done (Bug 9382 - refresh permission descriptions to make more sense)\n";
+ print "Upgrade to $DBversion done (Bug 9382 (updated with bug 9745) - refresh permission descriptions to make more sense)\n";
SetVersion ($DBversion);
}
}
$DBversion = "3.11.00.019";
-if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
+if ( CheckVersion($DBversion) ) {
$dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('UNIMARCAuthorityField100', 'afrey50 ba0', NULL, NULL, 'Textarea')");
print "Upgrade to $DBversion done (Bug 9145 - Add syspref UNIMARCAuthorityField100)\n";
SetVersion ($DBversion);
}
$DBversion = "3.11.00.020";
-if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
+if ( CheckVersion($DBversion) ) {
$dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('UNIMARCField100Language', 'fre','UNIMARC field 100 default language',NULL,'short')");
print "Upgrade to $DBversion done (Bug 8347 - Koha forces UNIMARC 100 field code language to 'fre')\n";
SetVersion($DBversion);
}
$DBversion = "3.11.00.100";
-if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
+if ( CheckVersion($DBversion) ) {
print "Upgrade to $DBversion done (3.12-alpha release)\n";
- SetVersion ($DBversion);
+ SetVersion ($DBversion);
}
$DBversion = "3.11.00.101";
}
$DBversion = "3.11.00.104";
-if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
+if ( CheckVersion($DBversion) ) {
print "Upgrade to $DBversion done (3.12-alpha2 release)\n";
SetVersion ($DBversion);
}
$DBversion = "3.11.00.106";
-if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
+if ( CheckVersion($DBversion) ) {
$dbh->do("INSERT INTO userflags (bit, flag, flagdesc, defaulton) VALUES ('19', 'plugins', 'Koha plugins', '0')");
$dbh->do("INSERT INTO permissions (module_bit, code, description) VALUES
('19', 'manage', 'Manage plugins ( install / uninstall )'),
('19', 'report', 'Use report plugins'),
('19', 'configure', 'Configure plugins')
");
- $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('UseKohaPlugins','1','Enable or disable the ability to use Koha Plugins.','','YesNo')");
+ $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('UseKohaPlugins','0','Enable or disable the ability to use Koha Plugins.','','YesNo')");
$dbh->do("
CREATE TABLE IF NOT EXISTS plugin_data (
}
$DBversion = "3.11.00.113";
-if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
+if ( CheckVersion($DBversion) ) {
$dbh->do(q{
ALTER TABLE branchcategories ADD show_in_pulldown BOOLEAN NOT NULL DEFAULT '0',
ADD INDEX ( show_in_pulldown )
SetVersion ($DBversion);
}
-$DBversion = "3.11.00.114";
-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.11.00.115";
if ( CheckVersion($DBversion) ) {
$dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('HighlightOwnItemsOnOPAC','0','','If on, and a patron is logged into the OPAC, items from his or her home library will be emphasized and shown first in search results and item details.','YesNo')");
SetVersion ($DBversion);
}
+$DBversion = "3.11.00.116";
+if ( CheckVersion($DBversion) ) {
+ $dbh->do(q{ALTER TABLE aqorders DROP COLUMN serialid;});
+ $dbh->do(q{ALTER TABLE aqorders DROP COLUMN subscription;});
+ $dbh->do(q{ALTER TABLE aqorders ADD COLUMN subscriptionid INT(11) DEFAULT NULL;});
+ $dbh->do(q{ALTER TABLE aqorders ADD CONSTRAINT aqorders_subscriptionid FOREIGN KEY (subscriptionid) REFERENCES subscription (subscriptionid) ON DELETE CASCADE ON UPDATE CASCADE;});
+ $dbh->do(q{ALTER TABLE subscription ADD COLUMN reneweddate DATE DEFAULT NULL;});
+ print "Upgrade to $DBversion done (Bug 5343: table aqorders: DROP serialid and subscription fields and ADD subscriptionid, table subscription: ADD reneweddate)\n";
+ SetVersion ($DBversion);
+}
+
+$DBversion = "3.11.00.200";
+if ( CheckVersion($DBversion) ) {
+ print "Upgrade to $DBversion done (3.12-beta1 release)\n";
+ SetVersion ($DBversion);
+}
+
+
=head1 FUNCTIONS
=head2 TableExists($table)