I wanted to run these by people before I tried anything.

1. A '$/!' argument that can be passed to any command and is appended
after the SQL command. For instance:
$$set->Insert({ '$option' => 'DELAYED' ... });

2. A new command called Replace. It does a Delete followed by an
Insert in those databases that don't support Replace.

3. I'd like an enhancement to make IN work with placeholders, but
that should probably happen at the DBI level. Ideally you should be
able to say
'$where' => 'foo IN ?', # or IN (?) ?
'$values' => [\@list],
and have it do the right thing (which would mean turning @list into
either (n,n,n) or ('a','a','a')). Recordset does this in the foo =>
[@bar] case, but there's no good way to do it when you have to use a
$where clause.

4. I know at one time someone did a patch to let DBIx::Recordset work
with bigints. Is there an official solution there? At some time or
other I added the following to my code, but I have no idea whether it
does anything:
delete $set->{'*NumericTypes'}->{-5}; # treat bigints as strings

5. I often have forms which need to know all the possible values of
an enum or a set. Since I'm using mysql I wrote the following, but
I'd be interested in a builtin, non-db-specific, solution. This
function returns a has with the following entries:
a mapping from the enum/set number position to it's name
1 => ITEM1, 2 => ITEM2
a mapping from the name to the number (both upper and lower case)
ITEM1 => 1, item => 1, ITEM2 => 2, item2 => 2
-default => the default value for the enum/set
-names => an array of the names
That let's me do something like this in my code:
[- %enums = EnumValues(DBInit(), 'domain', 'status') -]
<th align=left>Status:</th>
<select name="status" class="formbutton">
<option value="[+ $enums{-names}->[$row] +]">[+
$enums{-names}->[$row] +]</option>

sub EnumValues {
my ($db, $table, $name) = (@_);
my (%enum, $sth, $hash, $type, @types);

if ($db->can('DBHdl')) { # DBIx::Recordset, DBIx::Database
$db = $db->DBHdl();
} elsif (!$db->can('prepare')) {
die("DBIx::Enum: $db is not a supported database handle.");
$sth = $db->prepare("show columns from $table like '$name'");
$hash = $sth->fetchrow_hashref();
$type = $hash->{Type};
die("DBIx::Enum: Type of $name in $table is not enum: $type") if
($type !~ /^(enum|set)/);
$type =~ s#.*\('(.*)'\).*#$1#;
@types = split(/','/, $type);
for (my $i = 1; $i <= @types; ++$i) {
$enum{$types[$i-1]} = $i;
$enum{uc($types[$i-1])} = $i;
$enum{lc($types[$i-1])} = $i;
$enum{-default} = $hash->{Default};
$enum{-names} = \@types;

return %enum if (wantarray);
return \%enum;

Kee Hinckley
http://www.messagefire.com/ Next Generation Spam Defense
http://commons.somewhere.com/buzz/ Writings on Technology and Society

I'm not sure which upsets me more: that people are so unwilling to accept
responsibility for their own actions, or that they are so eager to regulate
everyone else's.

To unsubscribe, e-mail: embperl-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-help@perl.apache.org

Search Discussions

Discussion Posts

Follow ups

Related Discussions

Discussion Navigation
viewthread | post
posts ‹ prev | 1 of 3 | next ›
Discussion Overview
groupembperl @
categoriesmodperl, perl
postedNov 13, '03 at 7:48p
activeNov 15, '03 at 10:24a



site design / logo © 2022 Grokbase