#-------------------------------------------------------------------------------------------
#  B O O T S T R A P     H E L P E R     M O D U L E  ("Twitter Bootstrap" JS)
#-------------------------------------------------------------------------------------------
package BootstrapHelper; # Helps create Bootstrap EventDetailHandler_Enumerate_Instances
use CGI;
#-------------------------------
sub new{
  my ($class, %atts) = @_;
  
  return bless ({ %atts } ,$class);
}
#-------------------------------

sub panel{ # $bs->panel (heading=>"my title",content=>"important stuff",class=>"panel-danger");
  my ($self,%atts) = @_;
   
  $atts{class} ||= "panel-info";
  $atts{heading}    ||= "Info";
  return CGI::div({-class => "panel $atts{class}"},
     join "\n",
        CGI::div({-class=>"panel-heading"},
             CGI::h3({-class=>"panel-title"},$atts{heading})
        ),
        CGI::div({-class=>"panel-body"}, $atts{content})
    ) . "\n";
}

sub alert{
  my ($self,%atts) = @_;
  $atts{class} ||= "alert-info";
  $atts{dismiss} and $atts{class} .= " alert-dismissable";
  $atts{heading}    ||= ""; # Text to be highlighted
  return CGI::div({-class => "alert $atts{class}"},
            join "\n",
              ($atts{dismiss} ? $self->button(dismiss=>1, class=>"close") : ""),
              ($atts{heading} ? CGI::strong($atts{heading}) . " " : ""),
              $atts{content}
         ) . "\n";
}

sub button{ # Cannot use CGI::button, since that one produces an <input> tag
  my ($self,%atts) = @_;
  $atts{class} ||= "btn-info";
  $atts{content} ||="";
  $atts{dismiss} and $atts{content} .= "&times";
  return 
     qq|<button type="button" class="btn $atts{class}" |
     . ($atts{dismiss} ? qq|data-dismiss="alert" aria-hidden="true" | :"")
     . ($atts{onclick} ? qq|onclick="$atts{onclick}" | :"")
     . ">"
     . $atts{content} 
     . qq|</button>\n|;
}

sub dropdown{
  my ($self,%atts) = @_;
  $self->{DROPDOWN_COUNT}++;
  $self->{DROPDOWN_ID} = "dropdown_menu_$self->{DROPDOWN_COUNT}"; # Most recent ID is here
  $atts{class}   ||= "btn-info";
  $atts{content} ||= $atts{selected_value} || "Button-name"; # Gets overriden by default anyway
  $atts{values}  ||= [];
  $atts{selected_value} ||= "***NONE***";
  $atts{input} ||= ""; # Allow for optional <input> text tag (Whose ID should be set to THIS control's data-target)
  my $target_txt = $atts{'data-target'} ? "data-target=\"$atts{'data-target'}\" " : "";
  return <<"  __DROPDOWN__"
<div class="dropdown">
  <button class="btn $atts{class} dropdown-toggle" type="button"  data-toggle="dropdown" aria-haspopup="true"
      id="$self->{DROPDOWN_ID}"  $target_txt  aria-expanded="true">
    $atts{content} 
    <span class="caret"></span>
  </button> $atts{input}
  <ul class="dropdown-menu" aria-labelledby="$self->{DROPDOWN_ID}">
  __DROPDOWN__
    . join ("\n", map {"<li><a href='#' data-value='$_'>$_" 
                         . ($_ eq $atts{selected_value} ? "class='active'":"")  
                         ."</a></li>"} 
                  @{$atts{values}})
    . "</ul></div>\n";
}
1;
# End of BootstrapHelper class