Lucas Gass
4 years ago
3 changed files with 38 additions and 31 deletions
@ -1,30 +0,0 @@ |
|||
$DBversion = 'XXX'; # will be replaced by the RM |
|||
if( CheckVersion( $DBversion ) ) { |
|||
|
|||
# get list of installed translations |
|||
require C4::Languages; |
|||
my @langs; |
|||
my $tlangs = C4::Languages::getTranslatedLanguages(); |
|||
|
|||
foreach my $language ( @$tlangs ) { |
|||
foreach my $sublanguage ( @{$language->{'sublanguages_loop'}} ) { |
|||
push @langs, $sublanguage->{'rfc4646_subtag'}; |
|||
} |
|||
} |
|||
|
|||
# Get any existing value from the OpacLoginInstructions system preference |
|||
my ($opaclogininstructions) = $dbh->selectrow_array( q| |
|||
SELECT value FROM systempreferences WHERE variable='OpacLoginInstructions'; |
|||
|); |
|||
if( $opaclogininstructions ){ |
|||
foreach my $lang ( @langs ) { |
|||
print "Inserting OpacLoginInstructions contents into $lang news item...\n"; |
|||
# If there is a value in the OpacLoginInstructions preference, insert it into opac_news |
|||
$dbh->do("INSERT INTO opac_news (branchcode, lang, title, content ) VALUES (NULL, ?, '', ?)", undef, "OpacLoginInstructions_$lang", $opaclogininstructions); |
|||
} |
|||
} |
|||
# Remove the OpacLoginInstructions system preference |
|||
$dbh->do("DELETE FROM systempreferences WHERE variable='OpacLoginInstructions'"); |
|||
SetVersion ($DBversion); |
|||
print "Upgrade to $DBversion done (Bug 23797: Convert OpacLoginInstructions system preference to news block)\n"; |
|||
} |
Loading…
Reference in new issue