Lines 191-197
sub themelanguage {
Link Here
|
191 |
$lang = $languages[0] || 'en'; |
191 |
$lang = $languages[0] || 'en'; |
192 |
} |
192 |
} |
193 |
my $theme = 'prog'; # in the event of theme failure default to 'prog' -fbcit |
193 |
my $theme = 'prog'; # in the event of theme failure default to 'prog' -fbcit |
194 |
my $dbh = C4::Context->dbh; |
|
|
195 |
my @themes; |
194 |
my @themes; |
196 |
if ( $interface eq "intranet" ) { |
195 |
if ( $interface eq "intranet" ) { |
197 |
@themes = split " ", C4::Context->preference("template"); |
196 |
@themes = split " ", C4::Context->preference("template"); |
198 |
- |
|
|