<?php

function tpl_news( &$_tpl, &$_db$_dname, &$_trs, &$_attrs$_pnum$_page) {
 
$walk_ret "";
 while ( 
$_db->Next()) {
   
$avs = array();
   
$dyn = array();
   
reset$_trs);
   while ( list( 
$k$v) = each$_trs)) {
     if ( !
is_array$v)) {  $avs$v] = $_db->rec$k];  continue;  }
     
$tmpk $v0];
     if ( 
$_db->rec$v0]] == "") continue;
     
$dyn"$k"] = array();
     
reset$v1]);
     while ( list( 
$k0$v0) = each$v1])) $dyn"$k"][ $v0] = $k0;  }
   
$walk_ret "";
   
$_tpl->walk"TMP_D_$_dname""tpl_func"$avsTPLF_RST$walk_ret);
   
reset$dyn);
   while ( list( 
$k$v) = each$dyn)) {
//echo( "<br>DYN:$k");
     
$davs = array();  reset$v);
     while ( list( 
$k0$v0) = each$v)) $davs$k0] = $_db->rec$v0];
     
$_tpl->walk"TMP_D_$k""tpl_func"$davsTPLF_RST TPLF_SUBST$walk_ret);
     
$_tpl->walk"TMP_D_$k""tpl_func"$davsTPLF_SUBSD$walk_ret);
     
$_tpl->walk"TMP_D_$k""tpl_func"$davsTPLF_CLEAR$walk_ret);  }
   
$_tpl->walk"TMP_D_$_dname""tpl_func"$avsTPLF_SUBST$walk_ret);
   
$_tpl->walk"TMP_D_$_dname""tpl_func"$avsTPLF_SUBSD$walk_ret);
   
$_tpl->walk"TMP_D_$_dname""tpl_func"$avsTPLF_CLEAR$walk_ret);  }
// tpl_news_pages( $_tpl, $_dname . "_PAGES", $_attrs, $_pnum, $_page);
 
$_tpl->walk"""tpl_func"$_attrsTPLF_SUBST$walk_ret);  }

function 
tpl_news_pages( &$_tpl$_dname, &$_attrs, &$_eattrs$_pnum$_page) {
 
$walk_ret "";
 for ( 
$i 0$i $_pnum$i++) {
   
$ta = array( $_dname ."_PAGE"=>$i);
   
$_tpl->walk"TMP_D_$_dname""tpl_func"$_attrsTPLF_RST TPLF_SUBST$walk_ret);
   
$_tpl->walk"TMP_D_$_dname""tpl_func"$taTPLF_SUBST$walk_ret);
   
$_tpl->walk"TMP_D_$_dname""tpl_func"$_eattrs[ ( $i == $_page 0)], TPLF_SUBST$walk_ret);
   
$_tpl->walk"TMP_D_$_dname""tpl_func"$_attrsTPLF_SUBSD$walk_ret);
   
$_tpl->walk"TMP_D_$_dname""tpl_func"$_attrsTPLF_CLEAR$walk_ret);  }
 return;  }

?>