|
sub keys { my $self = shift; my $st = $self->{select_keys}; $st->execute(); return $self->return_keys($st); } sub return_keys { my ($self, $st) = @_; my @keys = (); my $record; if (@{$self->{keyfields}} == 1) { while (defined($record = $st->fetch())) { push(@keys, $record->[0]); } } else { while (defined($record = $st->fetchrow_hashref())) { push(@keys, {%{$record}}); } } return @keys; } |
Bei initialize2 wurde bereits die für keys immer
konstante SQL-Anweisung vorbereitet und in der internen
Komponente select_keys abgelegt.
|
Copyright © 1996 - 2003 Andreas Borchert, in HTML konvertiert am 01.10.2003 |