/[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.8 by dpavlin, Fri Jan 25 14:47:50 2002 UTC revision 1.9 by dpavlin, Mon Feb 4 15:55:13 2002 UTC
# Line 104  exit if ($#osoba_id_za_print+1 == 0); Line 104  exit if ($#osoba_id_za_print+1 == 0);
104  my $server=3;  my $server=3;
105  $sth = $dbh->prepare("  $sth = $dbh->prepare("
106          select osobe.id,ime,prezime,tel,lokacije.naziv,          select osobe.id,ime,prezime,tel,lokacije.naziv,
                 org_jed.naziv,org_pod_jed.pod_naziv,  
107                  lok_racunala,login,passwd,alias,sifra,                  lok_racunala,login,passwd,alias,sifra,
108                  objekt,kat,soba,z_rac,kontakt_osoba_id,umrezavanje                  objekt,kat,soba,z_rac,kontakt_osoba_id,umrezavanje
109          from osobe,racuni,e_mail          from osobe,racuni,e_mail
110          where osobe.id in (".join(",",@osoba_id_za_print).")          where osobe.id in (".join(",",@osoba_id_za_print).")
111                  and lokacija_id=lokacije.id and org_jed_id=org_jed.id                  and lokacija_id=lokacije.id
                 and org_pod_jed_id=org_pod_jed.pod_id  
112                  and racuni.osoba_id=osobe.id and racuni.server_id=$server                  and racuni.osoba_id=osobe.id and racuni.server_id=$server
113                  and e_mail.osoba_id=osobe.id                  and e_mail.osoba_id=osobe.id
114          ") || die $dbh->errstr();          ") || die $dbh->errstr();
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.26