//(c) Karel Bednář, kbednar@tam.cz require_once ("main/inc/config.php"); require_once ($server["root"]."/inc/maininc.php"); $page_vars["PAGE_TITLE"] = $page->config["title_index"]; //kontrola zda stranka je nakesovana $tpl = new templatecached('index_tpl.php'); if ($tpl->cached) { //naplneni stranky z cache $page_vars["BODY"] = $tpl->cachecontents; } else { //naplneni reklmanich bloku $block = new adlinkblock(); //naplneni sablony z databaze $block->load("adblock_catalog", 'code'); if ($block->adbid > 0) $index_vars["TITLE_H3"] .= $block->adbtitle; //Adult Paysite Directories $index_vars["ADBLOCK_MIDLE"] .= $block->getadvertblock("adblock_midle"); //Friendly Great Sites $index_vars["ADBLOCK_MIDLEBOTTOM"] .= $block->getadvertblock("adblock_midlebottom"); $index_vars["ADBLOCK_MIDLEBOTTOMSUB"] .= $block->getadvertblock("adblock_midlebottomsub", 0, "", " | "); if (SERVER_CODE == SERVER_CODE_ASM || SERVER_CODE == SERVER_CODE_APSM) { //naplneni zalozek katalogu na uvodni strance $lst = new tablelist("catalog"); $lst->setfields("catid, catcode, catname, catnames"); $lst->addcond("catmasid=0"); $lst->addcond("catid!=".SERVER_ROOTADMINCATID); $lst->addcond("catdisable=0"); $lst->addorderby("catorder"); $lst->uselimit = false; //$lst->limit = 10; $lst->load(); while ($row = $lst->rs->fetch_object()) { $catname = ($row->catnames != "" ? $row->catnames : $row->catname); $maintabs .= '
'.a_hrefmr("catalog", $row->catid, $row->catname, $row->catcode).' - '; $tabs .= getcatlevitemlist($row->catid, "", ' | ', false, false, true, "case when catnames is not null AND catnames != '' then catnames else catname end")."
adiurlkey).'">
adiurlkey).'">'.$adi->adiname.'
'.substr($adi->aditext, 0, 90).(strlen($adi->aditext) > 90 ? ' ...' : '').'