SetVersion($DBversion);
}
-
-
$DBversion = "3.09.00.050";
if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
$dbh->do("ALTER TABLE authorised_values MODIFY category varchar(16) NOT NULL DEFAULT '';");
$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);
}
}
$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 (
SetVersion ($DBversion);
}
+$DBversion = "3.11.00.108";
+if ( CheckVersion($DBversion) ) {
+ $dbh->do("ALTER TABLE action_logs CHANGE timestamp timestamp TIMESTAMP NOT NULL DEFAULT CURRENT_TIMESTAMP;");
+ $dbh->do("UPDATE action_logs SET info=(SELECT itemnumber FROM items WHERE biblionumber= action_logs.info LIMIT 1) WHERE module='CIRCULATION' AND action in ('ISSUE','RETURN');");
+ $dbh->do("ALTER TABLE action_logs CHANGE timestamp timestamp TIMESTAMP NOT NULL DEFAULT CURRENT_TIMESTAMP ON UPDATE CURRENT_TIMESTAMP;");
+ print "Upgrade to $DBversion done (Bug 7241: Fix on circulation logs)\n";
+ print "WARNING about bug 7241: to partially correct the broken logs, the log history is filled with the first found item for each biblio.\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = "3.11.00.109";
+if ( CheckVersion($DBversion) ) {
+ $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES('DisplayIconsXSLT', '1', '', 'If ON, displays the format, audience, and material type icons in XSLT MARC21 results and detail pages.', 'YesNo');");
+ print "Upgrade to $DBversion done (Bug 9403: Add DisplayIconsXSLT)\n";
+ SetVersion ($DBversion);
+}
+
+$DBversion = "3.11.00.110";
+if ( CheckVersion($DBversion) ) {
+ $dbh->do("ALTER TABLE pending_offline_operations CHANGE barcode barcode VARCHAR( 20 ) CHARACTER SET utf8 COLLATE utf8_general_ci NULL DEFAULT NULL");
+ $dbh->do("ALTER TABLE pending_offline_operations ADD amount DECIMAL( 28, 6 ) NULL DEFAULT NULL");
+ print "Upgrade to $DBversion done (Bug 8220 - Allow koc uploads to go to process queue)\n";
+ SetVersion ($DBversion);
+}
+
+$DBversion = "3.11.00.111";
+if ( CheckVersion($DBversion) ) {
+ my $sth = $dbh->prepare("
+ SELECT module, code, branchcode, content
+ FROM letter
+ WHERE content LIKE '%<fine>%'
+ ");
+ $sth->execute;
+ my $sth_update = $dbh->prepare("UPDATE letter SET content = ? WHERE module = ? AND code = ? AND branchcode = ?");
+ while(my $row = $sth->fetchrow_hashref){
+ $row->{content} =~ s/<fine>\w+<\/fine>/<<items.fine>>/;
+ $sth_update->execute($row->{content}, $row->{module}, $row->{code}, $row->{branchcode});
+ }
+ print "Upgrade to $DBversion done (use new <<items.fine>> syntax in notices)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = "3.11.00.112";
+if ( CheckVersion($DBversion) ) {
+ $dbh->do(qq{
+ ALTER TABLE issuingrules ADD COLUMN renewalperiod int(4) DEFAULT NULL AFTER renewalsallowed
+ });
+ $dbh->do(qq{
+ UPDATE issuingrules SET renewalperiod = issuelength
+ });
+ print "Upgrade to $DBversion done (Bug 8365: Add colum issuingrules.renewalperiod)\n";
+ SetVersion ($DBversion);
+}
+
+$DBversion = "3.11.00.113";
+if ( CheckVersion($DBversion) ) {
+ $dbh->do(q{
+ ALTER TABLE branchcategories ADD show_in_pulldown BOOLEAN NOT NULL DEFAULT '0',
+ ADD INDEX ( show_in_pulldown )
+ });
+ print "Upgrade to $DBversion done (Bug 9257 - Add groups to normal search pulldown)\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')");
+ $dbh->do("INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('HighlightOwnItemsOnOPACWhich','PatronBranch','PatronBranch|OpacURLBranch','Decides which branch''s items to emphasize. If PatronBranch, emphasize the logged in user''s library''s items. If OpacURLBranch, highlight the items of the Apache var BRANCHCODE defined in Koha''s Apache configuration file.','Choice')");
+ print "Upgrade to $DBversion done (Bug 7740: Add syspref HighlightOwnItemsOnOPAC)\n";
+ 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);
+}
+
+$DBversion = "3.11.00.201";
+if ( CheckVersion($DBversion) ) {
+ $dbh->do("UPDATE z3950servers SET encoding = 'ISO_8859-1' WHERE name = 'BIBSYS' AND host LIKE 'z3950.bibsys.no'");
+ $dbh->do("UPDATE z3950servers SET encoding = 'ISO_8859-1' WHERE name = 'NORBOK' AND host LIKE 'z3950.nb.no'");
+ $dbh->do("UPDATE z3950servers SET encoding = 'ISO_8859-1' WHERE name = 'SAMBOK' AND host LIKE 'z3950.nb.no'");
+ $dbh->do("UPDATE z3950servers SET encoding = 'ISO_8859-1' WHERE name = 'DEICHMAN' AND host like 'z3950.deich.folkebibl.no'");
+ print "Upgrade to $DBversion done (Bug 9498 - Update encoding for Norwegian sample Z39.50 servers)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = "3.11.00.XXX";
+if ( CheckVersion($DBversion) ) {
+ $dbh->do("INSERT INTO language_subtag_registry( subtag, type, description, added) VALUES ( 'ca', 'language', 'Catalan','2013-01-12' )");
+ $dbh->do("INSERT INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code) VALUES( 'ca','cat')");
+ $dbh->do("INSERT INTO language_descriptions(subtag, type, lang, description) VALUES( 'ca', 'language', 'es', 'Catalán')");
+ $dbh->do("INSERT INTO language_descriptions(subtag, type, lang, description) VALUES( 'ca', 'language', 'en', 'Catalan')");
+ $dbh->do("INSERT INTO language_descriptions(subtag, type, lang, description) VALUES( 'ca', 'language', 'fr', 'Catalan')");
+ $dbh->do("INSERT INTO language_descriptions(subtag, type, lang, description) VALUES( 'ca', 'language', 'ca', 'Català')");
+ print "Upgrade to $DBversion done (Bug 9381: Add Catalan laguage)\n";
+ SetVersion ($DBversion);
+}
=head1 FUNCTIONS
Drop all foreign keys of the table $table
=cut
+
sub DropAllForeignKeys {
my ($table) = @_;
# get the table description
projects / koha.git / blobdiff