style rotation through setting

2 files changed, 13 insertions, 7 deletions

diff --git a/Changelog b/Changelog
index 0b1c094..d893f6a 100755
--- a/Changelog
+++ b/Changelog
@@ -1,5 +1,8 @@
 Changelog:
 
+04-10-2021: style rotation through setting
+    * enable/disable style rotation with the setting
+
 02-10-2021: serverflag symbols and style rotation
     * display serverflag symbols on top right area of servername
     * update styles to match
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") ) 
     {