# Requires an image name to be defined in the variable 'hidebox_icon'
# This box should be called from within the box template 'box'
# The call should be of the form:
# |BOX,hidebox_box,|bid||
# an example box closer icon can be seen at:
# http://beta.evilplans.net/images/x.gif
### Really Start Hidebox Box ###
# Display a Box CLoser 'X' in box templates
# Version 0.1 by hillct
my($content);
my $uri=$S->apache->uri;
my $arg = $S->apache->args();
$arg =~ s/hide-box=\w+//g;
$arg =~ s/;$//;
my $redirect=($arg)?"$uri?$arg":$uri;
$uri .= ($arg) ? "?$arg;hide-box=$ARGS[0]" : "?hide-box=$ARGS[0]";
if($S->{GID} ne 'Anonymous') { # If logged in
if($S->cgi->param('hide-box')=~/$ARGS[0]/){
# Change the user pref for display of this box
$S->pref(displayed_boxes=>$S->pref('displayed_boxes').','.$ARGS[0]);
# Redirect because we're actually running the box
$S->apache->header_out('location',$redirect);
$S->apache->header_out('connection','close');
$S->apache->status(301); $S->{HEADER_ONLY}=1;
} else {
# Display an 'X' with a link to 'URI' if allowed
if($S->{BOX_DATA}{$ARGS[0]} && $S->{BOX_DATA}{$ARGS[0]}{user_choose}){
$content.=qq{<a href="$uri"><img src="$S->{UI}->{VARS}->{'rootdir'}$S->{UI}->{VARS}->{'imagedir'}/$S->{UI}->{VARS}->{'hidebox_icon'}" border="0" align="right" alt="close"></a>};
}
}
return {content => $content};
}
