|
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 |
- |
|
|