Lines 6784-6789
if ( CheckVersion($DBversion) ) {
Link Here
|
6784 |
SetVersion ($DBversion); |
6784 |
SetVersion ($DBversion); |
6785 |
} |
6785 |
} |
6786 |
|
6786 |
|
|
|
6787 |
$DBversion = "3.11.00.XXX"; |
6788 |
if(CheckVersion($DBversion)) { |
6789 |
my $intra= C4::Context->preference("intranetstylesheet"); |
6790 |
#if this pref is not blank or starting with http, https or / [root], then |
6791 |
#add an additional / to the front |
6792 |
if($intra && $intra!~/^(\/|https?)/) { |
6793 |
$dbh->do("UPDATE systempreferences SET value=? WHERE variable=?", |
6794 |
undef,('/'.$intra,"intranetstylesheet")); |
6795 |
print "WARNING: Your system preference intranetstylesheet has been prefixed with a slash to make it an absolute path.\n"; |
6796 |
} |
6797 |
print "Upgrade to $DBversion done (Bug 10052: Make intranetstylesheet and intranetcolorstylesheet behave exactly like their opac counterparts)\n"; |
6798 |
SetVersion ($DBversion); |
6799 |
} |
6800 |
|
6787 |
|
6801 |
|
6788 |
=head1 FUNCTIONS |
6802 |
=head1 FUNCTIONS |
6789 |
|
6803 |
|
6790 |
- |
|
|