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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.3 - (hide annotations)
Fri Oct 12 09:30:25 2001 UTC (22 years, 6 months ago) by ravilov
Branch: MAIN
Changes since 1.2: +3 -2 lines
Added a date to Q&A's.

1 ravilov 1.1 <?php
2     $mail = $isMed ? array("alan@plivamed.net") :
3     array("darko@plivazdravlje.hr", "igor@plivazdravlje.hr");
4     $limit = 10;
5     include("inc/conn.php");
6     if ($qa) {
7 ravilov 1.2 function MyConv($str) { return strtr($str, "šðè枊ÐÈƎ", "¹ðè澩ÐÈÆ®"); }
8 ravilov 1.1 $id2 = $qa;
9     $naslov = "";
10     while ($id2) {
11     $sql = "SELECT naziv, parent FROM qa_tema WHERE (tema_id = $id2)";
12     $sth = $dbh->prepare($sql);
13     if (!$sth) error("Cannot prepare query: \"$sql\"");
14     if (!$sth->execute()) error("Cannot execute query: \"$sql\"");
15     $row = $sth->fetchrow_array();
16     $sth->finish();
17     list($naz, $id2) = $row;
18     if ($naz) {
19     if ($naslov) $naslov = " - ".$naslov;
20     $naslov = $naz.$naslov;
21     }
22     }
23     if ($naslov) array_push($PATH, MyUpper($naslov));
24     $tpl->assign("naslov", $naslov);
25     if (!$offset) $offset = 0;
26     $sql = "SELECT pitanje, odgovor, gost, date_odgovor FROM qa WHERE (tema = $qa) AND (display) LIMIT ".($limit + 1)." OFFSET $offset";
27     $sth = $dbh->prepare($sql);
28     if (!$sth) error("Cannot prepare query: \"$sql\"");
29     if (!$sth->execute()) error("Cannot execute query: \"$sql\"");
30     $qas = array();
31     while ($row = $sth->fetchrow_array()) {
32 ravilov 1.3 list($p, $o, $g, $d) = $row;
33 ravilov 1.1 array_push($qas, array(
34     "pitanje" => ParseNewline(MyEscape($p), false),
35     "odgovor" => ParseNewline(MyEscape($o), false),
36 ravilov 1.3 "gost" => MyEscape($g),
37     "date" => strftime("%d.%m.%Y.", strtotime($d))
38 ravilov 1.1 ));
39     }
40     $sth->finish();
41     $tpl->assign("qas", $qas);
42     $error = 0;
43     if ($salji) {
44     if (!$ime) $error |= 1;
45     if (!$email) $error |= 2;
46     if (!$pitanje) $error |= 4;
47     if (!$error) {
48     $ime2 = MyConv($dbh->quote($ime));
49     $email2 = MyConv($dbh->quote($email));
50     $pitanje2 = MyConv($dbh->quote($pitanje));
51     $sql = "INSERT INTO qa (ime_prezime, email, tema, pitanje, date_pitanje, display) VALUES ($ime2, $email2, $qa, $pitanje2, NOW(), false)";
52     $dbh->dbh_do($sql);
53     mail(implode(", ", $mail), "PLIVA".($isMed?"med.net":"zdravlje.hr")." - Q&A", "\nIme: $ime\nE-mail: $email\n--------\n$pitanje\n", "From: q-a@pliva".($isMed?"med.net":"zdravlje.hr"));
54     mail($email, "PLIVA".($isMed?"med.net":"zdravlje.hr")." - Q&A", "Po¹tovani,\n\nVa¹e pitanje je primljeno na obradu. Uskoro oèekujte odgovor.\n\nS po¹tovanjem,\nPLIVA".($isMed?"med.net":"zdravlje.hr"), "From: q-a@pliva".($isMed?"med.net":"zdravlje.hr"));
55     }
56     }
57     $tpl->assign("error", $error);
58     $done = (!$salji || $error) ? false : true;
59     if ($done) $ime = $email = $pitanje = "";
60     $tpl->assign("ime", $ime);
61     $tpl->assign("email", $email);
62     $tpl->assign("pitanje", $pitanje);
63     $tpl->assign("done", $done);
64     $tpl->assign("next", (count($qas) > 10) ? ($offset + 10) : 0);
65     $tpl->assign("prev", $offset ? ($offset - 10) : 0);
66     $tpl->assign("offset", $offset);
67     } else {
68     function MyCmp1($a, $b) { return MyCompare($a["naziv"], $b["naziv"]); }
69     function LoadTeme($id = 0) {
70     global $dbh, $isMed;
71     $sql = "SELECT tema_id, naziv FROM qa_tema WHERE (".($isMed?"":"NOT ")."plivamed) AND (parent = ".($id?$id:"NULL").")";
72     $sth = $dbh->prepare($sql);
73     if (!$sth) error("Cannot prepare query: \"$sql\"");
74     if (!$sth->execute()) error("Cannot execute query: \"$sql\"");
75     $tema = array();
76     while ($row = $sth->fetchrow_array()) {
77     list($id2, $naz) = $row;
78 ravilov 1.2 $sql = "SELECT count(qa_id) FROM qa WHERE (tema = $id2) AND (display)";
79 ravilov 1.1 $sth2 = $dbh->prepare($sql);
80     if (!$sth2) error("Cannot prepare query: \"$sql\"");
81     if (!$sth2->execute()) error("Cannot execute query: \"$sql\"");
82     $row = $sth2->fetchrow_array();
83     $sth2->finish();
84     if ($row) $row = array_shift($row);
85     $sub = LoadTeme($id2);
86     if (count($sub) < 0) undef($sub);
87     array_push($tema, array("id" => $id2, "naziv" => MyEscape($naz), "teme" => $sub, "count" => $row));
88     }
89     $sth->finish();
90     if ($id) usort($tema, "MyCmp1");
91     return $tema;
92     }
93     $teme = LoadTeme();
94     $tpl->assign("teme", $teme);
95     }
96     $tpl->assign("qa", $qa);
97 ravilov 1.2 $dbh->disconnect();
98 ravilov 1.1 ?>

  ViewVC Help
Powered by ViewVC 1.1.26