/[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

Diff of /inc/pgKnjiznica-leksikon.php

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

revision 1.1 by ravilov, Thu Aug 30 16:35:36 2001 UTC revision 1.2 by ravilov, Mon Sep 3 15:52:16 2001 UTC
# Line 1  Line 1 
1  <?php  <?php
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  ?>  ?>
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.26