my $f3 = $fo->Frame(-borderwidth => 3,
                    -relief      => 'groove',
                   )
             ->pack(-side        => 'left',
                    -expand      => 1,
                    -fill        => 'both',
                   );



#Überschrift Schueler in Frame 2          
$f3->Label(-text=>'Fehlzeiten')->pack();

      
 sub Fehlzeiten_holen()
{
    
    # DATENBANK ABFRAGE     
    #$sql  = "SELECT fehlzeiten_id FROM fehlzeiten WHERE namen_id==(?)";
    $sql = "SELECT fehlzeiten.tag,fehlzeiten.stunden from schueler LEFT JOIN fehlzeiten USING (namen_id) WHERE namen_id ==(?)";
    $sth = $dbh->prepare($sql) or die print "FEHLER";

    $rv = $sth->execute($Schueler) or die print "FEHLER";

    if ($rv < 0)
    {
        print "Keine Ergebniswerte!\n";
        exit (1);
    }
    
    #Ruft Funktion frame_clear auf und Cleart bei Klassenwechsel
    &frame_clear_f3();
    
    for(my $j=1;my @row = $sth->fetchrow_array;$j++)
    {
          
            $f3->Label( -text => "Wann? $row[0] " )->pack;
            $f3->Label( -text => "Stunden? $row[1]\n" )->pack;
            #$f3->Label( -text => "----------------------" )->pack;
            #print "Wieviele Stunden gesamt: $row[2]\n";
            $f3->Scrolled('Frame', -scrollbars => "osoe",)->pack;
         
            
    } 
    
        $f3->Label( -text => "----------------------" )->pack;
        $f3->Label( -text => "Stunden insgesamt:" )->pack;
        $f3->Label( -text => "Tage:? " )->pack;
        #$f3->packPropagate(0);     
}