#use wml::std::box
#include <infodrom.style>

<page func="Infodrom Oldenburg">

<?
  function newsbox ()
  {
    $dbh = pg_pconnect ("<dbhost>", "<dbport>", "<dbname>")
		 or die("Unable to connect to SQL server");

    pg_exec ($dbh, "SET DateStyle = 'ISO'") or die("Datenbank-Abfrage!");

    $query = "SELECT id,subject,author,teaser,body,releasedate FROM news "
	    ."WHERE deleted = 0 AND releasedate < now() AND teaser <> '' "
	    ."ORDER BY releasedate DESC,insertd DESC "
	    ."LIMIT 7";
    $sth = pg_exec ($dbh, $query) or die("Datenbank-Abfrage!");

    for ($nr=0; $nr < pg_NumRows ($sth); $nr++) {
      $row = pg_fetch_array ($sth, $nr);
      $date = explode (" ", $row['releasedate']);
      $date = explode ("-", $date[0]);
      $date = sprintf ("%d.%d.%d", $date[2], $date[1], $date[0]);
      printf ("<b>%s</b><br>%s", $row['subject'], $row['teaser']);
      if (strlen ($row['body']) > 0) {
	printf (" <a href=\"http://www.infodrom.org/News/shownews.php3?id=%d\">mehr...</a>", $row['id']);
      }
      printf ("<br><font size=\"-1\">%s, %s</font><p>", $row['author'], $date);
    }
  }
?>


<center>
<box header="<font size=-1 face="Helvetica,Arial" color="#<bar-bgcolor>"><b>News</b></font>"
     bdcolor="#<bar-bgcolor>" bdwidth=2 bdspace=10
     bgcolor="#<white>"
     width=300>
  <font face="helvetica,arial" size=-1 color="#<submenu-textcolor>">
<? newsbox(); ?>
  </font>
</box>
</center>
<div style="padding-top: 5px;"></div>

</page>

# Local variables:
# mode: text
# mode: auto-fill
# mode: iso-accents
# end: