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