Labels II

dbviewer.pl

sub select_record { my ($index) = @_; my @record = @{$db->[$index]}; foreach my $col (0..$maxcols-1) { if (defined($record[$col])) { $fields[$col] = $record[$col]; } else { $fields[$col] = ""; } } }

select_record erhält als Parameter die Nummer des selektierten Datensatzes (ab 0 zählend) und kopiert die gewünschten Felder in die Liste @fields. Dies hat zur Folge, daß sie in den entsprechenden Labels angezeigt werden.