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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.2 - (hide annotations)
Mon Sep 3 15:52:16 2001 UTC (22 years, 7 months ago) by ravilov
Branch: MAIN
Changes since 1.1: +64 -1 lines
Made the menu on the left into images. More bugfixes.

1 ravilov 1.1 <?php
2 ravilov 1.2 include_once("inc/conn.php");
3     include_once("inc/search.php");
4     $fields = array(
5     "pojam" => array("dbname" => "pojam", "caption" => "Pojam"),
6     "opis" => array("dbname" => "opis", "caption" => "Opis")
7     );
8     list($srch, $qry_1, $qry_2) = Search($fields, array("pojam", "opis"), array(), "pojam");
9     # Win1250 -> ISO8859-2
10     if ($qry_1) $qry_1 = strtr($qry_1, "ŠÐÈƎšðèæž", "©ÐÈÆ®¹ðèæ¾");
11     if ($qry_2) $qry_2 = strtr($qry_2, "ŠÐÈƎšðèæž", "©ÐÈÆ®¹ðèæ¾");
12     $tpl->assign("index", $index);
13     $tpl->assign("srch", ($qry_1 || $qry_2) ? true : false);
14     $tpl->assign("SEARCH", $srch);
15     $letters = Slova();
16     if (!$id && ($index || ($qry_1 || $qry_2))) {
17     $prvo_slovo = "UPPER(SUBSTRING(pojam FROM 1 FOR 1))";
18     $sql = "SELECT leks_id, $prvo_slovo AS prvo_slovo, pojam FROM leksikon";
19     $uvjet = array();
20     if ($index && $index != 1) {
21     if ($index == '@') for ($i = 0; $i < count($letters); $i++) array_push($uvjet, "($prvo_slovo <> '".$letters[$i]."')");
22     else array_push($uvjet, "($prvo_slovo = '".MyUpper($index)."')");
23     }
24     if ($qry_1) array_push($uvjet, "($qry_1)");
25     $uvjet = implode(" AND ", $uvjet);
26     if ($uvjet) $sql .= " WHERE $uvjet";
27     $sql .= " ORDER BY prvo_slovo, pojam";
28     $sth = $dbh->prepare($sql);
29     if (!$sth) error("Cannot prepare query: \"$sql\"");
30     if (!$sth->execute()) error("Cannot execute query: \"$sql\"");
31     $slova = array();
32     $pojmovi = array();
33     unset($staro_slovo);
34     while ($row = $sth->fetchrow_array()) {
35     list($id2, $fl, $pojam) = $row;
36     if (!isset($staro_slovo)) $staro_slovo = $fl;
37     if (!($qry_1 || $qry_2) && $staro_slovo != $fl) {
38     array_push($slova, array("l" => $staro_slovo, "pojmovi" => $pojmovi));
39     $staro_slovo = $fl;
40     $pojmovi = array();
41     }
42     array_push($pojmovi, array("id" => $id2, "pojam" => MyEscape($pojam)));
43     }
44     $sth->finish();
45     if (isset($staro_slovo)) array_push($slova, array("l" => $staro_slovo, "pojmovi" => $pojmovi));
46     $records = 0;
47     for ($i = 0; $i < count($slova); $i++) $records += count($slova[$i]["ustanove"]);
48     $tpl->assign("records", $records);
49     $tpl->assign("slova", $slova);
50     $tpl->assign("stype", $stype);
51     }
52     if ($id) {
53     $sql = "SELECT pojam, opis FROM leksikon WHERE (leks_id = $id)";
54     $sth = $dbh->prepare($sql);
55     if (!$sth) error("Cannot prepare query: \"$sql\"");
56     if (!$sth->execute()) error("Cannot execute query: \"$sql\"");
57     $row = $sth->fetchrow_array();
58     $sth->finish();
59     list($pojam, $opis) = $row;
60     $tpl->assign("pojam", MyEscape($pojam));
61     $tpl->assign("opis", MyEscape($opis));
62     }
63     $tpl->assign("letters", $letters);
64     $tpl->assign("ID", $id);
65     $dbh->disconnect();
66 ravilov 1.1 ?>

  ViewVC Help
Powered by ViewVC 1.1.26