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} = "{ID}&art=bearbeitenformoberkap&benutzer=$in{benutzer}>";
$row_data1{Bearbeiten} = " ";
#$row_data1{Loeschen} = "{ID}&art=loeschenoberkap&benutzer=$in{benutzer}>";
$row_data1{Inhaltversion} = " ";
}
if($row->{tabart} eq "zwkap") {
$row_data1{Inhaltnummer} .= ".$row->{nummer2}";
#$row_data1{Bearbeiten} = "{ID}&art=bearbeitenformzwkap&benutzer=$in{benutzer}>";
$row_data1{Bearbeiten} = " ";
#$row_data1{Loeschen} = "{ID}&art=loeschenzwkap&benutzer=$in{benutzer}>";
$row_data1{Inhaltversion} = " ";
}
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} = "{ID}&art=bearbeitenformunterkap&benutzer=$in{benutzer}>";
#$row_data1{Loeschen} = "{ID}&art=loeschenunterkap&benutzer=$in{benutzer}>";
$row_data1{Inhaltversion} = "$row->{version}";
}
$row_data1{Inhalttitel} = "{tabart}&benutzer=$in{'benutzer'}&ID=$row->{ID}\">$row->{titel}";
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} = "{tabart}&benutzer=$in{'benutzer'}&ID=$row->{ID}\">$row->{titel}";
$row_data2{vaversion} = "$row->{version}";
$row_data2{Bearbeiten} = "{ID}&art=bearbeitenformverfahren&benutzer=$in{benutzer}>";
$row_data2{Loeschen} = "{ID}&art=loeschenverfahren&benutzer=$in{benutzer}>";
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} = "{tabart}&benutzer=$in{'benutzer'}&ID=$row->{ID}\">$row->{titel}";
$row_data3{Inhaltversion} = "$row->{version}";
$row_data3{Bearbeiten} = "{ID}&art=bearbeitenformarbeit&benutzer=$in{benutzer}>";
$row_data3{Loeschen} = "{ID}&art=loeschenarbeit&benutzer=$in{benutzer}>";
push(@loop_data3, \%row_data3);
}
$sth->finish();
$template->param( arbeitsanweisungen => \@loop_data3 );
print $template->output;
}