Skip Menu |
 

This queue is for tickets about the Class-DBI-AsForm CPAN distribution.

Report information
The Basics
Id: 27434
Status: new
Priority: 0/
Queue: Class-DBI-AsForm

People
Owner: Nobody in particular
Requestors: despair [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)



Subject: Patch for Class::DBI::AsForm for displaying enum values
Download (untitled) / with headers
text/plain 387b
Hello! Here is a patch for Class/DBI/AsForm to enable support for dropdown lists ("select" controls) for ENUM fields. Works well for MySQL. For other DBMS - not checked. The only problem for MySQL is that Class::DBI::mysql::column_type returns 'char' for enum fields, at least in my environment. So I'm forced to check for enum_vals for char fields also. But anyway it works correctly.
Subject: Class-DBI-AsForm.pm.diff
--- AsForm.pm.orig 2007-06-04 13:43:16.000000000 +0500 +++ AsForm.pm 2007-06-04 14:18:45.000000000 +0500 @@ -96,6 +96,15 @@ # Right, have some of this! eval "package $class; Class::DBI::Plugin::Type->import()"; my $type = $class->column_type($field); + + my @enum_allowed; + if ($type && $type =~ /^(CHAR|ENUM)$/i) { + @enum_allowed = eval { $class->enum_vals($field) }; + } + + return $self->_to_select_enum($field, \@enum_allowed) + if scalar @enum_allowed; + return $self->_to_textarea($field) if $type and $type =~ /^(TEXT|BLOB)$/i; @@ -137,6 +146,22 @@ $a; } +sub _to_select_enum { + my ($self, $col, $enum_allowed) = @_; + + my $a = HTML::Element->new("select", name => $col); + for my $enum_value (@$enum_allowed) { + my $sel = HTML::Element->new("option", value => $enum_value); + my $curval = eval { $self->$col }; + $sel->attr("selected" => "selected") + if $enum_value eq $curval; + $sel->push_content($enum_value); + $a->push_content($sel); + } + $OLD_STYLE && return $a->as_HTML; + $a; +} + 1; =head1 CHANGES


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.