@@ -, +, @@ --- installer/data/mysql/updatedatabase.pl | 14 ++++++++++++++ 1 files changed, 14 insertions(+), 0 deletions(-) --- a/installer/data/mysql/updatedatabase.pl +++ a/installer/data/mysql/updatedatabase.pl @@ -6771,6 +6771,20 @@ if ( CheckVersion($DBversion) ) { SetVersion ($DBversion); } +$DBversion = "3.11.00.XXX"; +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?)/) { + $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"; + } + print "Upgrade to $DBversion done (Bug 10052: Make intranetstylesheet and intranetcolorstylesheet behave exactly like their opac counterparts)\n"; + SetVersion ($DBversion); +} + =head1 FUNCTIONS --