--- print/print.pl 2000/04/12 08:10:24 1.1 +++ print/print.pl 2000/04/26 12:21:19 1.2 @@ -78,7 +78,7 @@ select osobe.id,ime,prezime,tel,lokacije.naziv, org_jed.naziv,org_pod_jed.pod_naziv, lok_racunala,login,passwd,alias,sifra, - objekt,kat,soba,z_rac,kontakt_osoba_id + objekt,kat,soba,z_rac,kontakt_osoba_id,umrezavanje from osobe,racuni,e_mail where osobe.id in (".join(",",@osoba_id_za_print).") and lokacija_id=lokacije.id and org_jed_id=org_jed.id @@ -133,6 +133,13 @@ s/--zrac--/$arr[15]/g; my $ean=sprintf("2%06d%05d",$arr[11],$arr[0]); s/--ean--/$ean/g; + + if ($arr[17] == 1) { + s/--umrezavanje--/\\bf{Potrebno je umrežavanje}/gi; + } else { + s/--umrezavanje--/{\\small Računalo je umreženo}/gi; + } + print OUT $_; if (/^%--insert_status--/) { @@ -172,4 +179,9 @@ my $path=$0; $path=~s/\/[^\/]+//g; -system "$path/codean.pl $out_no_ext.tex $out_no_ext.tex2 && mv $out_no_ext.tex2 $out_no_ext.tex && latex $out_no_ext.tex && dvips $out_no_ext.dvi && lpr $out_no_ext.ps"; +if (!$debug) { + system "$path/codean.pl $out_no_ext.tex $out_no_ext.tex2 && mv $out_no_ext.tex2 $out_no_ext.tex && latex $out_no_ext.tex && dvips $out_no_ext.dvi && lpr $out_no_ext.ps"; +} else { + system "$path/codean.pl $out_no_ext.tex $out_no_ext.tex2 && mv $out_no_ext.tex2 $out_no_ext.tex && latex $out_no_ext.tex && dvips $out_no_ext.dvi"; + +}