/[health_html]/inc/pgDS-ss.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

Annotation of /inc/pgDS-ss.php

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.3 - (hide annotations)
Thu Aug 30 16:35:36 2001 UTC (22 years, 8 months ago) by ravilov
Branch: MAIN
Changes since 1.2: +93 -21 lines
Started major site rearrangement. Minor bugfixes.

1 ravilov 1.1 <?php
2 ravilov 1.3 include_once("inc/conn.php");
3     function mySS($a, $b) {
4     if ($a["name"] == $b["name"]) return 0;
5     return ($a["name"] < $b["name"]) ? -1 : 1;
6     }
7     function escape_quote($str) {
8     return str_replace('"', "&quot;", $str);
9     }
10     if (!$id) {
11     $simptomi = array();
12     $sql = "SELECT simptom_id, naziv FROM simptomi WHERE (simptom_id <> 0)";
13     $sth = $dbh->prepare($sql);
14     if (!$sth) error("Cannot prepare query: \"$sql\"");
15     if (!$sth->execute()) error("Cannot execute query: \"$sql\"");
16     while ($row = $sth->fetchrow_array())
17     array_push($simptomi, array("id" => $row[0]."-0", "name" => MyEscape($row[1])));
18     $sth->finish();
19     $sql = "SELECT simptom_id, alias_id, alias FROM simptomi_aliasi";
20     $sth = $dbh->prepare($sql);
21     if (!$sth) error("Cannot prepare query: \"$sql\"");
22     if (!$sth->execute()) error("Cannot execute query: \"$sql\"");
23     while ($row = $sth->fetchrow_array())
24     array_push($simptomi, array("id" => $row[0]."-".$row[1], "name" => MyEscape($row[2])));
25     $sth->finish();
26     uasort($simptomi, "mySS");
27     $slova = array();
28     while (list($k, $v) = each($simptomi)) {
29     $fl = $v["name"][0];
30     for ($i = 0; $i < count($slova); $i++) if ($slova[$i]["fl"] == $fl) break;
31     if (!$slova[$i]) $slova[$i] = array("fl" => $fl, "simptomi" => array());
32     array_push($slova[$i]["simptomi"], $v);
33     }
34     $tpl->assign("slova", $slova);
35     } else {
36     list($sid, $aid) = explode("-", $id);
37     $sql = "SELECT ".($aid?"simptomi_aliasi.alias":"simptomi.naziv").", simptomi.opis, simptomi.overview, simptomi.investigations, simptomi.red_flags FROM simptomi".($aid?", simptomi_aliasi":"")." WHERE (simptomi.simptom_id = $sid)".($aid?" AND (simptomi_aliasi.simptom_id = simptomi.simptom_id) AND (simptomi_aliasi.alias_id = $aid)":"");
38     $sth = $dbh->prepare($sql);
39     if (!$sth) error("Cannot prepare query: \"$sql\"");
40     if (!$sth->execute()) error("Cannot execute query: \"$sql\"");
41     $row = $sth->fetchrow_array();
42     $sth->finish();
43     list($naziv, $opis, $overview, $invest, $redflags) = $row;
44     $tpl->assign("symptom", escape_quote($naziv));
45     $tpl->assign("overview", escape_quote($overview));
46     $tpl->assign("investigations", escape_quote($invest));
47     $tpl->assign("red_flags", escape_quote($redflags));
48     $sql = "SELECT bolesti.bolest_id, bolesti.naziv, simptomi_bolesti.vjerojatnost FROM bolesti, simptomi_bolesti WHERE (bolesti.bolest_id = simptomi_bolesti.bolest_id) AND (simptomi_bolesti.simptom_id = $sid) ORDER BY simptomi_bolesti.vjerojatnost, bolesti.naziv";
49     $sth = $dbh->prepare($sql);
50     if (!$sth) error("Cannot prepare query: \"$sql\"");
51     if (!$sth->execute()) error("Cannot execute query: \"$sql\"");
52     $bolesti = array();
53     $uobicajeno = $povremeno = $rijetko = false;
54     while ($row = $sth->fetchrow_array()) {
55     list($bid, $naziv, $vjer) = $row;
56     if ($vjer == 1) $uobicajeno = true;
57     if ($vjer == 2) $povremeno = true;
58     if ($vjer == 3) $rijetko = true;
59     array_push($bolesti, array(
60     "id" => "$bid-0",
61     "naziv" => escape_quote($naziv),
62     "vjerojatnost" => $vjer
63     ));
64     }
65     $sth->finish();
66     $tpl->assign("bolesti", $bolesti);
67     $tpl->assign("uobicajeno", $uobicajeno);
68     $tpl->assign("povremeno", $povremeno);
69     $tpl->assign("rijetko", $rijetko);
70     $simptomi = array();
71     for ($i = 0; $i < count($bolesti); $i++) {
72     if ($bolesti[$i]["vjerojatnost"] != 1) continue;
73     $sql = "SELECT simptomi.simptom_id, simptomi.naziv, sorter.value FROM simptomi, sorter WHERE (sorter.simptom_main_id = $sid) AND (sorter.simptom_id = simptomi.simptom_id) AND (sorter.bolest_id = ".$bolesti[$i]["id"].")";
74     $sth2 = $dbh->prepare($sql);
75     if (!$sth2) error("Cannot prepare query: \"$sql\"");
76     if (!$sth2->execute()) error("Cannot execute query: \"$sql\"");
77     while ($row = $sth2->fetchrow_array()) {
78     list($id, $simpt, $val) = $row;
79     $simpt = escape_quote($simpt);
80     for ($j = 0; $j < count($simptomi); $j++) if ($simptomi[$j]["name"] == $simpt) break;
81     if (!$simptomi[$j]) {
82     $tmp = array();
83     for ($k = 0; $k < count($bolesti); $k++) array_push($tmp, array("exists" => false));
84     array_push($simptomi, array("id" => "$id-0", "name" => $simpt, "values" => $tmp));
85     }
86     $simptomi[$j]["values"][$i]["exists"] = true;
87     $simptomi[$j]["values"][$i]["val"] = $val;
88     }
89     $sth2->finish();
90     }
91     $tpl->assign("simptomi", $simptomi);
92     }
93     $dbh->disconnect();
94     $tpl->assign("ID", $id);
95 ravilov 1.1 ?>

  ViewVC Help
Powered by ViewVC 1.1.26