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

(-)a/installer/data/mysql/updatedatabase.pl (-15 / +31 lines)
Lines 4893-4911 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) { Link Here
4893
4893
4894
$DBversion = "3.07.00.025";
4894
$DBversion = "3.07.00.025";
4895
if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4895
if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
4896
    $dbh->do( q|DROP TABLE bibliocoverimage;| );
4896
    if (TableExists('bibliocoverimage')) {
4897
    $dbh->do(
4897
        $dbh->do( q|DROP TABLE bibliocoverimage;| );
4898
        q|CREATE TABLE biblioimages (
4898
        $dbh->do(
4899
          imagenumber int(11) NOT NULL AUTO_INCREMENT,
4899
            q|CREATE TABLE biblioimages (
4900
          biblionumber int(11) NOT NULL,
4900
              imagenumber int(11) NOT NULL AUTO_INCREMENT,
4901
          mimetype varchar(15) NOT NULL,
4901
              biblionumber int(11) NOT NULL,
4902
          imagefile mediumblob NOT NULL,
4902
              mimetype varchar(15) NOT NULL,
4903
          thumbnail mediumblob NOT NULL,
4903
              imagefile mediumblob NOT NULL,
4904
          PRIMARY KEY (imagenumber),
4904
              thumbnail mediumblob NOT NULL,
4905
          CONSTRAINT bibliocoverimage_fk1 FOREIGN KEY (biblionumber) REFERENCES biblio (biblionumber) ON DELETE CASCADE ON UPDATE CASCADE
4905
              PRIMARY KEY (imagenumber),
4906
          ) ENGINE=InnoDB DEFAULT CHARSET=utf8;|
4906
              CONSTRAINT bibliocoverimage_fk1 FOREIGN KEY (biblionumber) REFERENCES biblio (biblionumber) ON DELETE CASCADE ON UPDATE CASCADE
4907
    );
4907
              ) ENGINE=InnoDB DEFAULT CHARSET=utf8;|
4908
    print "Upgrade to $DBversion done (Correct table name for local cover images [please disregard the following error messages: \"Unknown table 'bibliocoverimage'...\" and \"Table 'biblioimages' already exists...\"])\n";
4908
        );
4909
    }
4910
    print "Upgrade to $DBversion done (Correct table name for local cover images if needed. )\n";
4909
    SetVersion($DBversion);
4911
    SetVersion($DBversion);
4910
}
4912
}
4911
4913
Lines 5135-5141 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) { Link Here
5135
        $dbh->do("UPDATE systempreferences SET type='Free', value=\"$valueOPACXSLTDetailsDisplay\" WHERE variable='OPACXSLTDetailsDisplay'");
5137
        $dbh->do("UPDATE systempreferences SET type='Free', value=\"$valueOPACXSLTDetailsDisplay\" WHERE variable='OPACXSLTDetailsDisplay'");
5136
        $dbh->do("UPDATE systempreferences SET type='Free', value=\"$valueOPACXSLTResultsDisplay\" WHERE variable='OPACXSLTResultsDisplay'");
5138
        $dbh->do("UPDATE systempreferences SET type='Free', value=\"$valueOPACXSLTResultsDisplay\" WHERE variable='OPACXSLTResultsDisplay'");
5137
    }
5139
    }
5138
    print "XSLT systempreference takes a path to file rather than YesNo\n";
5140
    print "Upgrade to $DBversion done (XSLT systempreference takes a path to file rather than YesNo)\n";
5139
    SetVersion($DBversion);
5141
    SetVersion($DBversion);
5140
}
5142
}
5141
5143
Lines 5148-5153 if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) { Link Here
5148
5150
5149
=head1 FUNCTIONS
5151
=head1 FUNCTIONS
5150
5152
5153
=head2 TableExists($table)
5154
5155
=cut
5156
5157
sub TableExists {
5158
    my $table = shift;
5159
    eval {
5160
                local $dbh->{PrintError} = 0;
5161
                local $dbh->{RaiseError} = 1;
5162
                $dbh->do(qq{SELECT * FROM $table WHERE 1 = 0 });
5163
            };
5164
    return 1 unless $@;
5165
    return 0;
5166
}
5167
5151
=head2 DropAllForeignKeys($table)
5168
=head2 DropAllForeignKeys($table)
5152
5169
5153
Drop all foreign keys of the table $table
5170
Drop all foreign keys of the table $table
5154
- 

Return to bug 7902