sub Daten_Ausgabe {
    &allgemeineseinlesen;
    &Kalender3( $allgemein->{freigabemandokusdatum} );

    # Layout Einlesen
    my $template =
      HTML::Template->new(
        filename => $LayoutDateienPfad . 'mdoku/mhb-liste.htm' );
    $template->param( benutzer      => $in{benutzer} );
    $template->param( freigabetag   => $Zeit[2] );
    $template->param( freigabemonat => $Zeit[1] );
    $template->param( freigabejahr  => $Zeit[4] );
    $template->param( ort           => $allgemein->{ort} );
    $template->param( nkuerzel      => $allgemein->{namemandokusfreigabe} );

    # Kapitel:
    my $sql =
qq{ SELECT * FROM mdoku_kapitel where geloescht = 'n' and aktiv like 'ja' order by nummer, nummer2, nummer3 };

    my $sth = $dbh->prepare($sql);
    $sth->execute();

    while ( $row = $sth->fetchrow_hashref ) {

        my %row_data1;

        $row_data1{Inhaltnummer} = "$row->{nummer}";

        if ( $row->{tabart} eq "oberkap" ) {
            $row_data1{zeilebg} = "#F4F4F4";

#$row_data1{Bearbeiten} = "<a href=$Tabellenname.pl?ID=$row->{ID}&art=bearbeitenformoberkap&benutzer=$in{benutzer}><image src=\"$BearbeitenBild\" width=\"15\" height=\"15\" border=\"0\"></a>";
            $row_data1{Bearbeiten} = "&nbsp;";

#$row_data1{Loeschen} = "<a href=$Tabellenname.pl?ID=$row->{ID}&art=loeschenoberkap&benutzer=$in{benutzer}><image src=\"$LoeschenBild\" width=\"15\" height=\"15\" border=\"0\"></a>";
            $row_data1{Inhaltversion} = "&nbsp;";
        }
        if ( $row->{tabart} eq "zwkap" ) {
            $row_data1{Inhaltnummer} .= ".$row->{nummer2}";

#$row_data1{Bearbeiten} = "<a href=$Tabellenname.pl?ID=$row->{ID}&art=bearbeitenformzwkap&benutzer=$in{benutzer}><image src=\"$BearbeitenBild\" width=\"15\" height=\"15\" border=\"0\"></a>";
            $row_data1{Bearbeiten} = "&nbsp;";

#$row_data1{Loeschen} = "<a href=$Tabellenname.pl?ID=$row->{ID}&art=loeschenzwkap&benutzer=$in{benutzer}><image src=\"$LoeschenBild\" width=\"15\" height=\"15\" border=\"0\"></a>";
            $row_data1{Inhaltversion} = "&nbsp;";
        }
        if ( $row->{tabart} eq "unterkap" ) {
            if ( $row->{nummer2} ne "" ) {
                $row_data1{Inhaltnummer} .= ".$row->{nummer2}";
            }
            else { $row_data1{zeilebg} = "#F4F4F4"; }
            if ( $row->{nummer3} ne "" ) {
                $row_data1{Inhaltnummer} .= ".$row->{nummer3}";
            }
            $row_data1{Bearbeiten} =
"<a href=$Tabellenname.pl?ID=$row->{ID}&art=bearbeitenformunterkap&benutzer=$in{benutzer}><image src=\"$BearbeitenBild\" width=\"15\" height=\"15\" border=\"0\"></a>";

#$row_data1{Loeschen} = "<a href=$Tabellenname.pl?ID=$row->{ID}&art=loeschenunterkap&benutzer=$in{benutzer}><image src=\"$LoeschenBild\" width=\"15\" height=\"15\" border=\"0\"></a>";
            $row_data1{Inhaltversion} = "$row->{version}";
        }

        $row_data1{Inhalttitel} =
"<a href=\"mdoku_admin.pl?art=ausgabe$row->{tabart}&benutzer=$in{'benutzer'}&ID=$row->{ID}\">$row->{titel}</a>";

        push ( @loop_data1, \%row_data1 );
    }
    $sth->finish();

    $template->param( kapitel => \@loop_data1 );

    # Verfahrensanweisungen:
    $sql =
qq{ SELECT * FROM mdoku_verfahren where geloescht = 'n' order by nummer, nummer2, nummer3, nummer4};
    $sth = $dbh->prepare($sql);
    $sth->execute();

    while ( $row = $sth->fetchrow_hashref ) {

        my %row_data2;

        $row_data2{vanummer} = "$row->{nummer}";
        if ( $row->{nummer2} ne "" ) {
            $row_data2{vanummer} .= ".$row->{nummer2}";
        }
        if ( $row->{nummer3} ne "" ) {
            $row_data2{vanummer} .= ".$row->{nummer3}";
        }
        if ( $row->{nummer4} ne "" ) {
            $row_data2{vanummer} .= " - $row->{nummer4}";
        }

        $row_data2{vatitel} =
"<a href=\"mdoku_admin.pl?art=ausgabe$row->{tabart}&benutzer=$in{'benutzer'}&ID=$row->{ID}\">$row->{titel}</a>";
        $row_data2{vaversion} = "$row->{version}";

        $row_data2{Bearbeiten} =
"<a href=$Tabellenname.pl?ID=$row->{ID}&art=bearbeitenformverfahren&benutzer=$in{benutzer}><image src=\"$BearbeitenBild\" width=\"15\" height=\"15\" border=\"0\"></a>";
        $row_data2{Loeschen} =
"<a href=$Tabellenname.pl?ID=$row->{ID}&art=loeschenverfahren&benutzer=$in{benutzer}><image src=\"$LoeschenBild\" width=\"15\" height=\"15\" border=\"0\"></a>";

        push ( @loop_data2, \%row_data2 );
    }
    $sth->finish();

    $template->param( verfahren => \@loop_data2 );

    # Arbeitsanweisungen:
    $sql =
qq{ SELECT * FROM mdoku_arbeit where geloescht = 'n' order by nummer, nummer2, nummer3, nummer4};
    $sth = $dbh->prepare($sql);
    $sth->execute();

    while ( $row = $sth->fetchrow_hashref ) {

        my %row_data3;

        $row_data3{Inhaltnummer} = "$row->{nummer}";
        if ( $row->{nummer2} ne "" ) {
            $row_data3{Inhaltnummer} .= ".$row->{nummer2}";
        }
        if ( $row->{nummer3} ne "" ) {
            $row_data3{Inhaltnummer} .= ".$row->{nummer3}";
        }
        if ( $row->{nummer4} ne "" ) {
            $row_data3{Inhaltnummer} .= " - $row->{nummer4}";
        }

        $row_data3{Inhalttitel} =
"<a href=\"mdoku_admin.pl?art=ausgabe$row->{tabart}&benutzer=$in{'benutzer'}&ID=$row->{ID}\">$row->{titel}</a>";
        $row_data3{Inhaltversion} = "$row->{version}";

        $row_data3{Bearbeiten} =
"<a href=$Tabellenname.pl?ID=$row->{ID}&art=bearbeitenformarbeit&benutzer=$in{benutzer}><image src=\"$BearbeitenBild\" width=\"15\" height=\"15\" border=\"0\"></a>";
        $row_data3{Loeschen} =
"<a href=$Tabellenname.pl?ID=$row->{ID}&art=loeschenarbeit&benutzer=$in{benutzer}><image src=\"$LoeschenBild\" width=\"15\" height=\"15\" border=\"0\"></a>";

        push ( @loop_data3, \%row_data3 );
    }
    $sth->finish();

    $template->param( arbeitsanweisungen => \@loop_data3 );

    print $template->output;
}