sub StrukturAuslesen {
	my $self = shift;

	my ( @Struktur, $struktur_id, $struktur_text, $ebene );
	$self->SqlStatements::HoleStrukturSQL();
	$self->{HoleStrukturSQL}->execute();
	$self->{HoleStrukturSQL}->bind_columns(undef, \( $struktur_id, $struktur_text, $ebene ));

	while ( $self->{HoleStrukturSQL}->fetch() ) {
		my $padding = ($ebene * 5);
		my %StrukturHash = (
			ID      => $struktur_id,
			PADDING => $padding,
			TITEL   => $struktur_text,
			);
		push (@Struktur, \%StrukturHash);
	}

	return \@Struktur;
}