sub kapitel {

   # Daten aus der DB Lesen
        
    while (my @row=$sth->fetchrow_array()){
        my $key = $row[0];
                        
        $inRec{$key}->{key} = $key;
        $inRec{$key}->{name} = $row[1];
        $inRec{$key}->{sort} = $row[2];
        $inRec{$key}->{status} = $row[3];
    }
        
    return \%inRec;

} # END kapitel