koha-dev.rot13.org Git - koha_fer/blob - installer/data/mysql/versions/update_sample.pl.sample

   1 #!/usr/bin/perl
   2
   3 # You write good Perl, so you start with Modern::Perl, of course
   4 use Modern::Perl;
   5
   6 # then you load Packages that could be usefull
   7 use C4::Context;
   8 # Loading this package is usefull if you need to check if a table exist (TableExists)
   9 use C4::Update::Database;
  10
  11 # you *must* have the sub _get_queries
  12 # it returns an array of all SQL that have to be executed
  13 # this array will be stored "forever" in your Koha database
  14 # thus, you will be able to know which SQL has been executed
  15 # at the time of upgrade. Very handy, because since then
  16 # your database configuration may have changed and you'll wonder
  17 # what has really be executed, not what would be executed today !
  18
  19 # put in an array the SQL to execute
  20 # put in an array the comments
  21 sub _get_queries {
  22     my @queries;
  23     my @comments;
  24     push @comments, "Add sample feature";
  25     unless ( C4::Update::Database::TableExists('testtable') ) {
  26         push @queries, qq{
  27                 CREATE TABLE `testtable` (
  28                   `id` int(11) NOT NULL AUTO_INCREMENT,
  29                   `source` text DEFAULT NULL,
  30                   `text` mediumtext NOT NULL,
  31                   `timestamp` datetime NOT NULL,
  32                   PRIMARY KEY (`id`)
  33                 ) ENGINE=InnoDB DEFAULT CHARSET=utf8
  34             };
  35         push @comments, qq { * Added the table testtable that did not exist};
  36     }
  37     push @queries, qq{INSERT IGNORE INTO `systempreferences` (variable,value,explanation,options,type) VALUES('testsyspref1',0,'Enable or disable display of Quote of the Day on the OPAC home page',NULL,'YesNo')};
  38     push @queries, qq{INSERT IGNORE INTO `systempreferences` (variable,value,explanation,options,type) VALUES('testsyspref2',0,'Enable or disable display of Quote of the Day on the OPAC home page',NULL,'YesNo')};
  39     push @comments , qq{ * Added 2 sysprefs};
  40
  41 # return queries and comments
  42     return { queries => \@queries, comments => \@comments };
  43 }
  44 1;