$DBversion = "3.01.00.118";
if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
$dbh->do("
+??? d'ici jusqu'à ???FIN des lignes ont pu être insérées/effacées
INSERT INTO `permissions` (`module_bit`, `code`, `description`) VALUES
(16, 'execute_reports', 'Execute SQL reports'),
(16, 'create_reports', 'Create SQL Reports')
SetVersion ($DBversion);
}
+$DBversion = "3.01.00.119";
+if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
+$dbh->do("
+ UPDATE `systempreferences` SET `options` = 'holdings|serialcollection|subscriptions'
+ WHERE `systempreferences`.`variable` = 'opacSerialDefaultTab' LIMIT 1
+ ");
+
+ print "Upgrade to $DBversion done (opac-detail default tag updated)\n";
+ SetVersion ($DBversion);
+}
+
+$DBversion = "3.01.00.120";
+if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
+ if (C4::Context->preference("opaclanguages") =~ /fr/) {
+ $dbh->do(qq{
+INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('RoutingListAddReserves','1','Si activé, des reservations sont automatiquement créées pour chaque lecteur de la liste de circulation d''un numéro de périodique','','YesNo');
+ });
+ }else{
+ $dbh->do(qq{
+INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('RoutingListAddReserves','1','If ON the patrons on routing lists are automatically added to holds on the issue.','','YesNo');
+ });
+ }
+ print "Upgrade to $DBversion done (Added RoutingListAddReserves syspref)\n";
+ SetVersion ($DBversion);
+}
+
+$DBversion = "3.01.00.121";
+if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
+ $dbh->do(qq{
+ ALTER TABLE biblioitems ADD INDEX issn_idx (issn);
+ });
+ print "Upgrade to $DBversion done (added index to ISSN)\n";
+ SetVersion ($DBversion);
+}
+
+=item
+
+ Deal with branches
+
+=cut
+
+my $DBversion = "3.01.00.0122";
+if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
+ # update branches table
+ #
+ $dbh->do("ALTER TABLE branches ADD `branchzip` varchar(25) default NULL AFTER `branchaddress3`");
+ $dbh->do("ALTER TABLE branches ADD `branchcity` mediumtext AFTER `branchzip`");
+ $dbh->do("ALTER TABLE branches ADD `branchcountry` text AFTER `branchcity`");
+ $dbh->do("ALTER TABLE branches ADD `branchurl` mediumtext AFTER `branchemail`");
+ $dbh->do("ALTER TABLE branches ADD `branchnotes` mediumtext AFTER `branchprinter`");
+ print "Upgrade to $DBversion done (branches)\n";
+ SetVersion ($DBversion);
+}
+
+$DBversion = "3.01.00.123";
+if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
+ $dbh->do(qq{
+ ALTER TABLE aqbasketgroups ADD deliveryplace VARCHAR(10), deliverycomment VARCHAR(255);
+ });
+
+ print "Upgrade to $DBversion done (isbd updated)\n";
+ SetVersion ($DBversion);
+}
+$DBversion = "3.01.00.124";
+if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
+ $dbh->do(qq{
+ ALTER TABLE aqbasketgroups ADD deliveryplace VARCHAR(10), deliverycomment VARCHAR(255);
+ });
+
+ print "Upgrade to $DBversion done (isbd updated)\n";
+ SetVersion ($DBversion);
+}
+
+$DBversion = "3.01.00.125";
+if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
+ $dbh->do(qq{
+ ALTER TABLE items ADD stocknumber VARCHAR(32) DEFAULT NULL COMMENT "stores the inventory number";
+ });
+ $dbh->do(qq{
+ ALTER TABLE items ADD UNIQUE INDEX itemsstocknumberidx (stocknumber);
+ });
+ $dbh->do(qq{
+ ALTER TABLE deleteditems ADD stocknumber VARCHAR(32) DEFAULT NULL COMMENT "stores the inventory number of deleted items";
+ });
+ $dbh->do(qq{
+ ALTER TABLE deleteditems ADD UNIQUE INDEX deleteditemsstocknumberidx (stocknumber);
+ });
+ if (C4::Context->preference('marcflavour') eq 'UNIMARC'){
+ $dbh->do(qq{
+ INSERT IGNORE INTO marc_subfield_structure (frameworkcode,tagfield, tagsubfield, tab, repeatable, mandatory,kohafield)
+ SELECT DISTINCT (frameworkcode),995,"j",10,0,0,"items.stocknumber" from biblio_framework ;
+ });
+ }
+
+ print "Upgrade to $DBversion done (stocknumber field added)\n";
+ SetVersion ($DBversion);
+}
+
+$DBversion = "3.01.00.126";
+if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
+ $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('OrderPdfTemplate','','Uploads a PDF template','NULL','Upload')");
+ $dbh->do("UPDATE systempreferences SET variable='OrderPdfFormat' WHERE variable='pdfformat'");
+ print "Upgrade to $DBversion done (PDF orders system preferences added and updated)\n";
+ SetVersion ($DBversion);
+}
+
+$DBversion = "3.01.00.127";
+if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
+ $dbh->do(qq{
+ ALTER TABLE aqbasketgroups ADD 'billingplace' VARCHAR(10) AFTER 'deliverycomment';
+ });
+
+ print "Upgrade to $DBversion done (isbd updated)\n";
+ SetVersion ($DBversion);
+}
=item DropAllForeignKeys($table)
=cut
+
sub DropAllForeignKeys {
my ($table) = @_;
# get the table description