@auto[]
^use[scroller.p]

#####################################################################
# 
#
@initMain[][subCats]
^if(^DATA.mainCats.locate[Nick;$form:cat]){
	$catCumbs[
		<H2>
		<A href="$ROOT/">Home</A> ::
		$subCats[$DATA.subCats.[$DATA.mainCats.CID]]
		^if(def $form:subcat && ^subCats.locate[Nick;$form:subcat]){
			<A href="$ROOT/db/$form:cat/">$DATA.mainCats.Title</A> :: $subCats.Title
			$CID[$subCats.CID]
			$catURL[$ROOT/db/$form:cat/$form:subcat/]
			</H2>
		}{
			$CID[$DATA.mainCats.CID]
			$catURL[$ROOT/db/$form:cat/]
			$DATA.mainCats.Title
			</H2>
			^subCats.menu{
				<DD><A href="/db/$DATA.mainCats.Nick/$subCats.Nick/">$subCats.Title</A></DD>
			}
		}
		<BR>
	]
	$pageTitle[$subCats.Title on $pageTitle]
}

#####################################################################
# 
#
@bodyMain[][programs;count]

^mainSearch[]

# Находим главную категорию по нику
^if(def $catCumbs){

	$catCumbs
	<img src="$ROOT/pics/line1.gif" width="548" height="4" vspace=2><br> 
	
	$count[^DATA.getProgramsCount[$CID]]
	$pagesScroller[^scroller::init[$count;$programsOnPage;page]]
	$programs[^DATA.getPrograms[$CID;^if(def $cookie:sortlist){$cookie:sortlist ^if($cookie:direction ne "0"){DESC}{ASC}}{Site_Submitted DESC};$pagesScroller.limit;$pagesScroller.offset]]
	
	<TABLE width="100%" cellpadding="0" cellspacing="0" border="0">
	<TR>
		<TD align="left">		
		^blockSort[sortlist]
		</TD>
		<TD align="right">
		^pagesScroller.print[
			$.mode[html]
			$.target_url[$catURL]
			$.back_name[<]
			$.forward_name[>]
			$.title[Pages: ]
			$.rewrite[1]
		]
		</TD>
	</TR>
	</TABLE>
	<IMG src="$ROOT/pics/dots1.gif" width="548" height="1" vspace=5><BR>
	
	<DIV id="programList">
	^programs.menu{
		^blockProgramShort[$programs.fields]
	}[<IMG src="$ROOT/pics/dots1.gif" width="548" height="1" vspace=5><BR>]
	</DIV>
}