HTML::EditableTable Classes for HTML presentation of tabular data with view and edit modes
Download

HTML::EditableTable Ranking & Summary

HTML::EditableTable Tags

HTML Perl module presentation tabular data tabular html presentation

HTML::EditableTable Description

Classes for HTML presentation of tabular data with view and edit modes HTML::EditableTable is a Perl module developed to simplify the manipuation of complex tabular data in engineering and business-process web applications. The motivation was a rapid-prototype software development flow where the requirements gathering phase goes something like "I have this big complicated spreadsheet that I want to make a website out of..., can you help?". The EditableTable class is an 'abstract' base class and EditableTable::Horizontal and EditableTable::Vertical are the implementations for two commonly used table types. Key features of these classes are as follows:- toggling of the table between view and edit modes with support for common html widgets- uniquification of form element data to support processing of html form submissions of table data- support for rowspanning- methods to generate javascript for dynamic addition and remove of rows and commonly needed features such as 'click-to-expand' text display, calendar widget date entry, and sorting- support for callbacks when data need to be pre-processed prior to displayFor the Horizontal table, data are provided to tables in an array-of-hashes (most common case) or a hash-of-hashes. For the Vertical table, a single hash of data produces a single column of data while a hash-of-hashes supports muliple data columns.SYNOPSIS use HTML::EditableTable; use HTML::EditableTable::Horizontal; my @tableData = ( { 'part_id' => 7765, 'catalog_id' => 'UX35AT', 'addition_date' => '2008-10-10', 'part_name' => 'control module', 'vendor' => 'Praxis', 'description' => 'ABS package with revA firmware. Used in low-cost applications and as replacement for model UX34AT. Includes adaptor wiring harness for UX34AT', 'qa_results' => 'see http://yoururl.com/index.cgi?context=qa', 'qoh' => '65', 'rohs_category' => 2, 'reorder_class' => 'C', 'last_order_date' => '2010-06-10', }, { 'part_id' => 7961, 'catalog_id' => 'ZX42AT', 'addition_date' => '2009-03-01', 'part_name' => 'power regulator', 'vendor' => 'Armscor', 'description' => 'Minature power supply with redundant relays', 'qa_results' => '2ppm confirmed', 'qoh' => '32', 'rohs_category' => 2, 'reorder_class' => 'A', 'last_order_date' => '2009-12-17', }, { 'part_id' => 8055, 'catalog_id' => 'UX24AT', 'addition_date' => '2007-04-08', 'part_name' => 'control module', 'vendor' => 'Subarashii', 'description' => 'Obsolete control module for A45 overthruster. Requires UX27AZ conditioner and 3F buffering caps if the overthruster runs >18psi', 'qa_results' => 'see http://yoururl.com/index.cgi?context=qa', 'qoh' => '2', 'rohs_category' => 4, 'reorder_class' => 'A', 'last_order_date' => '2005-08-19', }, ); my @tableFields = ( { 'editOnly' => 1, 'formElement' => 'deleteRowButton', }, { 'dbfield' => 'part_id', 'label' => 'Part Id', 'viewOnly' => 1, }, { 'dbfield' => 'catalog_id', 'label' => 'Catalog Id', 'formElement' => 'textfield', 'size' => 15, 'uniquifierField' => 'part_id', }, { 'dbfield' => 'addition_date', 'label' => 'Available From', 'formElement' => 'calendar', 'uniquifierField' => 'part_id', }, { 'dbfield' => 'part_name', 'label' => 'Part Name', 'formElement' => 'textfield', 'size' => 20, 'uniquifierField' => 'part_id', }, { 'dbfield' => 'vendor', 'label' => 'Vendor', 'formElement' => 'popup', 'selectionList' => , 'uniquifierField' => 'part_id', }, { 'dbfield' => 'description', 'label' => 'Part Description', 'formElement' => 'textarea', 'subBr' => 1, 'drillDownTruncate' => 60, 'uniquifierField' => 'part_id', }, { 'dbfield' => 'qa_results', 'label' => 'QA Results', 'formElement' => 'textfield', 'linkifyContentOnView' => 1, 'uniquifierField' => 'part_id', }, { 'dbfield' => 'qoh', 'label' => 'Quantity', 'formElement' => 'textfield', 'size' => 5, 'uniquifierField' => 'part_id', }, { 'dbfield' => 'rohs_category', 'label' => 'RoHS', 'formElement' => 'popup', 'selectionList' => , 'selectionLabels' => { 1 => 'Large and small household appliances', 2 => 'IT equipment', 3 => 'Telecommunications equipment', 4 => 'Consumer equipment', 5 => 'Lighting equipment', 6 => 'Electronic and electrical tools', 7 => 'Toys, leisure, and sports equipment', 8 => 'Medical devices', 9 => 'Monitoring and control instruments', 10 => 'Automatic dispensers', }, 'uniquifierField' => 'part_id', }, { 'dbfield' => 'reorder_class', 'label' => 'Reorder Class', 'formElement' => 'popup', 'selectionList' => , 'uniquifierField' => 'part_id', }, { 'dbfield' => 'last_order_date', 'label' => 'Last Ordered', 'formElement' => 'calendar', 'uniquifierField' => 'part_id', }, ); ######## CGI Controller ########## my $t = CGI->new(); print $t->header(); my $context = $t->param('context') || 'view'; my $table = HTML::EditableTable::Horizontal->new ( { 'tableFields' => \@tableFields, 'width' => '100%', 'jsAddData' => 1, 'editMode' => $context, 'data' => \@tableData, 'jsSortHeader' => 1, } ); print "< form method=post >"; $table->htmlDisplay(); my $nextContext = $context eq 'view' ? 'edit' : 'view'; print "< input type=submit name=context value=$nextContext >"; print "< /form >"; Requirements: · Perl

HTML::EditableTable Related Software