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

(-)a/installer/data/mysql/atomicupdate/Bug_16007_adding_column_letternumber_back_into_table_overduerules_transport_types.perl (-36 / +6 lines)
Lines 1-36 Link Here
1
#!/usr/bin/perl
2
3
use strict;
4
use warnings;
5
6
use C4::Context;
7
use C4::Members;
8
9
my $dbh = C4::Context->dbh;
1
my $dbh = C4::Context->dbh;
10
my $sth = $dbh->prepare("SELECT * FROM overduerules_transport_types WHERE 0 = 1");
2
my ($print_error) = $dbh->{PrintError};
11
my $urv = $sth->execute();
3
$dbh->{RaiseError} = 0;
12
4
$dbh->{PrintError} = 0;
13
my @data;
5
$dbh->do("ALTER TABLE overduerules_transport_types ADD COLUMN letternumber INT(1) NOT NULL DEFAULT 1 AFTER id");
14
6
$dbh->{PrintError} = $print_error;
15
if ( $sth->{NUM_OF_FIELDS} > 0 )
7
print "Bug 16007: Make sure overduerules_transport_types.letternumber exists\n";
16
{
17
    @data = @{$sth->{NAME}};
18
19
    my @letternumber = grep { $_ eq 'letternumber' } @data;
20
21
    if ( ! @letternumber )
22
    {
23
        my $urv = $dbh->do("ALTER TABLE overduerules_transport_types ADD COLUMN letternumber INT(1) NOT NULL DEFAULT 1 AFTER id");
24
        print "Bug 16007: adding column 'letternumber' back into table 'overduerules_transport_types'\n";
25
    }
26
    else
27
    {
28
        print "Bug 16007: your table 'overduerules_transport_types' already has a column 'letternumber'; nothing to do\n";
29
    }
30
}
31
else
32
{
33
    # table overduerules_transport_types should exist by now, but let's
34
    # warn the user here just in case
35
    print "Bug 16007: [ERROR] your table 'overduerules_transport_types' does not exists ?!\n";
36
}
37
- 

Return to bug 16007