diff options
Diffstat (limited to 'cgi-bin/index')
| -rwxr-xr-x | cgi-bin/index | 43 |
1 files changed, 23 insertions, 20 deletions
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(<td align=center valign=top style="width: 100px">\n); print qq(<div class="bluebox" width="100"><span style="line-height: 1.5em;"><nobr>); my $p = ''; my $l = ''; @@ -231,6 +232,28 @@ if ($s) print qq(<div class="bluebox"><small><span style="line-height: 1.5em;"><nobr>); print qq(.: <a href="$BUCKY/category/unsorted"><i>unsorted</i></a> :.<br>); print qq(</nobr></span></small></div></td>\n); +} + +############################# +# PRINT SIDEBAR + print qq(<td width="300" align=left valign=top>\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(</td>); + ############################# # PRINT MAIN PANE @@ -260,26 +283,6 @@ if ($s) print qq(</table>); print qq(</td>\n); -############################# -# PRINT SIDEBAR - print qq(<td width="300" align=left valign=top>\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(</td>); - ############################### print qq(</tr>); |