#! /usr/bin/perl

use strict;

use warnings;

use C4::Context;

my $dbh=C4::Context->dbh;

$dbh->do("ALTER TABLE issuingrules ADD 

		COLUMN `finedays` int(11) default NULL AFTER `fine`,

		COLUMN `renewalsallowed` smallint(6) default NULL, 

		COLUMN `reservesallowed` smallint(6) default NULL,

		");

my $sth = $dbh->prepare("SELECT itemtype, renewalsallowed FROM itemtypes");

$sth->execute();

my $sthupd = $dbh->prepare("UPDATE issuingrules SET renewalsallowed = ? WHERE itemtype = ?");

while(my $row = $sth->fetchrow_hashref){

      $sthupd->execute($row->{renewalsallowed}, $row->{itemtype});

}

$dbh->do('ALTER TABLE itemtypes DROP COLUMN `renewalsallowed`;');

print "Upgrade done (Adding finedays renewalsallowed, and reservesallowed fields in issuingrules table)\n";

#!/usr/bin/perl

use strict;

use warnings;

use C4::Context;

my $dbh=C4::Context->dbh;

$dbh->do(<<SUGGESTIONS);

ALTER table suggestions 

    ADD budgetid INT(11),

    ADD branchcode VARCHAR(10) default NULL,

    ADD acceptedby INT(11) default NULL,

    ADD acceptedon date default NULL,

    ADD suggestedon date default NULL,

    ADD managedon date default NULL,

    ADD rejectedby INT(11) default NULL,

    ADD rejectedon date default NULL,

    ADD collectiontitle text default NULL,

    ADD itemtype VARCHAR(30) default NULL,

    ADD sort1 VARCHAR(80) default NULL,

    ADD sort2 VARCHAR(80) default NULL

    ;

SUGGESTIONS

print "Add some fields to suggestions";

#! /usr/bin/perl

use strict;

use warnings;

use C4::Context;

my $dbh=C4::Context->dbh;

$dbh->do("INSERT INTO `systempreferences` (`variable`, `value`, `options`, `explanation`, `type`) VALUES ('casAuthentication', '1', '', 'Enable or disable CAS authentication', 'YesNo'), ('casLogout', '1', '', 'Does a logout from Koha should also log out of CAS ?', 'YesNo'), ('casServerUrl', 'https://localhost:8443/cas', '', 'URL of the cas server', 'Free')");

print "Upgrade done (added CAS authentication system preferences)\n";

#! /usr/bin/perl

use strict;

use warnings;

use C4::Context;

my $dbh=C4::Context->dbh;

$dbh->do("INSERT INTO `systempreferences` (`variable`, `value`, `options`, `explanation`, `type`) VALUES ('EnableOpacSearchHistory', '1', '', 'Enable or disable opac search history', 'YesNo')");

my $create = <<END;

CREATE TABLE IF NOT EXISTS `search_history` (

  `userid` int(11) NOT NULL,

  `sessionid` varchar(32) NOT NULL,

  `query_desc` varchar(255) NOT NULL,

  `query_cgi` varchar(255) NOT NULL,

  `total` int(11) NOT NULL,

  `time` timestamp NOT NULL default CURRENT_TIMESTAMP,

  KEY `userid` (`userid`),

  KEY `sessionid` (`sessionid`)

) ENGINE=InnoDB DEFAULT CHARSET=utf8 COMMENT='Opac search history results';

END

$dbh->do($create);

print "Upgrade done (added OPAC search history preference and table)\n";

#! /usr/bin/perl

use strict;

use warnings;

use C4::Context;

my $dbh=C4::Context->dbh;

$dbh->do("ALTER TABLE authorised_values ADD COLUMN `lib_opac` VARCHAR(80) default NULL AFTER `lib`");

print "Upgrade done (Added a lib_opac field in authorised_values table)\n";

#! /usr/bin/perl

use strict;

use warnings;

use C4::Context;

my $dbh=C4::Context->dbh;

$dbh->do("ALTER TABLE borrower_attribute_types ADD COLUMN `display_checkout` TINYINT(1) NOT NULL DEFAULT '0';");

print "Upgrade done (Added a display_checkout field in borrower_attribute_types table)\n";

#! /usr/bin/perl

use strict;

use warnings;

use C4::Context;

my $dbh=C4::Context->dbh;

$dbh->do(<<ENDOFRENEWAL);

INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('BorrowerRenewalPeriodBase', 'now', 'Set whether the borrower renewal date should be counted from the dateexpiry or from the current date ','dateexpiry|now','Choice');

ENDOFRENEWAL

print "Upgrade done (Added a system preference to allow renewal of Patron account either from todays date or from existing expiry date in the patrons account.)\n";

#! /usr/bin/perl

use strict;

use warnings;

use C4::Context;

my $dbh=C4::Context->dbh;

$dbh->do("ALTER TABLE default_circ_rules ADD

		COLUMN `returnbranch` varchar(15) default NULL AFTER `holdallowed`");

$dbh->do("ALTER TABLE branch_item_rules ADD

		COLUMN `returnbranch` varchar(15) default NULL AFTER `holdallowed`");

$dbh->do("ALTER TABLE default_branch_circ_rules ADD

		COLUMN `returnbranch` varchar(15) default NULL AFTER `holdallowed`");

$dbh->do("ALTER TABLE default_branch_item_rules ADD

		COLUMN `returnbranch` varchar(15) default NULL AFTER `holdallowed`");

# set the default rule to the current value of HomeOrHoldingBranchReturn (default to 'homebranch' if need be)

my $homeorholdingbranchreturn = C4::Context->prefernce('HomeOrHoldingBranchReturn') || 'homebranch';

$dbh->do("UPDATE default_circ_rules SET returnbranch = '$homeorholdingbranchreturn'");

print "Upgrade done (Adding 'returnbranch' to branch/item issuing rules tables)\n";

#! /usr/bin/perl

use strict;

use warnings;

use C4::Context;

my $dbh = C4::Context->dbh;

$dbh->do(

"INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('LinkerModule','Default','Chooses which linker module to use (see documentation).','Default|FirstMatchLastMatch','Choice');"

);

$dbh->do(

"INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('LinkerOptions','','A pipe-separated list of options for the linker.','','free');"

);

$dbh->do(

"INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('LinkerRelink',1,'If ON the authority linker will relink headings that have previously been linked every time it runs.',NULL,'YesNo');"

);

$dbh->do(

"INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('LinkerKeepStale',0,'If ON the authority linker will keep existing authority links for headings where it is unable to find a match.',NULL,'YesNo');"

);

$dbh->do(

"INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('AutoCreateAuthorities',0,'Automatically create authorities that do not exist when cataloging records.',NULL,'YesNo');"

);

print "Upgrade done (Configured bug 7284, improved authority matching)\n";

#! /usr/bin/perl

use strict;

use warnings;

use C4::Context;

my $dbh = C4::Context->dbh;

$dbh->do(

"INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('CatalogModuleRelink',0,'If OFF the linker will never replace the authids that are set in the cataloging module.',NULL,'YesNo');"

);

print "Upgrade done (Configured bug 7284, added the )\n";

alter table issuingrules add column lengthunit varchar(10) default 'days' after issuelength;

#!/usr/bin/perl

use strict;

use warnings;

use C4::Context;

my $dbh = C4::Context->dbh;

$dbh->do(

q|CREATE TABLE `import_auths` (

    import_record_id int(11) NOT NULL,

    matched_authid int(11) default NULL,

    control_number varchar(25) default NULL,

    authorized_heading varchar(128) default NULL,

    original_source varchar(25) default NULL,

    CONSTRAINT import_auths_ibfk_1 FOREIGN KEY (import_record_id)

    REFERENCES import_records (import_record_id) ON DELETE CASCADE ON UPDATE CASCADE,

    KEY matched_authid (matched_authid)

    ) ENGINE=InnoDB DEFAULT CHARSET=utf8;|

);

$dbh->do("ALTER TABLE import_batches

            CHANGE COLUMN num_biblios num_records int(11) NOT NULL default 0,

            ADD COLUMN record_type enum('biblio', 'auth', 'holdings') NOT NULL default 'biblio'");

$dbh->do("UPDATE import_batches SET record_type='auth' WHERE import_batch_id IN

            (SELECT import_batch_id FROM import_records WHERE record_type='auth')");

print "Upgrade done (Added support for staging authorities)\n";

#!/usr/bin/perl

use strict;

use warnings;

use C4::Context;

my $dbh = C4::Context->dbh;

$dbh->do("ALTER TABLE issues CHANGE date_due date_due datetime");

$dbh->do("ALTER TABLE issues CHANGE returndate returndate datetime");

$dbh->do("ALTER TABLE issues CHANGE lastreneweddate lastreneweddate datetime");

$dbh->do("ALTER TABLE issues CHANGE issuedate issuedate datetime");

$dbh->do("ALTER TABLE old_issues CHANGE date_due date_due datetime");

$dbh->do("ALTER TABLE old_issues CHANGE returndate returndate datetime");

$dbh->do("ALTER TABLE old_issues CHANGE lastreneweddate lastreneweddate datetime");

$dbh->do("ALTER TABLE old_issues CHANGE issuedate issuedate datetime");

$dbh->do(q{update issues set date_due = addtime(date_due, '0 23:0:0') where hour(date_due) = 0});

#! /usr/bin/perl

use strict;

use warnings;

use C4::Context;

my $dbh = C4::Context->dbh;

$dbh->do(

    q|CREATE TABLE `biblioimages` (

      `imagenumber` int(11) NOT NULL AUTO_INCREMENT,

      `biblionumber` int(11) NOT NULL,

      `mimetype` varchar(15) NOT NULL,

      `imagefile` mediumblob NOT NULL,

      `thumbnail` mediumblob NOT NULL,

      PRIMARY KEY (`imagenumber`),

      CONSTRAINT `bibliocoverimage_fk1` FOREIGN KEY (`biblionumber`) REFERENCES `biblio` (`biblionumber`) ON DELETE CASCADE ON UPDATE CASCADE

      ) ENGINE=InnoDB DEFAULT CHARSET=utf8|

);

$dbh->do(

q|INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('OPACLocalCoverImages','0','Display local cover images on OPAC search and details pages.','1','YesNo')|

);

$dbh->do(

q|INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('LocalCoverImages','0','Display local cover images on intranet search and details pages.','1','YesNo')|

);

$dbh->do(

q|INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('AllowMultipleCovers','0','Allow multiple cover images to be attached to each bibliographic record.','1','YesNo')|

);

$dbh->do(

q|INSERT INTO permissions (module_bit, code, description) VALUES (13, 'upload_local_cover_images', 'Upload local cover images')|

);

print "Upgrade done (Added support for local cover images)\n";

#!/usr/bin/perl

#use strict;

#use warnings; FIXME - Bug 2505

use C4::Context;

my $dbh=C4::Context->dbh;

$dbh->do("ALTER TABLE `subscription` ADD `enddate` date default NULL");

$dbh->do("ALTER TABLE subscriptionhistory CHANGE enddate histenddate DATE default NULL");

print "Upgrade to $DBversion done ( Adding enddate to subscription)\n";

-