corp_html/inc/stocks.inc

<?

/* returns:
        $stocks hash array with date,time,type,current,change,high,low,open
        $time string time (or CLOSE)
        $date string date
   trash:
        $row, $sth, $row2, $sth2, datesytle (german)
*/

        $dbh->dbh_do("set datestyle='german'");

        $sth2 = $dbh->prepare("select type from stocks_order order by ordinal");
        $sth2->execute();
        while ($row2=$sth2->fetchrow_hash()) {

                $sql="select date(date),time(date),stocks.type as type,current,change,high,low,open from stocks where stocks.type='$row2[type]' order by stocks.date desc limit 1";
                $sth = $dbh->prepare("$sql");
                $sth->execute();
                if ($row=$sth->fetchrow_hash()) {
                        $stock[]=$row;
                        $time=$row[time];
                        $date=$row[date];
                }
        }

        if ($time == "23:23:23") $time="CLOSE";

?>
1	dpavlin	1.1	<?
2
3			/* returns:
4			$stocks hash array with date,time,type,current,change,high,low,open
5			$time string time (or CLOSE)
6			$date string date
7			trash:
8			$row, $sth, $row2, $sth2, datesytle (german)
9			*/
10
11			$dbh->dbh_do("set datestyle='german'");
12
13			$sth2 = $dbh->prepare("select type from stocks_order order by ordinal");
14			$sth2->execute();
15			while ($row2=$sth2->fetchrow_hash()) {
16
17			$sql="select date(date),time(date),stocks.type as type,current,change,high,low,open from stocks where stocks.type='$row2[type]' order by stocks.date desc limit 1";
18			$sth = $dbh->prepare("$sql");
19			$sth->execute();
20			if ($row=$sth->fetchrow_hash()) {
21			$stock[]=$row;
22			$time=$row[time];
23			$date=$row[date];
24			}
25			}
26
27			if ($time == "23:23:23") $time="CLOSE";
28
29			?>