/[informatika.old]/print/izvjestaj.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/izvjestaj.pl

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

revision 1.6 by dpavlin, Wed May 10 11:54:54 2000 UTC revision 1.7 by dpavlin, Fri Jun 2 07:07:11 2000 UTC
# Line 72  while (my ($osoba_id,$status_tip_id) = $ Line 72  while (my ($osoba_id,$status_tip_id) = $
72          }          }
73  }  }
74    
75  print MAIL "Otvorenih računa: ",$#osoba_id_za_print+1,"  print MAIL "
76  Datum i vrijeme generiranja izvještaja: $currdate  Datum i vrijeme generiranja izvještaja: $currdate
77    
78  Izvještaj za štampanje se nalazi na  Izvještaj za štampanje se nalazi na
# Line 80  http://support.pliva.hr/$html_file Line 80  http://support.pliva.hr/$html_file
80  sa potpunim podacima o umrežavanju, lokaciji računala i osobe  sa potpunim podacima o umrežavanju, lokaciji računala i osobe
81    
82  ";  ";
83  print HTML "Otvorenih računa: ",$#osoba_id_za_print+1,"  print HTML "
84  <br>Datum i vrijeme generiranja izvještaja: $currdate<p>";  <br>Datum i vrijeme generiranja izvještaja: $currdate<p>";
85    
86  $sth = $dbh->prepare("  $sth = $dbh->prepare("
# Line 126  while (my @arr = $sth->fetchrow_array() Line 126  while (my @arr = $sth->fetchrow_array()
126          if ($arr[12] == 0) {          if ($arr[12] == 0) {
127                  $mreza='umreženo';                  $mreza='umreženo';
128          } else {          } else {
129                  my $rows = $dbh->do("select max(status_tip_id) from status                  my $sth2 = $dbh->prepare("select count(status_tip_id) from status
130                          where osoba_id = $arr[0] and status_tip_id=8") || die $dbh->errstr();                          where osoba_id = $arr[0] and status_tip_id=8") ||
131                  if ($rows > 0) {                                  die $dbh->errstr();
132                    $sth2->execute() || die $sth2->errstr();
133                    my ($nr_of_status8) = $sth2->fetchrow_array();
134                            
135                    if ($nr_of_status8 > 0) {
136                          $mreza='<i>umrežavanje obavljeno</i>';                          $mreza='<i>umrežavanje obavljeno</i>';
137                  } else {                  } else {
138                          $mreza='<b>potrebno umrežavanje</b>';                          $mreza='<b>potrebno umrežavanje</b>';
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.26