From 20e0f43cc63cd8c4bb7e6648ef656b5c8e7a8ce5 Mon Sep 17 00:00:00 2001 From: Marcel de Rooy Date: Mon, 15 Apr 2013 12:06:31 +0200 Subject: [PATCH] Bug 10052: Db revision for intranetstylesheet Content-Type: text/plain; charset=utf-8 Report 10052 makes the intranetstylesheet prefs behave like the opac ones. This patch contains an optional db revision: If the pref intranetstylesheet is not blank, and does not start with http, https or /, then prefix it with a slash to make it an absolute path. Test plan: Before applying this patch: 1) Put intranet-tmpl/prog/en/css/staff-global.css into intranetstylesheet. This works in the current staff client, but will be interpreted as relative as soon as both patches for this report have been applied. Apply the patch. And run: /cgi-bin/koha/installer/install.pl?step=3&op=updatestructure Check the webinstaller warning and the pref value. There should be a slash in front now. The css should still work. Continue after applying this patch with: 2) Clear the intranetstylesheet pref. Run updatestructure again. No message: OK 3) Put /intranet-tmpl/prog/en/css/staff-global.css in intranetstylesheet. Run updatestructure again. No message: OK 4) Prefix intranetstylesheet with http://[your-server-here]. Test again. Signed-off-by: Chris Cormack --- installer/data/mysql/updatedatabase.pl | 15 +++++++++++++++ 1 files changed, 15 insertions(+), 0 deletions(-) diff --git a/installer/data/mysql/updatedatabase.pl b/installer/data/mysql/updatedatabase.pl index 35f575a..5a1db66 100755 --- a/installer/data/mysql/updatedatabase.pl +++ b/installer/data/mysql/updatedatabase.pl @@ -6834,6 +6834,21 @@ if (C4::Context->preference("Version") < TransformToNum($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 =head2 TableExists($table) -- 1.7.7.6