/[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.8 by dpavlin, Tue Jun 27 11:15:32 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 122  while (my @arr = $sth->fetchrow_array() Line 122  while (my @arr = $sth->fetchrow_array()
122                  $lokacija=$arr[4];                  $lokacija=$arr[4];
123                  print HTML "<tr bgcolor=#000000><td colspan=6><font size=+1 color=#ffffff>$lokacija</font></td></tr>";                  print HTML "<tr bgcolor=#000000><td colspan=6><font size=+1 color=#ffffff>$lokacija</font></td></tr>";
124          }          }
125          print HTML "<tr$bgcol><td>$rbr</td><td>$arr[0]</td><td>$arr[1] $arr[2]</td><td>tel: $arr[3]</td><td><small>$arr[4]</small></td><td>$arr[5]<br>$arr[6]</td></tr>\n";          print HTML "<tr$bgcol><td>$rbr</td><td><a href=\"http://support.pliva.hr/obavijest.php?id=$arr[0]\">$arr[0]</a></td><td>$arr[1] $arr[2]</td><td>tel: $arr[3]</td><td><small>$arr[4]</small></td><td>$arr[5]<br>$arr[6]</td></tr>\n";
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.8
  ViewVC Help
Powered by ViewVC 1.1.26