$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);

}