Antonimoak egiaztatu

<?php
print '<p>Orri honetan sarrera zaharrean ageri diren antonimoak bereizi eta dagoeneko eginda dauden loturak erakusten dira.</p>';

$abbr = 'Ant';
$result = db_queryd('SELECT b.nid, b.berba, b.aurrekoa, n.nid rnid, n.title rtitle FROM berba b LEFT JOIN node_relations r ON b.nid = r.pnid AND r.type = "Antonimo" LEFT JOIN node n ON r.nid = n.nid WHERE b.aurrekoa LIKE "%'.$abbr.'.%" AND b.aurrekoa REGEXP "[[:<:]]'.$abbr.'[[:>:]]" ORDER BY b.zki ASC');

while($row = db_fetch_object($result)){
$nodes[$row->nid] = $row;
$related[$row->nid][] = l($row->rtitle, "node/$row->rnid");
}
print '<dl>';
foreach($nodes as $node){
unset($zaku);
ereg("$abbr\.([^\.]*)\.", $node->aurrekoa, $zaku);
//$sin = explode(',', eregi_replace('\([^\)]*\)', '', strip_tags($zaku[1])));
$berba = l($node->berba, "node/$node->nid/related");
$aurrekoan = strip_tags($zaku[1]);
$beste = join($related[$node->nid], ', ');
print "<dt>$berba</dt><dd>{$aurrekoan} => $beste</dd>\n";
}
print '</dl>';

?>