NAME CGI::AppBuilder::Table - Configuration initializer SYNOPSIS use CGI::AppBuilder::Table; my $ab = CGI::AppBuilder::Table->new( 'ifn', 'my_init.cfg', 'opt', 'vhS:a:'); my ($q, $ar, $ar_log) = $ab->start_app($0, \%ARGV); print $ab->disp_form($q, $ar); DESCRIPTION This class provides methods for reading and parsing configuration files. new (ifn => 'file.cfg', opt => 'hvS:') This is a inherited method from CGI::AppBuilder. See the same method in CGI::AppBuilder for more details. html_table($arf, $cns, $br) Input variables: $arf - array ref containing the content of the table $cns - column names separated by comma or AUTO|AH|HASH - use $k in AH Array ${$arf}[$i]{$k} $br - hash array ref for table format, it contains css_table - CSS class name for atr_table - attribute parameters for
css_tr - CSS class name for atr_tr - attribute parameters for atr_tr_odd - attribute parameters for ODD atr_tr_even - attribute parameters for EVEN css_tr_odd - CSS class name for ODD css_tr_even - CSS class name for EVEN css_select - CSS class name for atr_sel - attributes for itemized css_td - CSS class name for $is_end - whether to add an ending tag such as Variables used or methods called: None How to use: my $t1 = $self->html_tag('TD',{class=>'css_td'},'Text',1); # $t1 contains: # my $t2 = $self->html_tag('TD',{class=>'td1',pretty=>1},'Text2',1); # $t2 contains: # my $t3 = $self->html_tag('TD',{class=>'td1',pretty=>1, attr=>'colspan=2 align=left',hr=>{onChange=>'js_func'}}, 'Text2',1); # $t3 contains: # Return: HTML codes. This method generates HTML codes based on the information provided. table_column ($cn,$pr,$cr) Input variables: $cn - column names separated by comma, or array ref containing column names , or hash ref containing column names as keys $pr - tag attribute array ref. It contains the following items: css_tr - TR class name atr_tr - TR attributes css_td - TD class name atr_td - TD attributes pretty - whether to add line breaks atr_cell - Cell attribute $cr - column description hash ref $cr->{$k}{$itm} where $k is column name and the items ($itm) are : desc - column description name - display name Variables used or methods called: html_tag - generate HTML tags How to use: my $cn = 'seq,fn,ln'; my $pr = {css_tr=>'tr_pretty',css_td=>'td_small',pretty=>1}; my $cr = {seq=>{name=>'Seq No',desc=>'Sequential number'}, fn =>{name=>'First Name',desc=>'First name'}, ln =>{name=>'Last Name',desc=>'Last name/family name'}, }; my $t = $self->table_column($cn,$pr,$cr); Return: HTML codes. This method generates HTML codes for table header row (TH) based on the information provided. HISTORY * Version 0.10 This version extracts the disp_form method from CGI::Getopt class. 0.11 Inherited the new constructor from CGI::AppBuilder. 0.12 Added html_tag and table_column functions Modified html_table to use html_tag and table_column * Version 0.20 SEE ALSO (some of docs that I check often) Oracle::Loader, Oracle::Trigger, CGI::Getopt, File::Xcopy, CGI::AppBuilder, CGI::AppBuilder::Message, CGI::AppBuilder::Log, CGI::AppBuilder::Config, etc. AUTHOR Copyright (c) 2005 Hanming Tu. All rights reserved. This package is free software and is provided "as is" without express or implied warranty. It may be used, redistributed and/or modified under the terms of the Perl Artistic License (see http://www.perl.com/perl/misc/Artistic.html) POD ERRORS Hey! The above document had some coding errors, which are explained below: Around line 428: You forgot a '=back' before '=head1'
atr_td - attribute parameters for atr_cell - an array ref to attribute parameters for each cell ${$br}{atr_cell}[$i][$j] esc_vars - a list of escaped variables separated by comma. fh_out - output file handler cns_desc - hash ref containing column name description tab_caption - table caption/header tab_footer - table footer/notes cel_title - a hash ref storing title attribute for defined cells. You can define cells by the value stored in the cell or 'row:col'. Variables used or methods called: CGI::AppBuilder::Message set_param - get parameter from a hash How to use: my @a = (['ColA','ColB'],[1,2],[5,6],[7,8]); my $txt = $self->html_table(\@a); my @b = ({A=>1,B=>2},{A=>5,B=>6},{A=>7,B=>8}); my $txt = $self->html_table(\@b,"",'A,B'); my $txt = $self->html_table(\@b,"",'A,B'); Return: generates HTML Table codes. This method convert all the < and > into < and > for displaying, except variables are specified in *esc_vars*. html_tag ($tag, $pr, $txt, $is_end) Input variables: $tag - HTML tag such as TR, TD, TABLE, SELECT, INPUT, etc. $pr - tag attribute array ref. It contains three elements: class - CSS class name attr - attribute string such as 'width=5 onChange=js_func' hr - hash ref with key and value pairs pretty - whether to add line breaks $txt - text to be incuded between the start and end tag such as $txtText # Text2 # # Text2 #