2 $dbh = pg_pconnect ("<dbhost>", "<dbport>", "<dbname>")
3 or die("Unable to connect to SQL server");
6 if (isset($_REQUEST[blzkto])) {
7 $query = sprintf ("SELECT name FROM account_names WHERE blz_kto = '%s'",
9 $sth = pg_exec ($dbh, $query);
11 $both = explode (":", $_REQUEST[blzkto]);
12 if (pg_NumRows ($sth) > 0) {
13 $row = pg_fetch_array ($sth, 0);
14 $ktoname = sprintf ("%s (BLZ %s, Konto %s)", $row['name'], $both[0], $both[1]);
16 $ktoname = sprintf ("BLZ %s, Konto %s", $both[0], $both[1]);
21 <define-tag account_heading>
23 <h3 class=bar><?=$ktoname?></font></h3>
27 <define-tag account_overview>
29 function account_names ($dbh, $display, $currency)
31 if ($currency == "eur")
34 $table = "account_dm";
36 $query = "SELECT DISTINCT $table.blz_kto,name "
37 ."FROM $table,account_names "
38 ."WHERE $table.blz_kto = account_names.blz_kto "
41 $sth = pg_exec ($dbh, $query) or die("Datenbank-Abfrage!");
44 for ($nr=0; $nr < pg_NumRows ($sth); $nr++) {
45 $row = pg_fetch_array ($sth, $nr);
46 $ret[$row['blz_kto']] = $row['name'];
51 function stand ($dbh,$blzkto,$currency)
53 if ($currency == "dm") {
54 $query = "SELECT value_dm FROM account_dm WHERE blz_kto='$blzkto'";
55 } elseif ($currency == "eur") {
56 $query = "SELECT value_eur FROM account WHERE blz_kto='$blzkto'";
58 # Alert: unknown currency
61 $sth = pg_exec ($dbh, $query) or die("Datenbank-Abfrage!");
64 for ($nr=0; $nr < pg_NumRows ($sth); $nr++) {
65 $row = pg_fetch_array ($sth, $nr);