#! /usr/bin/perl

use strict;

use warnings;

use Data::Dumper;

use C4::Context;

my $dbh = C4::Context->dbh();

$dbh->do("SET FOREIGN_KEY_CHECKS=0");

$dbh->do("ALTER TABLE overduerules RENAME old_overduerules");

$dbh->do("CREATE TABLE overduerules (

    `overduerules_id` mediumint NOT NULL AUTO_INCREMENT,

    `branchcode` varchar(10) NOT NULL DEFAULT '',

    `categorycode` varchar(10) NOT NULL DEFAULT '',

    `delay1` int(4) DEFAULT NULL,

    `letter1` varchar(20) DEFAULT NULL,

    `debarred1` varchar(1) DEFAULT '0',

    `delay2` int(4) DEFAULT NULL,

    `debarred2` varchar(1) DEFAULT '0',

    `letter2` varchar(20) DEFAULT NULL,

    `delay3` int(4) DEFAULT NULL,

    `letter3` varchar(20) DEFAULT NULL,

    `debarred3` int(1) DEFAULT '0',

    PRIMARY KEY (`overduerules_id`)

    ) ENGINE=InnoDB DEFAULT CHARSET=utf8;");

$dbh->do("INSERT INTO overduerules(branchcode, categorycode, delay1, letter1, debarred1, delay2, debarred2, letter2, delay3, letter3, debarred3) SELECT * FROM old_overduerules");

$dbh->do("DROP TABLE old_overduerules");

$dbh->do("ALTER TABLE overduerules_transport_types

          ADD COLUMN overduerules_id mediumint NOT NULL");

my $update = $dbh->prepare("update overduerules_transport_types set overduerules_id = (select overduerules_id from overduerules where branchcode=? and categorycode=? limit 1) where id=?");

my $mtts = $dbh->selectall_arrayref("select * from overduerules_transport_types", { Slice => {} });

$dbh->do("DELETE FROM overduerules_transport_types");

$dbh->do("ALTER TABLE overduerules_transport_types

          DROP FOREIGN KEY overduerules_fk,

          ADD FOREIGN KEY overduerules_fk (overduerules_id) REFERENCES overduerules (overduerules_id) ON DELETE CASCADE ON UPDATE CASCADE,

          DROP COLUMN branchcode,

          DROP COLUMN categorycode");

my $s = $dbh->prepare("insert into overduerules_transport_types (id, overduerules_id, letternumber, message_transport_type) values(?,?,?,?)");

foreach my $mtt(@$mtts){

    $s->execute($mtt->{id}, 1, $mtt->{letternumber}, $mtt->{message_transport_type} );

    $update->execute($mtt->{branchcode}, $mtt->{categorycode}, $mtt->{id});

}

$dbh->do("SET FOREIGN_KEY_CHECKS=1");