|
Lines 6834-6839
if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
Link Here
|
| 6834 |
SetVersion($DBversion); |
6834 |
SetVersion($DBversion); |
| 6835 |
} |
6835 |
} |
| 6836 |
|
6836 |
|
|
|
6837 |
$DBversion = "3.11.00.XXX"; |
| 6838 |
if(CheckVersion($DBversion)) { |
| 6839 |
my $intra= C4::Context->preference("intranetstylesheet"); |
| 6840 |
#if this pref is not blank or starting with http, https or / [root], then |
| 6841 |
#add an additional / to the front |
| 6842 |
if($intra && $intra!~/^(\/|https?)/) { |
| 6843 |
$dbh->do("UPDATE systempreferences SET value=? WHERE variable=?", |
| 6844 |
undef,('/'.$intra,"intranetstylesheet")); |
| 6845 |
print "WARNING: Your system preference intranetstylesheet has been prefixed with a slash to make it an absolute path.\n"; |
| 6846 |
} |
| 6847 |
print "Upgrade to $DBversion done (Bug 10052: Make intranetstylesheet and intranetcolorstylesheet behave exactly like their opac counterparts)\n"; |
| 6848 |
SetVersion ($DBversion); |
| 6849 |
} |
| 6850 |
|
| 6851 |
|
| 6837 |
=head1 FUNCTIONS |
6852 |
=head1 FUNCTIONS |
| 6838 |
|
6853 |
|
| 6839 |
=head2 TableExists($table) |
6854 |
=head2 TableExists($table) |
| 6840 |
- |
|
|