aboutsummaryrefslogtreecommitdiff
path: root/lib/MasterWebInterface/Util
diff options
context:
space:
mode:
authorDarkelarious <darkelarious@333networks.com>2021-09-05 20:49:38 +0200
committerDarkelarious <darkelarious@333networks.com>2021-09-05 20:49:38 +0200
commit153b89b5bc58eb239289698c3f483509911db20d (patch)
tree2d902f2e1bfb61b4af0c1b508dbb59f95bdc7de2 /lib/MasterWebInterface/Util
parent3470e2605595bf52b3ba07bf0b3886e5a61d3e06 (diff)
downloadWebInterface-Perl-153b89b5bc58eb239289698c3f483509911db20d.tar.gz
WebInterface-Perl-153b89b5bc58eb239289698c3f483509911db20d.zip
functional masterinterface with styles
Diffstat (limited to 'lib/MasterWebInterface/Util')
-rwxr-xr-xlib/MasterWebInterface/Util/Layout.pm11
1 files changed, 3 insertions, 8 deletions
diff --git a/lib/MasterWebInterface/Util/Layout.pm b/lib/MasterWebInterface/Util/Layout.pm
index bf401c2..536aad7 100755
--- a/lib/MasterWebInterface/Util/Layout.pm
+++ b/lib/MasterWebInterface/Util/Layout.pm
@@ -18,7 +18,7 @@ sub htmlHeader
if (my $overrideStyle = $self->reqParam("style") )
{
# default to custom style if specified option doesn't exist
- $style = ( -e "$self->{root}/s/style/$overrideStyle" ) ? $overrideStyle : "basic";
+ $style = ( -e "$self->{root}/s/style/$overrideStyle" ) ? $overrideStyle : $self->{style};
}
html lang => "en";
@@ -61,19 +61,14 @@ sub htmlHeader
end;
my $overrideStyle = $self->reqParam("style");
- if ($overrideStyle) {
+ if ($overrideStyle or $self->{style_box}) {
# debug feature: force list of styles on floaty-box
div class => "mainbox",
style => "position:absolute; left: 20px; top: 20px; width:200px";
div class => "header";
h1 "Development";
- p class => "alttitle";
- txt "This site is under development. Find ";
- a href => "http://333networks.com", "333networks.com here!";
- br;
- txt "Use the list below to test different house styles.";
- end;
+ p "This box allows for testing of multiple styles. Disable it from config.";
end;
ul style => "margin: 3px 20px 10pt 40px";