--- print/izvjestaj.pl 2000/05/10 08:55:50 1.5
+++ print/izvjestaj.pl 2000/06/27 11:15:32 1.8
@@ -21,8 +21,8 @@
open(HTML,"> $html_file") || die "html: $!";
open(MAIL,"|/usr/lib/sendmail biljana.gombar\@pliva.hr,izvjestaji\@support.pliva.hr") || die "sendmail: $!";
} else {
-open(HTML,"> /tmp/debug.html") || warn "html: $!";
-open(MAIL,"> /tmp/debug.mail") || warn "sendmail: $!";
+open(HTML,"> /tmp/debug.html") || die "html: $!";
+open(MAIL,"> /tmp/debug.mail") || die "sendmail: $!";
}
print HTML '
@@ -72,7 +72,7 @@
}
}
-print MAIL "Otvorenih računa: ",$#osoba_id_za_print+1,"
+print MAIL "
Datum i vrijeme generiranja izvještaja: $currdate
Izvještaj za štampanje se nalazi na
@@ -80,18 +80,20 @@
sa potpunim podacima o umrežavanju, lokaciji računala i osobe
";
-print HTML "Otvorenih računa: ",$#osoba_id_za_print+1,"
+print HTML "
Datum i vrijeme generiranja izvještaja: $currdate
"; $sth = $dbh->prepare(" select osobe.id,ime,prezime,tel,lokacije.naziv, org_jed.naziv,org_pod_jed.pod_naziv, - lok_racunala,objekt,kat,soba,z_rac,umrezavanje + lok_racunala,objekt,kat,soba,z_rac,umrezavanje, + kontakt_osobe.e_mail,podesavanje from osobe where osobe.id in (".join(",",@osoba_id_za_print).") and lokacija_id=lokacije.id and org_jed_id=org_jed.id and org_pod_jed_id=org_pod_jed.pod_id and podesavanje=true + and kontakt_osobe.id=kontakt_osoba_id order by lokacije.naziv,org_jed.naziv ") || die $dbh->errstr(); $sth->execute() || die $sth->errstr(); @@ -108,22 +110,29 @@ my $bgcol=''; my $mreza=''; my @za_ic; +my %mail4ko; while (my @arr = $sth->fetchrow_array() ) { push @za_ic,$arr[0]; + $mail4ko{$arr[13]}.="\t$arr[1] $arr[2]"; + $mail4ko{$arr[13]}.=" (bez podešavanja)" if ($arr[14] == 0); printf MAIL ("%3s %4s %-20s %4s %-30s %-20s\n",$rbr,$arr[0],"$arr[1] $arr[2]",$arr[3],$arr[4],"$arr[5] $arr[6]"); if ($lokacija ne $arr[4]) { $lokacija=$arr[4]; print HTML "