oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

perltidy

Browse source
This commit is contained in:
Doug Bell 2008-11-03 18:02:45 +00:00
parent b74fa78ee2
commit 0ee9718dc6
1 changed files with 127 additions and 133 deletions
Download patch file Download diff file Expand all files Collapse all files

260
lib/WebGUI/Form/DataTable.pm
View file

@ -71,29 +71,19 @@ displaying the table with getValueAsHtml().
=cut =cut
sub definition { sub definition {
my $class = shift; my $class = shift;
my $session = shift; my $session = shift;
my $definition = shift || []; my $definition = shift || [];
push @{$definition}, { push @{$definition}, {
showEdit => { showEdit => { defaultValue => 0, },
defaultValue => 0, ajaxDataUrl => { defaultValue => undef, },
}, ajaxSaveUrl => { defaultValue => undef, },
ajaxDataUrl => { ajaxSaveFunc => { defaultValue => "view", },
defaultValue => undef, ajaxSaveExtras => { defaultValue => undef, },
}, };
ajaxSaveUrl => {
defaultValue => undef, return $class->SUPER::definition( $session, $definition );
},
ajaxSaveFunc => {
defaultValue => "view",
},
ajaxSaveExtras => {
defaultValue => undef,
},
};
return $class->SUPER::definition($session, $definition);
} }
#------------------------------------------------------------------- #-------------------------------------------------------------------
@ -105,77 +95,78 @@ Render the DataTable
=cut =cut
sub getDataTableHtml { sub getDataTableHtml {
my $self = shift; my $self = shift;
$self->prepare unless $self->{_prepared}; $self->prepare unless $self->{_prepared};
my $data = JSON->new->decode( $self->getOriginalValue ); my $data = JSON->new->decode( $self->getOriginalValue );
my $id = $self->get( 'id' ); my $id = $self->get('id');
# Get the HTML for the table # Get the HTML for the table
my $html = $self->getTableHtml( $data ); my $html = $self->getTableHtml($data);
### Prepare the columns data ### Prepare the columns data
my %parsers = ( my %parsers = (
date => "YAHOO.util.DataSource.parseDate", date => "YAHOO.util.DataSource.parseDate",
number => "YAHOO.util.DataSource.parseNumber", number => "YAHOO.util.DataSource.parseNumber",
); );
my %editors = ( my %editors = (
date => "date", date => "date",
textbox => "textbox", textbox => "textbox",
); );
my @columnsJson = (); my @columnsJson = ();
for my $column ( @{ $data->{ columns } } ) { for my $column ( @{ $data->{columns} } ) {
# Not using a datastructure and JSON.pm because of function references for "parser" # Not using a datastructure and JSON.pm because of function references for "parser"
my $columnDef = '{' my $columnDef
. qq{"key" : "$column->{ key }", } = '{'
. qq{"abbr" : "$column->{ key }", } . qq["key" : "$column->{ key }", ]
. qq{"formatter" : "$column->{ formatter }", } . qq["abbr" : "$column->{ key }", ]
. qq{"resizable" : 1, } . qq["formatter" : "$column->{ formatter }", ]
. qq{"sortable" : 1} . qq["resizable" : 1, ]
; . qq["sortable" : 1];
# Automatically determine the parser to use # Automatically determine the parser to use
if ( $parsers{ $column->{ formatter } } ) { if ( $parsers{ $column->{formatter} } ) {
$columnDef .= qq{, "parser" : $parsers{ $column->{ formatter } }}; $columnDef .= qq{, "parser" : $parsers{ $column->{ formatter } }};
}; }
# If we can edit # If we can edit
if ( $self->get( 'showEdit' ) ) { if ( $self->get('showEdit') ) {
# Set the editor # Set the editor
my $editor = $editors{ $column->{ formatter } } my $editor = $editors{ $column->{formatter} }
|| $editors{ "textbox" } || $editors{"textbox"};
; $columnDef .= qq{, "editor" : "$editor"};
$columnDef .= qq{, "editor" : "$editor"};
} }
$columnDef .= '}'; $columnDef .= '}';
push @columnsJson, $columnDef; push @columnsJson, $columnDef;
} } ## end for my $column ( @{ $data...
my $columnsJson = "[" . join( ",", @columnsJson ) . "]"; my $columnsJson = "[" . join( ",", @columnsJson ) . "]";
### Prepare any options ### Prepare any options
my $options = { my $options = {
"showEdit" => $self->get( 'showEdit' ), "showEdit" => $self->get('showEdit'),
"inputName" => $self->get( 'name' ), "inputName" => $self->get('name'),
"ajaxDataUrl" => $self->get( 'ajaxDataUrl' ), "ajaxDataUrl" => $self->get('ajaxDataUrl'),
"ajaxDataFunc" => $self->get( 'ajaxDataFunc' ), "ajaxDataFunc" => $self->get('ajaxDataFunc'),
"ajaxSaveUrl" => $self->get( 'ajaxSaveUrl' ), "ajaxSaveUrl" => $self->get('ajaxSaveUrl'),
"ajaxSaveFunc" => $self->get( 'ajaxSaveFunc' ), "ajaxSaveFunc" => $self->get('ajaxSaveFunc'),
}; };
my $optionsJson = JSON->new->encode( $options ); my $optionsJson = JSON->new->encode($options);
# Progressively enhance the bejesus out of it # Progressively enhance the bejesus out of it
$html .= <<"ENDJS"; $html .= <<"ENDJS";
<script type="text/javascript"> <script type="text/javascript">
var myDataTable = WebGUI.Form.DataTable( "$id-container", $columnsJson, $optionsJson ); var myDataTable = WebGUI.Form.DataTable( "$id-container", $columnsJson, $optionsJson );
</script> </script>
ENDJS ENDJS
return $html; return $html;
} } ## end sub getDataTableHtml
#------------------------------------------------------------------- #-------------------------------------------------------------------
@ -187,29 +178,23 @@ data structure.
=cut =cut
sub getDefaultValue { sub getDefaultValue {
my $self = shift; my $self = shift;
my $value = $self->SUPER::getDefaultValue( @_ ); my $value = $self->SUPER::getDefaultValue(@_);
if ( !$value ) { if ( !$value ) {
$value = JSON->new->encode( $value = JSON->new->encode( {
{ columns => [ {
columns => [ key => "New Column",
{ formatter => "text",
key => "New Column",
formatter => "text",
},
],
rows => [
{
"New Column" => "Value",
}, },
], ],
rows => [ { "New Column" => "Value", }, ],
} }
); );
} }
return $value; return $value;
} } ## end sub getDefaultValue
#------------------------------------------------------------------- #-------------------------------------------------------------------
@ -220,8 +205,8 @@ Returns the name of the form control.
=cut =cut
sub getName { sub getName {
my ($class, $session) = @_; my ( $class, $session ) = @_;
return WebGUI::International->new($session, "Form_DataTable")->get("topicName"); return WebGUI::International->new( $session, "Form_DataTable" )->get("topicName");
} }
#------------------------------------------------------------------- #-------------------------------------------------------------------
@ -233,11 +218,11 @@ Get the original value, or the default value.
=cut =cut
sub getOriginalValue { sub getOriginalValue {
my $self = shift; my $self = shift;
my $value = $self->SUPER::getOriginalValue( @_ ); my $value = $self->SUPER::getOriginalValue(@_);
if ( !$value ) { if ( !$value ) {
$value = $self->getDefaultValue; $value = $self->getDefaultValue;
} }
return $value; return $value;
@ -275,14 +260,14 @@ structure.
=cut =cut
sub getValue { sub getValue {
my $self = shift; my $self = shift;
my $value = $self->SUPER::getValue(@_); my $value = $self->SUPER::getValue(@_);
# If passing in a data structure, encode to JSON # If passing in a data structure, encode to JSON
if ( ref $value eq "HASH" ) { if ( ref $value eq "HASH" ) {
$value = JSON->new->encode( $value ); $value = JSON->new->encode($value);
} }
return $value; return $value;
} }
@ -295,7 +280,7 @@ Get the value as HTML. Render the datatable in a non-editable form.
=cut =cut
sub getValueAsHtml { sub getValueAsHtml {
my $self = shift; my $self = shift;
return $self->getDataTableHtml; return $self->getDataTableHtml;
} }
@ -309,44 +294,44 @@ columns and rows to render.
=cut =cut
sub getTableHtml { sub getTableHtml {
my $self = shift; my $self = shift;
my $data = shift; my $data = shift;
my $html = '<div id="' . $self->get('id') . '-container" class="yui-skin-sam">'; my $html = '<div id="' . $self->get('id') . '-container" class="yui-skin-sam">';
# Only insert the table if we're not getting AJAX Data # Only insert the table if we're not getting AJAX Data
if ( !$self->get( "ajaxDataUrl" ) ) { if ( !$self->get("ajaxDataUrl") ) {
$html .= '<table id="' . $self->get('id') . '-container-table"><thead><tr>'; $html .= '<table id="' . $self->get('id') . '-container-table"><thead><tr>';
for my $column ( @{ $data->{ columns } } ) { for my $column ( @{ $data->{columns} } ) {
$html .= '<th>' . $column->{ key } . '</th>'; $html .= '<th>' . $column->{key} . '</th>';
} }
# TODO: Add table footer # TODO: Add table footer
$html .= '</tr></thead><tbody>'; $html .= '</tr></thead><tbody>';
for my $row ( @{ $data->{ rows } } ) { for my $row ( @{ $data->{rows} } ) {
$html .= '<tr>'; $html .= '<tr>';
for my $column ( @{ $data->{ columns } } ) { for my $column ( @{ $data->{columns} } ) {
$html .= '<td>' . $row->{ $column->{ key } } . '</td>'; $html .= '<td>' . $row->{ $column->{key} } . '</td>';
} }
$html .= '</tr>'; $html .= '</tr>';
} }
$html .= '</tbody></table>'; $html .= '</tbody></table>';
} } ## end if ( !$self->get("ajaxDataUrl"...
$html .= '</div>'; $html .= '</div>';
# Add hidden form element to hold JSON # Add hidden form element to hold JSON
if ( $self->get( 'showEdit' ) ) { if ( $self->get('showEdit') ) {
$html .= '<input type="hidden" name="' . $self->get( 'name' ) . '" />'; $html .= '<input type="hidden" name="' . $self->get('name') . '" />';
} }
return $html; return $html;
} } ## end sub getTableHtml
#------------------------------------------------------------------- #-------------------------------------------------------------------
@ -358,36 +343,45 @@ Otherwise, is called automatically.
=cut =cut
sub prepare { sub prepare {
my $self = shift; my $self = shift;
# Source in the scripts # Source in the scripts
my $style = $self->session->style; my $style = $self->session->style;
my $url = $self->session->url; my $url = $self->session->url;
$style->setLink( $url->extras( 'yui/build/datatable/assets/skins/sam/datatable.css' ), { rel => "stylesheet", type => "text/css" } ); $style->setLink( $url->extras('yui/build/datatable/assets/skins/sam/datatable.css'),
$style->setScript( $url->extras( 'yui/build/yahoo-dom-event/yahoo-dom-event.js' ) ); { rel => "stylesheet", type => "text/css" } );
$style->setScript( $url->extras( 'yui/build/element/element-beta.js' ) ); $style->setScript( $url->extras('yui/build/yahoo-dom-event/yahoo-dom-event.js') );
$style->setScript( $url->extras( 'yui/build/dragdrop/dragdrop-min.js' ) ); $style->setScript( $url->extras('yui/build/element/element-beta.js') );
$style->setScript( $url->extras( 'yui/build/connection/connection-min.js' ) ); $style->setScript( $url->extras('yui/build/dragdrop/dragdrop-min.js') );
$style->setScript( $url->extras( 'yui/build/json/json-min.js' ) ); $style->setScript( $url->extras('yui/build/connection/connection-min.js') );
$style->setScript( $url->extras('yui/build/json/json-min.js') );
# Prepare the editors # Prepare the editors
if ( $self->get( 'showEdit' ) ) { if ( $self->get('showEdit') ) {
$style->setLink( $url->extras( 'yui/build/button/assets/skins/sam/button.css', { rel => "stylesheet", type => "text/css" } ) ); $style->setLink(
$style->setLink( $url->extras( 'yui/build/calendar/assets/skins/sam/calendar.css', { rel => "stylesheet", type => "text/css" } ) ); $url->extras( 'yui/build/button/assets/skins/sam/button.css', { rel => "stylesheet", type => "text/css" } )
$style->setLink( $url->extras( 'yui/build/container/assets/skins/sam/container.css' ), { rel => "stylesheet", type => "text/css" } ); );
$style->setScript( $url->extras( 'yui/build/container/container-min.js' ) ); $style->setLink(
$style->setScript( $url->extras( 'yui/build/button/button-min.js' ) ); $url->extras(
$style->setScript( $url->extras( 'yui/build/calendar/calendar-min.js' ) ); 'yui/build/calendar/assets/skins/sam/calendar.css',
} { rel => "stylesheet", type => "text/css" }
)
);
$style->setLink( $url->extras('yui/build/container/assets/skins/sam/container.css'),
{ rel => "stylesheet", type => "text/css" } );
$style->setScript( $url->extras('yui/build/container/container-min.js') );
$style->setScript( $url->extras('yui/build/button/button-min.js') );
$style->setScript( $url->extras('yui/build/calendar/calendar-min.js') );
} ## end if ( $self->get('showEdit'...
$style->setScript( $url->extras( 'yui-webgui/build/i18n/i18n.js' ) ); $style->setScript( $url->extras('yui-webgui/build/i18n/i18n.js') );
$style->setScript( $url->extras( 'yui/build/datasource/datasource.js' ) ); $style->setScript( $url->extras('yui/build/datasource/datasource.js') );
$style->setScript( $url->extras( 'yui/build/datatable/datatable.js' ) ); $style->setScript( $url->extras('yui/build/datatable/datatable.js') );
$style->setScript( $url->extras( 'yui-webgui/build/form/datatable.js' ) ); $style->setScript( $url->extras('yui-webgui/build/form/datatable.js') );
$self->{_prepared} = 1; $self->{_prepared} = 1;
return; return;
} } ## end sub prepare
#------------------------------------------------------------------- #-------------------------------------------------------------------
@ -398,7 +392,7 @@ Render the DataTable in an editable format.
=cut =cut
sub toHtml { sub toHtml {
my $self = shift; my $self = shift;
$self->set( 'showEdit', 1 ); $self->set( 'showEdit', 1 );
return $self->getDataTableHtml; return $self->getDataTableHtml;
} }