From 04821c579b0df2c29fca58d43bd0f0d80bdbb451 Mon Sep 17 00:00:00 2001 From: Jules Laplace Date: Wed, 8 Jan 2014 14:07:36 -0600 Subject: swap columns --- cgi-bin/index | 43 +++++++++++++++++++++++-------------------- 1 file changed, 23 insertions(+), 20 deletions(-) (limited to 'cgi-bin/index') diff --git a/cgi-bin/index b/cgi-bin/index index 813dd8b..3929a73 100755 --- a/cgi-bin/index +++ b/cgi-bin/index @@ -189,6 +189,7 @@ else ############################# # KEYWORD LIST +if (2==1) { print qq(\n); print qq(
); my $p = ''; my $l = ''; @@ -231,6 +232,28 @@ if ($s) print qq(
); print qq(.: unsorted :.
); print qq(
\n); +} + +############################# +# PRINT SIDEBAR + print qq(\n); + alerts(); + if ($USER == -1) + { + bPod_box(); + } + else + { + welcome_box(); # if (check_key($USER->{boxes}, "welcome")); + search_box(); + svn_box();# if $USER->{'ulevel'} == 3; +# radio_box() ; # if (check_key($USER->{boxes}, "radio")); +# bPod_box() if (check_key($USER->{boxes}, "bPod")); + hoot_box() if (check_key($USER->{boxes}, "hootbox")); +# upload_form($keyword) if (check_key($USER->{boxes}, "postform")); + } + print qq(); + ############################# # PRINT MAIN PANE @@ -260,26 +283,6 @@ if ($s) print qq(); print qq(\n); -############################# -# PRINT SIDEBAR - print qq(\n); - alerts(); - if ($USER == -1) - { - bPod_box(); - } - else - { - welcome_box(); # if (check_key($USER->{boxes}, "welcome")); - search_box(); - svn_box();# if $USER->{'ulevel'} == 3; -# radio_box() ; # if (check_key($USER->{boxes}, "radio")); -# bPod_box() if (check_key($USER->{boxes}, "bPod")); - hoot_box() if (check_key($USER->{boxes}, "hootbox")); -# upload_form($keyword) if (check_key($USER->{boxes}, "postform")); - } - print qq(); - ############################### print qq(); -- cgit v1.2.3-70-g09d2