/[informatika.old]/print/print.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /print/print.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by dpavlin, Wed Apr 12 08:10:24 2000 UTC revision 1.2 by dpavlin, Wed Apr 26 12:21:19 2000 UTC
# Line 78  $sth = $dbh->prepare(" Line 78  $sth = $dbh->prepare("
78          select osobe.id,ime,prezime,tel,lokacije.naziv,          select osobe.id,ime,prezime,tel,lokacije.naziv,
79                  org_jed.naziv,org_pod_jed.pod_naziv,                  org_jed.naziv,org_pod_jed.pod_naziv,
80                  lok_racunala,login,passwd,alias,sifra,                  lok_racunala,login,passwd,alias,sifra,
81                  objekt,kat,soba,z_rac,kontakt_osoba_id                  objekt,kat,soba,z_rac,kontakt_osoba_id,umrezavanje
82          from osobe,racuni,e_mail          from osobe,racuni,e_mail
83          where osobe.id in (".join(",",@osoba_id_za_print).")          where osobe.id in (".join(",",@osoba_id_za_print).")
84                  and lokacija_id=lokacije.id and org_jed_id=org_jed.id                  and lokacija_id=lokacije.id and org_jed_id=org_jed.id
# Line 133  while (my @arr = $sth->fetchrow_array() Line 133  while (my @arr = $sth->fetchrow_array()
133                  s/--zrac--/$arr[15]/g;                  s/--zrac--/$arr[15]/g;
134                  my $ean=sprintf("2%06d%05d",$arr[11],$arr[0]);                  my $ean=sprintf("2%06d%05d",$arr[11],$arr[0]);
135                  s/--ean--/$ean/g;                  s/--ean--/$ean/g;
136                    
137                    if ($arr[17] == 1) {    
138                            s/--umrezavanje--/\\bf{Potrebno je umrežavanje}/gi;
139                    } else {
140                            s/--umrezavanje--/{\\small Računalo je umreženo}/gi;
141                    }
142            
143                  print OUT $_;                  print OUT $_;
144    
145                  if (/^%--insert_status--/) {                  if (/^%--insert_status--/) {
# Line 172  $out_no_ext=~s/\.tex//; Line 179  $out_no_ext=~s/\.tex//;
179  my $path=$0;  my $path=$0;
180  $path=~s/\/[^\/]+//g;  $path=~s/\/[^\/]+//g;
181    
182  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) {
183            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";
184    } else {
185            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";
186    
187    }
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.26