/[health_html]/inc/pgLibrary-rlpc.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/pgLibrary-rlpc.php

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

revision 1.1 by ravilov, Wed Aug 22 11:43:59 2001 UTC revision 1.2 by ravilov, Mon Aug 27 09:17:40 2001 UTC
# Line 1  Line 1 
1  <?php  <?php
2          include_once("inc/conn.php");          // ...
         include_once("inc/search.php");  
         $fields = array(  
                 "atk" => array("dbname" => "lijekovi.sif_atk || lijekovi.sif_atk_ostalo", "caption" => "ATK"),  
                 "inn" => array("dbname" => "generici.naziv", "caption" => "INN"),  
                 "proizvodjac" => array("dbname" => "proizvodjaci.naziv", "caption" => "Manufacturer"),  
                 "name" => array("dbname" => "lijekovi.naziv", "caption" => "Name"),  
                 "hzzo" => array("dbname" => "lijekovi.nacin_izdavanja", "caption" => "HZZO")  
         );  
         list($srch, $qry, $qry_2) = Search($fields,  
                 array("inn", "proizvodjac", "name"), array("atk", "hzzo"));  
         $tpl->assign("index", $index);  
         $tpl->assign("srch", ($qry || $qry_2) ? true : false);  
         $tpl->assign("SEARCH", $srch);  
         if ($index || ($qry || $qry_2)) {  
                 $prvo_slovo = "UPPER(SUBSTRING(lijekovi.naziv FROM 1 FOR 1))";  
                 $sql = "SELECT DISTINCT lijekovi.sif_inn, $prvo_slovo AS prvo_slovo, lijekovi.naziv, proizvodjaci.naziv, generici.naziv FROM lijekovi, generici, proizvodjaci WHERE (lijekovi.sif_proizvodjac = proizvodjaci.proiz_id) AND (lijekovi.sif_inn = generici.generik_id)";  
                 if ($index != 1) $sql .= " AND ($prvo_slovo = '".strtoupper($index)."')";  
                 if ($qry) $sql .= " AND ($qry)";  
                 $sql .= " ORDER BY prvo_slovo, lijekovi.naziv";  
                 $sth = $dbh->prepare($sql);  
                 if (!$sth) error("Cannot prepare query: \"$sql\"");  
                 if (!$sth->execute()) error("Cannot execute query: \"$sql\"");  
                 $lijekovi = array();  
                 $slova = array();  
                 unset($staro_slovo);  
                 $records = 0;  
                 while ($row = $sth->fetchrow_array()) {  
                         list($inn, $fl, $naziv, $proizv, $generik) = $row;  
                         $proizv = strtoupper($proizv);  
                         if (!isset($staro_slovo)) $staro_slovo = $fl;  
                         if (!($qry || $qry_2) && $staro_slovo != $fl) {  
                                 $records += count($lijekovi);  
                                 array_push($slova, array("l" => $staro_slovo, "lijekovi" => $lijekovi));  
                                 $staro_slovo = $fl;  
                                 $lijekovi = array();  
                         }  
                         $sql = "SELECT nacin_izdavanja, pakovanje, lijekovi.sif_atk || lijekovi.sif_atk_ostalo, cijena_orig FROM lijekovi WHERE (lijekovi.sif_inn = $inn) AND (atc.atc_id = lijekovi.sif_atk) AND (lijekovi.naziv = '$naziv')";  
                         if ($qry_2) $sql .= " AND ($qry_2)";  
                         $sql .= " ORDER BY pakovanje";  
                         $sth2 = $dbh->prepare($sql);  
                         if (!$sth2) error("Cannot prepare query: \"$sql\"");  
                         if (!$sth2->execute()) error("Cannot execute query: \"$sql\"");  
                         $oblici = array();  
                         while ($row = $sth2->fetchrow_array()) {  
                                 list($recept, $pakovanje, $atk, $cijena) = $row;  
                                 array_push($oblici, array(  
                                         "hzzo" => $recept,  
                                         "pakovanje" => MyEscape($pakovanje),  
                                         "atk" => preg_replace("/\s+/", "&nbsp;", $atk),  
                                         "cijena" => $cijena  
                                 ));  
                         }  
                         $sth2->finish();  
                         if (count($oblici) <= 0) continue;  
                         array_push($lijekovi, array(  
                                 "naziv" => MyEscape($naziv),  
                                 "proizvodjac" => MyEscape($proizv),  
                                 "inn" => MyEscape($generik),  
                                 "tip" => "???",  
                                 "oblici" => $oblici,  
                                 "notes" => ""  
                         ));  
                 }  
                 $sth->finish();  
                 if ($staro_slovo) {  
                         $records += count($lijekovi);  
                         array_push($slova, array("l" => $staro_slovo, "lijekovi" => $lijekovi));  
                 }  
                 $tpl->assign("records", $records);  
                 $tpl->assign("slova", $slova);  
         }  
         $tpl->assign("letters", array("A", "B", "C", "D", "E", "F", "G",  
                 "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S",  
                 "T", "U", "V", "W", "X", "Y", "Z"));  
         $tpl->assign("isedit", isEdit());  
         $dbh->disconnect();  
3  ?>  ?>
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.26