View | Details | Raw Unified | Return to bug 12772
Collapse All | Expand All

(-)a/installer/data/mysql/atomicupdate/update_13624_overduerules_transport_type.perl (-16 / +17 lines)
Lines 14-32 print "Will do : Bug 13624 - Remove columns branchcode, categorytype from table Link Here
14
        `overduerules_id` int(11) NOT NULL AUTO_INCREMENT,
14
        `overduerules_id` int(11) NOT NULL AUTO_INCREMENT,
15
        `branchcode` varchar(10) NOT NULL DEFAULT '',
15
        `branchcode` varchar(10) NOT NULL DEFAULT '',
16
        `categorycode` varchar(10) NOT NULL DEFAULT '',
16
        `categorycode` varchar(10) NOT NULL DEFAULT '',
17
        `delay1` int(4) DEFAULT NULL,
17
        `itemtype` varchar(10) default '',
18
        `letter1` varchar(20) DEFAULT NULL,
18
        `onhold` tinyint(1) default 0,
19
        `debarred1` varchar(1) DEFAULT '0',
19
        `delay` int(4) NOT NULL default 1,
20
        `delay2` int(4) DEFAULT NULL,
20
        `letter` varchar(20) default NULL,
21
        `debarred2` varchar(1) DEFAULT '0',
21
        `debarred` varchar(1) default 0,
22
        `letter2` varchar(20) DEFAULT NULL,
22
        PRIMARY KEY (`overduerules_id`)
23
        `delay3` int(4) DEFAULT NULL,
24
        `letter3` varchar(20) DEFAULT NULL,
25
        `debarred3` int(1) DEFAULT '0',
26
        PRIMARY KEY (`overduerules_id`),
27
        UNIQUE KEY `overduerules_branch_cat` (`branchcode`,`categorycode`)
28
        ) ENGINE=InnoDB DEFAULT CHARSET=utf8;");
23
        ) ENGINE=InnoDB DEFAULT CHARSET=utf8;");
29
    $dbh->do("INSERT INTO overduerules(branchcode, categorycode, delay1, letter1, debarred1, delay2, debarred2, letter2, delay3, letter3, debarred3) SELECT * FROM old_overduerules");
24
     foreach my $i (1..3){
25
        $dbh->do("INSERT INTO overduerules (delay, letter, debarred, branchcode, categorycode) ".
26
                 "SELECT delay$i AS delay, letter$i AS letter, debarred$i as debarred, branchcode, categorycode FROM old_overduerules");
27
     }
30
    $dbh->do("DROP TABLE old_overduerules");
28
    $dbh->do("DROP TABLE old_overduerules");
31
    $dbh->do("ALTER TABLE overduerules_transport_types
29
    $dbh->do("ALTER TABLE overduerules_transport_types
32
              ADD COLUMN overduerules_id int(11) NOT NULL");
30
              ADD COLUMN overduerules_id int(11) NOT NULL");
Lines 36-46 print "Will do : Bug 13624 - Remove columns branchcode, categorytype from table Link Here
36
              DROP FOREIGN KEY overduerules_fk,
34
              DROP FOREIGN KEY overduerules_fk,
37
              ADD FOREIGN KEY overduerules_transport_types_fk (overduerules_id) REFERENCES overduerules (overduerules_id) ON DELETE CASCADE ON UPDATE CASCADE,
35
              ADD FOREIGN KEY overduerules_transport_types_fk (overduerules_id) REFERENCES overduerules (overduerules_id) ON DELETE CASCADE ON UPDATE CASCADE,
38
              DROP COLUMN branchcode,
36
              DROP COLUMN branchcode,
39
              DROP COLUMN categorycode");
37
              DROP COLUMN categorycode,
40
    my $s = $dbh->prepare("INSERT INTO overduerules_transport_types (overduerules_id, id, letternumber, message_transport_type) "
38
              DROP COLUMN letternumber");
41
                         ." VALUES((SELECT overduerules_id FROM overduerules WHERE branchcode = ? AND categorycode = ?),?,?,?)");
39
    my $s = $dbh->prepare(
40
        "INSERT INTO overduerules_transport_types (overduerules_id, id, message_transport_type) ".
41
        "VALUES((SELECT overduerules_id FROM overduerules WHERE branchcode = ? AND categorycode = ?),?,?)"
42
    );
42
    foreach my $mtt(@$mtts){
43
    foreach my $mtt(@$mtts){
43
        $s->execute($mtt->{branchcode}, $mtt->{categorycode}, $mtt->{id}, $mtt->{letternumber}, $mtt->{message_transport_type} );
44
        $s->execute($mtt->{branchcode}, $mtt->{categorycode}, $mtt->{id}, $mtt->{message_transport_type} );
44
    }
45
    }
45
    $dbh->do("SET FOREIGN_KEY_CHECKS=1");
46
    $dbh->do("SET FOREIGN_KEY_CHECKS=1");
46
#    print "Upgrade to $DBversion done (Bug 13624 - Remove columns branchcode, categorytype from table overduerules_transport_types)\n";
47
#    print "Upgrade to $DBversion done (Bug 13624 - Remove columns branchcode, categorytype from table overduerules_transport_types)\n";
(-)a/installer/data/mysql/atomicupdate/update_13624_overduerules_transport_type.pl (-52 lines)
Lines 1-51 Link Here
1
#! /usr/bin/perl
2
3
use strict;
4
use warnings;
5
use C4::Context;
6
my $dbh=C4::Context->dbh;
7
8
print "Will do : Bug 13624 - Remove columns branchcode, categorytype from table overduerules_transport_types\n";
9
10
#if ( CheckVersion($DBversion) ) {
11
    $dbh->do("SET FOREIGN_KEY_CHECKS=0");
12
    $dbh->do("ALTER TABLE overduerules RENAME old_overduerules");
13
    $dbh->do("CREATE TABLE overduerules (
14
        `overduerules_id` int(11) NOT NULL AUTO_INCREMENT,
15
        `branchcode` varchar(10) NOT NULL DEFAULT '',
16
        `categorycode` varchar(10) NOT NULL DEFAULT '',
17
        `itemtype` varchar(10) default '',
18
        `onhold` tinyint(1) default 0,
19
        `delay` int(4) NOT NULL default 1,
20
        `letter` varchar(20) default NULL,
21
        `debarred` varchar(1) default 0,
22
        PRIMARY KEY (`overduerules_id`)
23
        ) ENGINE=InnoDB DEFAULT CHARSET=utf8;");
24
     foreach my $i (1..3){
25
        $dbh->do("INSERT INTO overduerules (delay, letter, debarred, branchcode, categorycode) ".
26
                 "SELECT delay$i AS delay, letter$i AS letter, debarred$i as debarred, branchcode, categorycode FROM old_overduerules");
27
     }
28
    $dbh->do("DROP TABLE old_overduerules");
29
    $dbh->do("ALTER TABLE overduerules_transport_types
30
              ADD COLUMN overduerules_id int(11) NOT NULL");
31
    my $mtts = $dbh->selectall_arrayref("SELECT * FROM overduerules_transport_types", { Slice => {} });
32
    $dbh->do("DELETE FROM overduerules_transport_types");
33
    $dbh->do("ALTER TABLE overduerules_transport_types
34
              DROP FOREIGN KEY overduerules_fk,
35
              ADD FOREIGN KEY overduerules_transport_types_fk (overduerules_id) REFERENCES overduerules (overduerules_id) ON DELETE CASCADE ON UPDATE CASCADE,
36
              DROP COLUMN branchcode,
37
              DROP COLUMN categorycode,
38
              DROP COLUMN letternumber");
39
    my $s = $dbh->prepare(
40
        "INSERT INTO overduerules_transport_types (overduerules_id, id, message_transport_type) ".
41
        "VALUES((SELECT overduerules_id FROM overduerules WHERE branchcode = ? AND categorycode = ?),?,?)"
42
    );
43
    foreach my $mtt(@$mtts){
44
        $s->execute($mtt->{branchcode}, $mtt->{categorycode}, $mtt->{id}, $mtt->{message_transport_type} );
45
    }
46
    $dbh->do("SET FOREIGN_KEY_CHECKS=1");
47
#    print "Upgrade to $DBversion done (Bug 13624 - Remove columns branchcode, categorytype from table overduerules_transport_types)\n";
48
#   SetVersion ($DBversion);
49
#}
50
51
print "\nDone\n";
52
- 

Return to bug 12772