Embperl::Form::Control::tabs - A tab control inside an Embperl Form

Embperl documentation Contained in the Embperl distribution.

Index

Code Index:

NAME

Top

Embperl::Form::Control::tabs - A tab control inside an Embperl Form

SYNOPSIS

Top

            Embperl::Form -> add_tabs (
                [
                    {
                    text => 'First Tab',
                    fields => [
                              ...
                              ]
                    },
                    {
                    text => 'Second Tab',
                    fields => [
                              ...
                              ]
                    }
                ])

DESCRIPTION

Top

Control to display tabs at the top of the form and control the switching between sub forms. The switching is done by Javascript, so it can only be used in environment where Javascript is available.

You can use the method Embperl::Form -> add_tabs to setup a tabbed form. See Embperl::Form on how to specify parameters.

PARAMETER

text

Text that will be displayed on the tab

fields

List of fields that should be displayed in this subform. Given in the same form as form Embperl::Form.

Author

Top

G. Richter (richter@dev.ecos.de)

See Also

Top

perl(1), Embperl, Embperl::Form

Embperl documentation Contained in the Embperl distribution. 
###################################################################################
#
#   Embperl - Copyright (c) 1997-2010 Gerald Richter / ecos gmbh   www.ecos.de
#
#   You may distribute under the terms of either the GNU General Public
#   License or the Artistic License, as specified in the Perl README file.
#
#   THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR
#   IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
#   WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
#   $Id$
#
###################################################################################

package Embperl::Form::Control::tabs ;

use strict ;
use vars qw{%fdat} ;

use Embperl::Form::ControlMultValue ;
use base 'Embperl::Form::ControlMultValue' ;

use Embperl::Inline ;

# ---------------------------------------------------------------------------
#
#   new - create a new control
#


sub new

    {
    my ($class, $args) = @_ ;

    my $self = Embperl::Form::ControlMultValue -> new($args) ;
    bless $self, $class ;

    $self -> {width} = 1 ;
    $self -> {nameprefix} ||= 'tab:' ;

    return $self ;
    }

# ---------------------------------------------------------------------------
#
#   noframe - do not draw frame border if this is the first control
#


sub noframe

    {
    return 1 ;
    }

# ---------------------------------------------------------------------------
#
#   get_active_id - get the id of the value which is currently active
#

sub get_active_id

    {
    my ($self, $req)   = @_ ;

    my ($values, $options) = $self -> get_values ($req) ;
    my $name     = $self -> {name} ;
    my $dataval  = $fdat{$name} || $values -> [0] ;
    my $activeid ;

    my $i = 0 ;
    foreach my $val (@$values)
        {
        if ($val eq $dataval || $self -> {subids}[$i] eq $dataval)
            {
            $activeid = $self -> {subids}[$i] ;
            last ;
            }
        $i++ ;
        }

    return $activeid || $self -> {subids}[0];
    }


1 ;

__EMBPERL__

[# ---------------------------------------------------------------------------
#
#   show - output the control
#]

[$ sub show ($self)

    my ($values, $options) = $self -> get_values ;
    my $span = ($self->{width_percent})  ;
    my $name     = $self -> {name} ;
    my $dataval  = $fdat{$name} || $values -> [0] ;
    my $activeid = $self -> get_active_id ;
    my $nsprefix = $self -> form -> {jsnamespace} ;
    my $tabs_per_line = $self -> {'tabs_per_line'} || 99;
    $tabs_per_line = [$tabs_per_line, $tabs_per_line, $tabs_per_line, $tabs_per_line] 
	if (!ref $tabs_per_line) ;

    my $val ;
    my $i = 0 ;
    my $more = 1 ;
    my $start_i = 0 ;
    my $line = 0 ;
$]

<td class="cBase cTabTD" colspan="[+ $span +]">
    [$ while ($more) $]
      <table  class="cBase cTabTable" ><tr  class="cBase cTabRow">
      [* 
      $more = 0 ; 
      my $tabs = $tabs_per_line -> [$line++] ;
      *]
      [$ while ($i < @$values) $]
        [*
	$val = $values -> [$i] ;
        my $id        = $self -> {subids}[$i] ;
        my $cellclass = $id eq $activeid?'cTabCellOn':'cTabCellOff' ;
        my $divclass  = $id eq $activeid?'cTabDivOn':'cTabDivOff' ;

        my $form = $self -> form ;
        my @switch_code ;

        foreach my $sub (@{$form -> {controls}})
            {
            my $code = $sub -> get_on_show_code ;
            push @switch_code, $code if ($code) ;
            }
        my $js = join (';', @switch_code) ;
        *]
        <td class="cBase [+ $cellclass +]"><div class="cBase [+ $divclass +]" 
              [$ if $i - $start_i == 0 $]style="border-left: black 1px solid" [$endif$]
              id="__tabs_[+ $id +]">
        <a href="#" onClick="[+ $nsprefix +]tab_selected(document, '[+ $id +]','[+ $name +]'); [+ do { local $escmode = 0 ; $js } +]" style="color:black; text-decoration: none;">[+ $options ->[$i] || $val +]</a></div></td>
        [* $i++ ;
           if ($i - $start_i >= $tabs && @$values > $i)
	      {
	      $more = 1 ;
	      $start_i = $i ;
	      last ;
	      }
	*]
      [$endwhile $]
      [$if ($i == @$values) $]<td class="cBase cTabCellBlank">&nbsp;</td>[$endif$]
      </tr></table>
    [$endwhile$]
    <input type="hidden" name="[+ $name +]" id="[+ $name +]" value="[+ $activeid +]">
</td>
[$endsub$]

__END__