$DBversion = "3.01.00.062";
if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
$dbh->do("INSERT INTO permissions (module_bit, code, description) VALUES ( 13, 'manage_csv_profiles', 'Manage CSV export profiles')");
- print "Upgrade to $DBversion done (added permissions for csv export profiles)\n";
+ $dbh->do(q/
+ CREATE TABLE `export_format` (
+ `export_format_id` int(11) NOT NULL auto_increment,
+ `profile` varchar(255) NOT NULL,
+ `description` mediumtext NOT NULL,
+ `marcfields` mediumtext NOT NULL,
+ PRIMARY KEY (`export_format_id`)
+ ) ENGINE=InnoDB DEFAULT CHARSET=utf8 COMMENT='Used for CSV export';
+ /);
+ print "Upgrade to $DBversion done (added csv export profiles)\n";
+}
+
+#$DBversion = "3.01.00.040";
+$DBversion = "3.01.00.063";
+if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
+ $dbh->do("
+ CREATE TABLE `fieldmapping` (
+ `id` int(11) NOT NULL auto_increment,
+ `field` varchar(255) NOT NULL,
+ `frameworkcode` char(4) NOT NULL default '',
+ `fieldcode` char(3) NOT NULL,
+ `subfieldcode` char(1) NOT NULL,
+ PRIMARY KEY (`id`)
+ ) ENGINE=InnoDB DEFAULT CHARSET=utf8;
+ ");
+ SetVersion ($DBversion);
}
+
=item
Acquisitions update
CONSTRAINT `aqbasketgroups_ibfk_1` FOREIGN KEY (`booksellerid`) REFERENCES `aqbooksellers` (`id`) ON UPDATE CASCADE ON DELETE CASCADE
) ENGINE=InnoDB DEFAULT CHARSET=utf8;");
$dbh->do("ALTER TABLE aqbasket ADD COLUMN `basketgroupid` int(11)");
- $dbh->do("ALTER TABLE aqbasket ADD FOREIGN KEY (`basketgroupid`) REFERENCES `aqbasketgroups` (`id`) ON UPDATE CASCADE");
- $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('pdfformat','pdfformat/example.pl','Controls what script is used for printing (basketgroups)','','free')");
+ $dbh->do("ALTER TABLE aqbasket ADD FOREIGN KEY (`basketgroupid`) REFERENCES `aqbasketgroups` (`id`) ON UPDATE CASCADE ON DELETE SET NULL");
+ $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES ('pdfformat','pdfformat::example','Controls what script is used for printing (basketgroups)','','free')");
print "Upgrade to $DBversion done (adding basketgroups)\n";
SetVersion ($DBversion);
}
SetVersion ($DBversion);
}
+$DBversion = "3.01.00.116";
+if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
+ $dbh->do( qq# INSERT INTO `systempreferences` VALUES ('intranetbookbag','1','','If ON, enables display of Cart feature in the intranet','YesNo') #);
+
+ print "Upgrade to $DBversion done (intranetbookbag syspref added)\n";
+ SetVersion ($DBversion);
+}
+
+$DBversion = "3.01.00.117";
+if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
+ $dbh->do( qq# ALTER TABLE authorised_values ADD COLUMN `lib_opac` VARCHAR(80) default NULL AFTER `lib` #);
+
+ print "Upgrade to $DBversion done (opac authorised values added)\n";
+ SetVersion ($DBversion);
+}
+
+$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')
+ ");
+
+ print "Upgrade to $DBversion done (granular permissions for guided reports added)\n";
+ 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.122";
+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);
+}
=item DropAllForeignKeys($table)
=cut
+
sub DropAllForeignKeys {
my ($table) = @_;
# get the table description