$args{description}
) if defined $args{description}; $html_form .= qq($args{description}
) if defined $args{description}; $html_table .= '| $head->{value} | ); } else { $html_table .= qq($head->{value} | ); } } $html_table .= '
|---|---|
| $column->{value} | ); } else { $html_table .= qq($column->{value} | ); } } $html_table .= '
| $table_config->{empty_message} |
$args{description}
) if defined $args{description}; $menu = '$args{description}
) if defined $args{description}; $chart = qq(
);
}
sub _view_address
{
my ($self, $column) = @_;
my $value = $self->$column;
return unless $value;
my $a = $value;
$a =~ s/([^A-Za-z0-9])/sprintf("%%%02X", ord($1))/seg;
return qq($value); # output=js for inline map
}
sub _view_timestamp
{
my ($self, $column) = @_;
return unless $self->$column && ref $self->$column eq 'DateTime';
return $self->$column->strftime('%d/%m/%Y %H:%M:%S');
}
sub _view_datetime
{
my ($self, $column) = @_;
return unless $self->$column && ref $self->$column eq 'DateTime';
return $self->$column->strftime('%d/%m/%Y %H:%M');
}
sub _search_boolean
{
my ($self, $column, $value) = @_;
my $mapping;
if ($self->meta->isa('Rose::DB::Object::Metadata::Auto::Pg'))
{
$mapping = {'Yes' => 'true', 'No' => 'false', 'yes' => 'true', 'no' => 'false'};
}
else
{
$mapping = {'Yes' => 1, 'No' => 0, 'yes' => 1, 'no' => 0};
}
return $mapping->{$value};
}
sub _search_date
{
my ($self, $column, $value) = @_;
$value =~ s/\//-/g;
my ($d, $m, $y) = ($value =~ /^(0?[1-9]|[1-2][0-9]|3[0-1])\-(0?[1-9]|1[0-2])\-([0-9]{4})/);
if ($d && $m && $y)
{
$value =~ s/$d\-$m\-$y/$y\-$m\-$d/;
}
else
{
($d, $m) = ($value =~ /^(0?[1-9]|[1-2][0-9]|3[0-1])\-(0?[1-9]|1[0-2])/);
if ($d && $m)
{
$value =~ s/$d\-$m/$m\-$d/;
}
}
return $value;
}
sub _search_percentage
{
my ($self, $column, $value) = @_;
return $value/100;
}
#misc util
sub _unique
{
my ($config, $class, $column, $value, $form) = @_;
my $existing;
if (exists $config->{columns}->{$column} && exists $config->{columns}->{$column}->{format} && exists $config->{columns}->{$column}->{format}->{for_filter})
{
$existing = $class->new($column => $config->{columns}->{$column}->{format}->{for_filter}->($class, $column, $value))->load(speculative => 1);
}
else
{
$existing = $class->new($column => $value)->load(speculative => 1);
}
return 1 unless $existing;
(my $prefix = $form->name) =~ s/_form$//;
return unless $form->field('action') eq 'edit' || $form->field($prefix.'_action') eq 'edit';
my $primary_key = $class->meta->primary_key_column_names->[0];
return 1 if $existing->$primary_key == $form->field('object') || $existing->$primary_key == $form->field($prefix.'_object');
return;
}
sub _identify
{
my ($class, $prefix, $ui_type) = @_;
unless ($prefix)
{
($prefix = lc $class) =~ s/::/_/g;
$prefix .= '_'. $ui_type;
}
return $prefix;
}
sub _label
{
my $string = shift;
$string =~ s/_/ /g;
$string =~ s/\b(\w)/\u$1/g;
return $string;
}
sub _create_hidden_field
{
my $queries = shift;
my $hidden_field;
foreach my $query_key (keys %{$queries})
{
if (ref $queries->{$query_key} eq 'ARRAY')
{
foreach my $value (@{$queries->{$query_key}})
{
$hidden_field .= '';
}
}
else
{
$hidden_field .= '';
}
}
return $hidden_field;
}
sub _create_query_string
{
my $queries = shift;
my $query_string;
foreach my $query_key (keys %{$queries})
{
if (ref $queries->{$query_key} eq 'ARRAY')
{
foreach my $value (@{$queries->{$query_key}})
{
$query_string .= $query_key.'='.CGI::escape($value).'&';
}
}
else
{
$query_string .= $query_key.'='.CGI::escape($queries->{$query_key}).'&';
}
}
return $query_string;
}
sub _touch_up
{
my ($rendering, $cancel, $form_id) = @_;
$rendering =~ s/onclick="this\.form\._submit\.value = this\.value;" type="submit" value="$cancel"/onclick="this.form.$form_id\_submit_cancel.value = 1;" type="submit" value="$cancel"/;
return $rendering;
}
sub _alias_table
{
my ($with_require_objects, $class, $counter, $table_alias, $table_to_class) = @_;
foreach my $with_require_object (@{$with_require_objects})
{
if (exists $class->meta->{relationships}->{$with_require_object})
{
if ($class->meta->{relationships}->{$with_require_object}->type eq 'many to many')
{
$table_alias->{$class->meta->{relationships}->{$with_require_object}->{map_class}} = 't' . ++$$counter;
$table_to_class->{$class->meta->{relationships}->{$with_require_object}->{map_class}->meta->table} = $class->meta->{relationships}->{$with_require_object}->{map_class};
$table_alias->{$class->meta->{relationships}->{$with_require_object}->{foreign_class}} = 't' . ++$$counter;
$table_to_class->{$class->meta->{relationships}->{$with_require_object}->{foreign_class}->meta->table} = $class->meta->{relationships}->{$with_require_object}->{foreign_class};
}
else
{
$table_alias->{$class->meta->{relationships}->{$with_require_object}->{class}} = 't' . ++$$counter;
$table_to_class->{$class->meta->{relationships}->{$with_require_object}->{class}->meta->table} = $class->meta->{relationships}->{$with_require_object}->{class};
}
}
}
return ($table_alias, $table_to_class);
}
1;
__END__
=head1 NAME
Rose::DBx::Object::Renderer - Web UI Rendering for Rose::DB::Object
=head1 SYNOPSIS
use Rose::DBx::Object::Renderer;
use CGI;
my $query = new CGI;
print $query->header();
# Load all tables in the local MySQL database named 'company'
my $renderer = Rose::DBx::Object::Renderer->new(
config => {
db => {name => 'company', username => 'root', password => 'password'}
},
load => 1
);
# Render a form to add new employee
Company::Employee->render_as_form();
# Render an object as a form
my $e = Company::Employee->new(id => 1);
$e->load;
$e->render_as_form();
# Render a link to a google map for the 'address' column
print $e->address_for_view();
# Render a table
Company::Employee::Manager->render_as_table();
# Render a table for all the employees who love 'Coding' with create, copy, edit, and delete access
Company::Employee::Manager->render_as_table(
get => {query => [hobby => 'Coding']}
order => ['first_name', 'email', 'address', 'phone'],
create => 1,
copy => 1,
edit => 1,
delete => 1,
searchable => ['first_name', 'address']
);
# Render a menu
my $menu = Company::Employee::Manager->render_as_menu(
order => ['Company::Employee', 'Company::Position'],
edit => 1,
delete => 1,
);
# Render a pie chart via Google Chart API
Company::Employee::Manager->render_as_chart(
type => 'pie',
values => ['Coding', 'Cooking'],
column => 'hobby',
);
# Render a bar chart
Company::Employee::Manager->render_as_chart(
type => 'bar',
title => 'The Employee Bar Chart',
description => 'A useful bar chart.',
columns => ['salary', 'tax'],
objects => [1, 2, 3],
options => {chco => 'ff6600,ffcc00'} # the color for each bar
);
=head1 DESCRIPTION
Rose::DBx::Object::Renderer generates web UIs for L