/[health_html]/inc/pgKnjiznica-vademecum.php
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 /inc/pgKnjiznica-vademecum.php

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

revision 1.2 by ravilov, Tue Sep 25 15:38:04 2001 UTC revision 1.3 by ravilov, Wed Sep 26 13:04:28 2001 UTC
# Line 6  Line 6 
6          $fields = array(          $fields = array(
7                  "naziv" => array("dbname" => "naziv", "caption" => "Naziv lijeka"),                  "naziv" => array("dbname" => "naziv", "caption" => "Naziv lijeka"),
8                  "generik" => array("dbname" => "generik", "caption" => "Generièko ime"),                  "generik" => array("dbname" => "generik", "caption" => "Generièko ime"),
9                  "atk" => array("dbname" => "atk", "caption" => "ATK"),                  "atk" => array("dbname" => "atc.opis || ' ' || atc.atc_id", "caption" => "ATK"),
                 "sif_atk" => array("dbname" => "sif_atk", "caption" => "©ifra ATK"),  
10                  "tekst" => array("dbname" => "tekst", "caption" => "Opis")                  "tekst" => array("dbname" => "tekst", "caption" => "Opis")
11          );          );
12          if (!$id) {          if (!$id) {
13                  list($srch, $qry_1, $qry_2) = Search($fields, array("naziv", "zupanija", "opcina", "posta", "mjesto", "adresa", "telefon"), array(), "naziv");                  list($srch, $qry_1, $qry_2) = Search($fields, array("naziv", "generik", "atk", "sif_atk", "tekst"), array(), "naziv");
14                  # Win1250 -> ISO8859-2                  # Win1250 -> ISO8859-2
15                  if ($qry_1) $qry_1 = strtr($qry_1, "ŠÐÈÆŽšðèæž", "©ÐÈÆ®¹ðèæ¾");                  if ($qry_1) $qry_1 = strtr($qry_1, "ŠÐÈÆŽšðèæž", "©ÐÈÆ®¹ðèæ¾");
16                  if ($qry_2) $qry_2 = strtr($qry_2, "ŠÐÈÆŽšðèæž", "©ÐÈÆ®¹ðèæ¾");                  if ($qry_2) $qry_2 = strtr($qry_2, "ŠÐÈÆŽšðèæž", "©ÐÈÆ®¹ðèæ¾");
# Line 22  Line 21 
21          $letters = Slova();          $letters = Slova();
22          if (!$id && ($index || ($qry_1 || $qry_2))) {          if (!$id && ($index || ($qry_1 || $qry_2))) {
23                  $prvo_slovo = "UPPER(SUBSTRING(naziv FROM 1 FOR 1))";                  $prvo_slovo = "UPPER(SUBSTRING(naziv FROM 1 FOR 1))";
24                  $sql = "SELECT vad_id, $prvo_slovo AS prvo_slovo, naziv FROM vademecum";                  $sql = "SELECT DISTINCT vad_id, $prvo_slovo AS prvo_slovo, naziv FROM vademecum, atc";
25                  $uvjet = array();                  $uvjet = array("(atc.atc_id = vademecum.sif_atk)");
26                  if ($index && $index != 1) {                  if ($index && $index != 1) {
27                          if ($index == '@') for ($i = 0; $i < count($letters); $i++) array_push($uvjet, "($prvo_slovo <> '".$letters[$i]."')");                          if ($index == '@') for ($i = 0; $i < count($letters); $i++) array_push($uvjet, "($prvo_slovo <> '".$letters[$i]."')");
28                                  else array_push($uvjet, "($prvo_slovo = '".MyUpper($index)."')");                                  else array_push($uvjet, "($prvo_slovo = '".MyUpper($index)."')");
# Line 39  Line 38 
38                  $lijekovi = array();                  $lijekovi = array();
39                  unset($staro_slovo);                  unset($staro_slovo);
40                  while ($row = $sth->fetchrow_array()) {                  while ($row = $sth->fetchrow_array()) {
41                          list($id2, $fl, $naziv, $mjesto) = $row;                          list($id2, $fl, $naziv) = $row;
42                          if (!isset($staro_slovo)) $staro_slovo = $fl;                          if (!isset($staro_slovo)) $staro_slovo = $fl;
43                          if (!($qry_1 || $qry_2) && $staro_slovo != $fl) {                          if (!($qry_1 || $qry_2) && $staro_slovo != $fl) {
44                                  usort($lijekovi, "MyCmp1");                                  usort($lijekovi, "MyCmp1");
# Line 62  Line 61 
61                  $tpl->assign("stype", $stype);                  $tpl->assign("stype", $stype);
62          }          }
63          if ($id) {          if ($id) {
64                  $sql = "SELECT naziv, generik, sif_atk, sif_atk_generik, tekst, slika, slika_alt FROM vademecum WHERE (vad_id = $id)";                  $sql = "SELECT naziv, generik, tekst, slika, slika_alt, atc.opis, atc.atc_id FROM vademecum, atc WHERE (vad_id = $id) AND (atc.atc_id = vademecum.sif_atk)";
65                  $sth = $dbh->prepare($sql);                  $sth = $dbh->prepare($sql);
66                  if (!$sth) error("Cannot prepare query: \"$sql\"");                  if (!$sth) error("Cannot prepare query: \"$sql\"");
67                  if (!$sth->execute()) error("Cannot execute query: \"$sql\"");                  if (!$sth->execute()) error("Cannot execute query: \"$sql\"");
68                  $row = $sth->fetchrow_array();                  $row = $sth->fetchrow_array();
69                  $sth->finish();                  $sth->finish();
70                  list($naziv, $gen, $sast, $ob, $skup, $izd, $ind, $konind, $int, $upoz, $doz, $nus, $rok, $pic, $pic_alt) = $row;                  list($naziv, $gen, $tekst, $pic, $pic_alt, $atk, $sif_atk) = $row;
71                  $tpl->assign("naziv", MyEscape($naziv));                  $tpl->assign("naziv", MyEscape($naziv));
72                  $tpl->assign("generik", MyEscape($gen));                  $tpl->assign("generik", MyEscape($gen));
73                  $tpl->assign("sastav", MyEscape($sast));                  $tpl->assign("atk", MyEscape($atk));
74                  $tpl->assign("pakiranje", MyEscape($ob));                  $tpl->assign("sif_atk", MyEscape($sif_atk));
75                  $tpl->assign("skupina", MyEscape($skup));                  $tpl->assign("tekst", ParseNewline(MyEscape($tekst), false));
                 $tpl->assign("izdavanje", MyEscape($izd));  
                 $tpl->assign("indikacije", MyEscape($ind));  
                 $tpl->assign("kontraindikacije", MyEscape($konind));  
                 $tpl->assign("interakcije", MyEscape($int));  
                 $tpl->assign("upozorenja", MyEscape($upoz));  
                 $tpl->assign("doziranje", MyEscape($doz));  
                 $tpl->assign("nuspojave", MyEscape($nus));  
                 $tpl->assign("rok", MyEscape($rok));  
76                  $tpl->assign("pic", MyEscape($pic));                  $tpl->assign("pic", MyEscape($pic));
77                  $tpl->assign("pic_alt", MyEscape($pic_alt));                  $tpl->assign("pic_alt", MyEscape($pic_alt));
78          }          }
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.26