@auto[]
^use[scroller.p]

#####################################################################
# 
#
@initMain[]
^if(def $form:query){
	$pageTitle[$form:query on $pageTitle]
}{
	$pageTitle[Search software on $pageTitle]
}

#####################################################################
# 
#
@bodyMain[][]

^mainSearch[]

^switch[$form:do]{
	^case[search]{
		^blockSearchData[$form:query;$form:category;$form:in;$form:mode;25;$form:n]
	}
	^case[DEFAULT]{
		^blockSearchForm[]
	}
}

#####################################################################
# Ищем и формируем вывод
#
@blockSearchData[query;catID;in;mode;limit;offset][rep;programs;desc;progHash]
<!-- Searching: $query, $catID, $in, $mode -->
<H2>Best $query software</H2>
<img src="$ROOT/pics/line1.gif" width="548" height="4" vspace="2"><br> 

^if(def $query){
$rep[^table::create{from   to 
$query	<B>$query</B>}] 
}

$count[^DATA.searchPrograms[$query;$catID;$in;$mode]]
$pagesScroller[^scroller::init[$count;$programsOnPage;page]]
$programs[^DATA.searchPrograms[$query;$catID;$in;$mode;^if(def $cookie:sortsearch){$cookie:sortsearch ^if($cookie:direction ne "0"){DESC}{ASC}};$pagesScroller.limit;$pagesScroller.offset]]

<TABLE width="100%" cellpadding="0" cellspacing="0" border="0">
<TR>
	<TD align="left">		
	^blockSort[sortsearch]
	</TD>
	<TD align="right">
	^pagesScroller.print[
		$.mode[html]
		$.target_url[/key/$query/]
		$.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{
	$progHash[$programs.fields]
	$desc[$progHash.Char_Desc_250]
	^if(def $query){$desc[^desc.replace[$rep]]}
	$progHash.Char_Desc_250[$desc]
	^blockProgramShort[$progHash]
}[<IMG src="$ROOT/pics/dots1.gif" width="548" height="1" vspace=5><BR>]
</DIV>

#####################################################################
# Форма поиска
#
@blockSearchForm[]
<DIV id="anyform">
    <h2>Software advanced search</h2> <img src="pics/line1.gif" width="548" height="4" vspace=2><br> 
	<FORM name="search" action="$ROOT/search.htm" method="POST">
#	 onSubmit="document.search.action= escape(escape(document.search.query.value))">
#	SetSearchPage(document.search.query)">
	<INPUT type="hidden" name="do" value="search">
	<TABLE width="100%" cellpadding="2" cellspacing="1" border="0">
		<TR>
			<TD><STRONG>Search for:</STRONG></TD>
			<TD><INPUT type="text" name="query" value="" size="40"></TD>
		</TR>
		<TR>
			<TD><STRONG>Choose category:</STRONG></TD>
			<TD>^blockSearchCats[]</TD>
		</TR>
		<TR>
			<TD><STRONG>Search in:</STRONG></TD>
			<TD>
				<SPAN class="item"><INPUT type="radio" name="in" value="1" checked> Title</SPAN>
				<SPAN class="item"><INPUT type="radio" name="in" value="2"> Description</SPAN>
				<SPAN class="item"><INPUT type="radio" name="in" value="3"> Everywhere</SPAN>
			</TD>
		</TR>
		<TR>
			<TD><STRONG>Match mode:</STRONG></TD>
			<TD>
				<SPAN class="item"><INPUT type="radio" name="mode" value="1" checked> All words</SPAN>
				<SPAN class="item"><INPUT type="radio" name="mode" value="2"> Any word</SPAN>
				<SPAN class="item"><INPUT type="radio" name="mode" value="3"> Exact phrase</SPAN>
			</TD>
		</TR>
		<TR>
			<TD>&nbsp^;</TD>
			<TD><INPUT type="submit" value="Search">
		</TR>
	</TABLE>
	</FORM>
</DIV>

#####################################################################
# Формирует список категорий
#
@blockSearchCats[][mainCats;subCats]
<SELECT name="category">
	<OPTION value="">*** All categories ***</OPTION>
	^DATA.mainCats.menu{
		<OPTION value="$DATA.mainCats.CID">$DATA.mainCats.Title</OPTION>
		^DATA.subCats.[$DATA.mainCats.CID].menu{
			<OPTION value="$DATA.subCats.[$DATA.mainCats.CID].CID">$DATA.mainCats.Title :: $DATA.subCats.[$DATA.mainCats.CID].Title</OPTION>
		}
	}
</SELECT>