|
Lines 6771-6776
if ( CheckVersion($DBversion) ) {
Link Here
|
| 6771 |
SetVersion ($DBversion); |
6771 |
SetVersion ($DBversion); |
| 6772 |
} |
6772 |
} |
| 6773 |
|
6773 |
|
|
|
6774 |
$DBversion = "3.11.00.XXX"; |
| 6775 |
if(CheckVersion($DBversion)) { |
| 6776 |
my $intra= C4::Context->preference("intranetstylesheet"); |
| 6777 |
#if this pref is not blank or starting with http, https or / [root], then |
| 6778 |
#add an additional / to the front |
| 6779 |
if($intra && $intra!~/^(\/|https?)/) { |
| 6780 |
$dbh->do("UPDATE systempreferences SET value=? WHERE variable=?", |
| 6781 |
undef,('/'.$intra,"intranetstylesheet")); |
| 6782 |
print "WARNING: Your system preference intranetstylesheet has been prefixed with a slash to make it an absolute path.\n"; |
| 6783 |
} |
| 6784 |
print "Upgrade to $DBversion done (Bug 10052: Make intranetstylesheet and intranetcolorstylesheet behave exactly like their opac counterparts)\n"; |
| 6785 |
SetVersion ($DBversion); |
| 6786 |
} |
| 6787 |
|
| 6774 |
|
6788 |
|
| 6775 |
=head1 FUNCTIONS |
6789 |
=head1 FUNCTIONS |
| 6776 |
|
6790 |
|
| 6777 |
- |
|
|