installer/data/mysql/atomicupdate/local_cover_images.pl

   1 #! /usr/bin/perl
   2 use strict;
   3 use warnings;
   4 use C4::Context;
   5 my $dbh=C4::Context->dbh;
   6
   7 $dbh->do( q|CREATE TABLE `biblioimages` (
   8       `imagenumber` int(11) NOT NULL AUTO_INCREMENT,
   9       `biblionumber` int(11) NOT NULL,
  10       `mimetype` varchar(15) NOT NULL,
  11       `imagefile` mediumblob NOT NULL,
  12       `thumbnail` mediumblob NOT NULL,
  13       PRIMARY KEY (`imagenumber`),
  14       CONSTRAINT `bibliocoverimage_fk1` FOREIGN KEY (`biblionumber`) REFERENCES `biblio` (`biblionumber`) ON DELETE CASCADE ON UPDATE CASCADE
  15       ) ENGINE=InnoDB DEFAULT CHARSET=utf8|);
  16 $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')|);
  17 $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')|);
  18 $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')|);
  19 $dbh->do( q|INSERT INTO permissions (module_bit, code, description) VALUES (13, 'upload_local_cover_images', 'Upload local cover images')|);
  20 print "Upgrade done (Added support for local cover images)\n";