/[health_html]/inc/pgKnjiznica2-inf_glasnik.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/pgKnjiznica2-inf_glasnik.php

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (hide annotations)
Fri Sep 28 23:34:37 2001 UTC (22 years, 7 months ago) by ravilov
Branch: MAIN
Added some new pages to PLIVAmed. Some bugfixes.

1 ravilov 1.1 <?php
2     if (!$index) $index = 1;
3     include("inc/conn.php");
4     include_once("inc/search.php");
5     $fields = array(
6     "broj" => array("dbname" => "broj", "caption" => "Broj èasopisa"),
7     "godina" => array("dbname" => "godina", "caption" => "Godina izdanja"),
8     "naslov" => array("dbname" => "naslov", "caption" => "Naslov èlanka"),
9     "autor" => array("dbname" => "autor_ime", "caption" => "Ime autora"),
10     "adresa" => array("dbname" => "autor_adresa", "caption" => "Adresa autora"),
11     "rijeci" => array("dbname" => "keywords", "caption" => "Kljuène rijeèi")
12     );
13     if (!$id) {
14     list($srch, $qry_1, $qry_2) = Search($fields, array("broj", "godina", "naslov", "rijeci", "autor", "adresa"), array(), "naslov");
15     # Win1250 -> ISO8859-2
16     if ($qry_1) $qry_1 = strtr($qry_1, "ŠÐÈƎšðèæž", "©ÐÈÆ®¹ðèæ¾");
17     if ($qry_2) $qry_2 = strtr($qry_2, "ŠÐÈƎšðèæž", "©ÐÈÆ®¹ðèæ¾");
18     $tpl->assign("index", $index);
19     $tpl->assign("srch", ($qry_1 || $qry_2) ? true : false);
20     $tpl->assign("SEARCH", $srch);
21     }
22     $letters = Slova();
23     if (!$id && ($index || ($qry_1 || $qry_2))) {
24     $prvo_slovo = "UPPER(SUBSTRING(autor_ime || ': ' || clanak FROM 1 FOR 1))";
25     $sql = "SELECT ig_id, $prvo_slovo AS prvo_slovo, autor_ime, clanak FROM inf_glasnik";
26     $uvjet = array();
27     if ($index && $index != 1) {
28     if ($index == '@') for ($i = 0; $i < count($letters); $i++) array_push($uvjet, "($prvo_slovo <> '".$letters[$i]."')");
29     else array_push($uvjet, "($prvo_slovo = '".MyUpper($index)."')");
30     }
31     if ($qry_1) array_push($uvjet, "($qry_1)");
32     $uvjet = implode(" AND ", $uvjet);
33     if ($uvjet) $sql .= " WHERE $uvjet";
34     $sql .= " ORDER BY prvo_slovo, autor_ime, clanak";
35     $sth = $dbh->prepare($sql);
36     if (!$sth) error("Cannot prepare query: \"$sql\"");
37     if (!$sth->execute()) error("Cannot execute query: \"$sql\"");
38     $slova = array();
39     $clanci = array();
40     unset($staro_slovo);
41     while ($row = $sth->fetchrow_array()) {
42     list($id2, $fl, $autor, $naslov) = $row;
43     if (!isset($staro_slovo)) $staro_slovo = $fl;
44     if (!($qry_1 || $qry_2) && $staro_slovo != $fl) {
45     usort($clanci, "MyCmp1");
46     array_push($slova, array("l" => $staro_slovo, "clanci" => $clanci));
47     $staro_slovo = $fl;
48     $clanci = array();
49     }
50     array_push($clanci, array("id" => $id2, "naslov" => MyEscape($naslov), "autor" => MyEscape($autor)));
51     }
52     $sth->finish();
53     if (count($clanci) > 0) {
54     usort($clanci, "MyCmp1");
55     array_push($slova, array("l" => $staro_slovo, "clanci" => $clanci));
56     }
57     usort($slova, "MyCmp2");
58     $records = 0;
59     for ($i = 0; $i < count($slova); $i++) $records += count($slova[$i]["clanci"]);
60     $tpl->assign("records", $records);
61     $tpl->assign("slova", $slova);
62     $tpl->assign("stype", $stype);
63     }
64     if ($id) {
65     $sql = "SELECT broj, godina, clanak, keywords, autor_ime, autor_adresa, pdf FROM inf_glasnik WHERE (ig_id = $id)";
66     $sth = $dbh->prepare($sql);
67     if (!$sth) error("Cannot prepare query: \"$sql\"");
68     if (!$sth->execute()) error("Cannot execute query: \"$sql\"");
69     $row = $sth->fetchrow_array();
70     $sth->finish();
71     list($broj, $godina, $naslov, $keywords, $autor, $adresa, $pdf) = $row;
72     $tpl->assign("broj", MyEscape($broj));
73     $tpl->assign("godina", MyEscape($godina));
74     $tpl->assign("naslov", MyEscape($naslov));
75     $tpl->assign("keywords", MyEscape($keywords));
76     $tpl->assign("autor", MyEscape($autor));
77     $tpl->assign("adresa", MyEscape($adresa));
78     $tpl->assign("pdf", MyEscape($pdf));
79     }
80     $tpl->assign("letters", $letters);
81     $tpl->assign("ID", $id);
82     $dbh->disconnect();
83     array_push($PATH, "INFEKTOLO©KI GLASNIK");
84     ?>

  ViewVC Help
Powered by ViewVC 1.1.26