# NOTE: Please keep the version in kohaversion.pl up-to-date!
use strict;
-# use warnings;
+use warnings;
# CPAN modules
use DBI;
$dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OPACViewOthersSuggestions',0,'If ON, allows all suggestions to be displayed in the OPAC',NULL,'YesNo')");
$dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OPACURLOpenInNewWindow',0,'If ON, URLs in the OPAC open in a new window',NULL,'YesNo')");
$dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('OPACUserCSS',0,'Add CSS to be included in the OPAC',NULL,'free')");
-$dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('emailPurchaseSuggestions',0,'If ON, patron suggestions are emailed rather than managed in Acquisitions',NULL,'YesNo')");
print "Upgrade to $DBversion done (adding additional system preference)\n";
SetVersion ($DBversion);
SetVersion ($DBversion);
}
if (C4::Context->preference("Version") =~/3\.00/) {
- warn "inside 3.00";
my $perllibdir=C4::Context->config('intranetdir');
my $return=do qq($perllibdir/installer/data/mysql/updatedatabase30.pl);
unless ($return){
print STDERR "cannot read file $ENV{'PERL5LIB'}/installer/data/mysql/updatedatabase30.pl : $@ \n" if ($@);
}
}
+
+
=item DropAllForeignKeys($table)
Drop all foreign keys of the table $table