Attachment 56444 Details for Bug 17356 – Bug 17356: Add atomic update .perl skeleton file

[patch] Bug 17356: Add atomic update .perl skeleton file

Bug-17356-Add-atomic-update-perl-skeleton-file.patch (text/plain), 2.29 KB, created by Marcel de Rooy on 2016-10-14 06:51:34 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Marcel de Rooy

Created: 2016-10-14 06:51:34 UTC

Size: 2.29 KB

patch

obsolete

>From 3fa5111217ff82b2eba71682c257bdadfb2cf958 Mon Sep 17 00:00:00 2001
>From: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
>Date: Tue, 27 Sep 2016 08:30:12 +0100
>Subject: [PATCH] Bug 17356: Add atomic update .perl skeleton file
>Content-Type: text/plain; charset=utf-8
>
>To show devs how it should be written.
>
>Test plan:
>% cp installer/data/mysql/atomicupdate/skeleton.perl
>installer/data/mysql/atomicupdate/bug_XXXXX.perl
>% perl installer/data/mysql/updatedatabase.pl
>
>You should see:
>DEV atomic update: bug_xxxxx.perl
>Upgrade to 16.06.00.XXX done (Bug XXXXX - description)
>
>Signed-off-by: Liz Rea <liz@catalyst.net.nz>
>Very good. I'll submit a patch for the readme to make the instructions better.
>
>Signed-off-by: Liz Rea <liz@catalyst.net.nz>
>
>Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
>---
> installer/data/mysql/atomicupdate/skeleton.perl |   10 ++++++++++
> installer/data/mysql/updatedatabase.pl          |    1 +
> 2 files changed, 11 insertions(+)
> create mode 100644 installer/data/mysql/atomicupdate/skeleton.perl
>
>diff --git a/installer/data/mysql/atomicupdate/skeleton.perl b/installer/data/mysql/atomicupdate/skeleton.perl
>new file mode 100644
>index 0000000..6e265bf
>--- /dev/null
>+++ b/installer/data/mysql/atomicupdate/skeleton.perl
>@@ -0,0 +1,10 @@
>+use C4::Installer;
>+my $dbh = C4::Context->dbh;
>+$DBversion = '16.06.00.XXX';
>+if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
>+    unless( column_exists( 'biblio', 'biblionumber' ) ) { # or constraint_exists( $table_name, $key_name )
>+        warn "There is something wrong";
>+    }
>+    SetVersion ($DBversion);
>+    print "Upgrade to $DBversion done (Bug XXXXX - description)\n";
>+}
>diff --git a/installer/data/mysql/updatedatabase.pl b/installer/data/mysql/updatedatabase.pl
>index 7d67fe2..00c6265 100755
>--- a/installer/data/mysql/updatedatabase.pl
>+++ b/installer/data/mysql/updatedatabase.pl
>@@ -13190,6 +13190,7 @@ my $update_dir = C4::Context->config('intranetdir') . '/installer/data/mysql/ato
> opendir( my $dirh, $update_dir );
> foreach my $file ( sort readdir $dirh ) {
>     next if $file !~ /\.(sql|perl)$/;  #skip other files
>+    next if $file eq 'skeleton.perl'; # skip the skeleton file
>     print "DEV atomic update: $file\n";
>     if ( $file =~ /\.sql$/ ) {
>         my $installer = C4::Installer->new();
>-- 
>1.7.10.4

Actions: View | Diff | Splinter Review

Attachments on bug 17356: 55834 | 55944 | 55945 | 56444 | 56445 | 56446