diff options
| author | Darkelarious <darkelarious@333networks.com> | 2021-10-04 15:13:04 +0200 |
|---|---|---|
| committer | Darkelarious <darkelarious@333networks.com> | 2021-10-04 15:13:04 +0200 |
| commit | 5d7c4e5537e3de2b4505b44dfed228e19e213e38 (patch) | |
| tree | 9fe786e559c2485c9f01e577925a7e8498404bf5 /lib/MasterWebInterface | |
| parent | ae716da5bb24039df3073c04905a5e1444a19771 (diff) | |
| download | WebInterface-Perl-5d7c4e5537e3de2b4505b44dfed228e19e213e38.tar.gz WebInterface-Perl-5d7c4e5537e3de2b4505b44dfed228e19e213e38.zip | |
style rotation through setting
Diffstat (limited to 'lib/MasterWebInterface')
| -rwxr-xr-x | lib/MasterWebInterface/Util/Layout.pm | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/lib/MasterWebInterface/Util/Layout.pm b/lib/MasterWebInterface/Util/Layout.pm index 20647fa..33a7a8f 100755 --- a/lib/MasterWebInterface/Util/Layout.pm +++ b/lib/MasterWebInterface/Util/Layout.pm @@ -16,13 +16,16 @@ sub htmlHeader # CSS override: allow passing of style from GET --> ?style=classic my $style = $self->{style}; - # rotate styles for different occasions. - my @dt = localtime(time); - # specify dates [m/d] = styles - if ($dt[4] == 2 && $dt[3] == 31) {$style = "april";} # 31 mar and 1 apr - if ($dt[4] == 3 && $dt[3] == 1) {$style = "april";} - if ($dt[4] == 9 && $dt[3] >= 1) {$style = "halloween";} - if ($dt[4] == 11 && $dt[3] >= 7) {$style = "xmas";} + if ( $self->{rotate_styles} ) + { + # rotate styles for different occasions. + my @dt = localtime(time); + # specify dates [m/d] = styles + if ($dt[4] == 2 && $dt[3] == 31) {$style = "april";} # 31 mar and 1 apr + if ($dt[4] == 3 && $dt[3] == 1) {$style = "april";} + if ($dt[4] == 9 && $dt[3] >= 1) {$style = "halloween";} + if ($dt[4] == 11 && $dt[3] >= 7) {$style = "xmas";} + } if (my $overrideStyle = $self->reqParam("style") ) { |