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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.3 - (hide annotations)
Tue Sep 4 09:48:51 2001 UTC (22 years, 9 months ago) by ravilov
Branch: MAIN
Changes since 1.2: +58 -0 lines
Rearranged the menu code. Made the ovulation calendar.

1 ravilov 1.1 <?php
2 ravilov 1.2 $dalje = $dalje ? true : false;
3     $tpl->assign("DALJE", $dalje);
4     $foo = getdate();
5     $tpl->assign("year", $foo["year"]);
6     $tpl->assign("ME", $PHP_SELF.HTMLSpecialChars("?section=$section&section_menu=$section_menu&dalje=$dalje"));
7     $godine = array();
8     for ($i = $foo["year"] - 1; $i <= $foo["year"] + 1; $i++) array_push($godine, $i);
9     $tpl->assign("godine", $godine);
10     $mjeseci = array();
11     for ($i = 1; $i <= 12; $i++) array_push($mjeseci, $i);
12     $tpl->assign("mjeseci", $mjeseci);
13     $days = array(31, -1, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
14     $y = $godina ? $godina : $foo["year"];
15     $days[1] = (($y % 4) == 0 && ($y % 100) != 0) ? 29 : 28;
16     $dani = array();
17     for ($i = 1; $i <= $days[($mjesec ? $mjesec : $foo["mon"]) - 1]; $i++)
18     array_push($dani, $i);
19     $tpl->assign("dani", $dani);
20     $trajanja = array();
21     for ($i = 24; $i <= 35; $i++) array_push($trajanja, $i);
22     $tpl->assign("trajanja", $trajanja);
23     $tpl->assign("dan", $dan ? $dan : $foo["mday"]);
24     $tpl->assign("mjesec", $mjesec ? $mjesec : $foo["mon"]);
25     $tpl->assign("godina", $godina ? $godina : $foo["year"]);
26     $tpl->assign("trajanje", $trajanje ? $trajanje : 28);
27     $tpl->assign("ime", $ime);
28 ravilov 1.3 if ($refresh) {
29     $dan = $old_dan;
30     $mjesec = $old_mjesec;
31     $godina = $old_godina;
32     $trajanje = $old_trajanje;
33     $kalendar = $old_kalendar;
34     }
35     if ($kalendar) {
36     $tpl->assign("old_dan", $dan);
37     $tpl->assign("old_mjesec", $mjesec);
38     $tpl->assign("old_godina", $godina);
39     $tpl->assign("old_trajanje", $trajanje);
40     $tpl->assign("old_kalendar", true);
41     $kal = array();
42     $tim = mktime(0, 0, 0, $mjesec, $dan, $godina);
43     $dat = getdate($tim);
44     $dat = getdate(mktime(0, 0, 0, $mjesec, $dan - (($dat["wday"] - 1) % 7), $godina));
45     $ovul = mktime(0, 0, 0, $mjesec, $dan + $trajanje - 14, $godina);
46     $cd = 0;
47     define("DAY", 24 * 60 * 60);
48     for ($i = 0; $i < 7; $i++) {
49     $tmp = array();
50     for ($j = 0; $j < 7; $j++) {
51     if ($dat["mon"] > $mjesec) $cd++;
52     if ($dat["mon"] == $mjesec && $dat["mday"] >= $dan) $cd++;
53     $tim2 = mktime(0, 0, 0, $dat["mon"], $dat["mday"], $godina);
54     $msg = 0;
55     /*
56     -1: Zadnja mjeseènica
57     1: Sljedeæa oèekivana mjeseènica
58     -2: Kasni?
59     5: Plodno
60     9: Jako plodno
61     10: Ovulacija - najplodnije
62     4: Mo¾da malo prekasno, ali za¹to ne probati?
63     2: Moguæ test urina
64     3: Moguæ test krvi
65     */
66     if ($tim2 == $tim) $msg = -1;
67     if ($tim2 == mktime(0, 0, 0, $mjesec, $dan + $trajanje, $godina)) $msg = 1;
68     if ($tim2 == mktime(0, 0, 0, $mjesec, $dan + $trajanje + 2, $godina)) $msg = -2;
69     if ($ovul - $tim2 == DAY || $ovul - $tim2 == (DAY * 2)) $msg = 9;
70     if ($tim2 == $ovul) $msg = 10;
71     if ($tim2 - $ovul == (DAY * 10)) $msg = 3;
72     if ($tim2 - $ovul == (DAY * 12)) $msg = 2;
73     if ($tim2 - $ovul == DAY) $msg = 4;
74     array_push($tmp, array(
75     "cd" => $cd,
76     "dat_dan" => $dat["mday"],
77     "dat_mjesec" => $dat["mon"],
78     "msg" => $msg
79     ));
80     $dat = getdate(mktime(0, 0, 0, $dat["mon"], $dat["mday"] + 1, $godina));
81     }
82     array_push($kal, $tmp);
83     }
84     $tpl->assign("kal", $kal);
85     }
86 ravilov 1.1 ?>

  ViewVC Help
Powered by ViewVC 1.1.26