SetVersion($DBversion);
}
-
-
-$DBversion = "3.11.00.XXX";
+$DBversion = "3.13.00.005";
if(CheckVersion($DBversion)) {
my $intra= C4::Context->preference("intranetstylesheet");
#if this pref is not blank or starting with http, https or / [root], then
#add an additional / to the front
- if($intra && $intra!~/^(\/|https?)/) {
+ if($intra && $intra !~ /^(\/|https?)/) {
$dbh->do("UPDATE systempreferences SET value=? WHERE variable=?",
undef,('/'.$intra,"intranetstylesheet"));
print "WARNING: Your system preference intranetstylesheet has been prefixed with a slash to make it an absolute path.\n";
SetVersion ($DBversion);
}
-
-
=head1 FUNCTIONS
=head2 TableExists($table)
use strict;
sub kohaversion {
- our $VERSION = '3.13.00.004';
+ our $VERSION = '3.13.00.005';
# version needs to be set this way
# so that it can be picked up by Makefile.PL
# during install