|
TBD/DBI.pm |
sub hash2tuple { my ($self, %hash) = @_; my @tuple = (); foreach my $fieldname (@{$self->{'fields'}}) { push(@tuple, $hash{$fieldname}); } return @tuple; } sub add { my ($self, $key, %fields) = @_; if (ref($key)) { %fields = (%fields, %{$key}); } else { $fields{$self->{'keyfields'}->[0]} = $key; } $self->{'insert'}->execute($self->hash2tuple(%fields)); } |
Die INSERT-Anweisung ist ebenfalls in TBD::DBI::initialize2
vorbereitet worden, so daß nur noch die Liste mit den
Platzhaltern vorzubereiten ist.
| |
Zunächst wird dazu der Schlüssel zu %fields
hinzugefügt und dann das assoziative Array mit allen
Feldinhalten in eine geordnete Liste konvertiert.
|
Copyright © 1996, 1998, 1999, 2000 Andreas Borchert, in HTML konvertiert am 07.02.2000 |