@auto[]

#####################################################################
# 
#
@bodyMain[][CID;catCumbs;subCats;progHash]

^mainSearch[]

# Находим главную категорию по нику
^if(^DATA.mainCats.locate[Nick;$form:cat]){ 
	$catCumbs[
		<DIV id="categories">
		<H2>
		<A href="$ROOT/">Home</A> ::
		$subCats[$DATA.subCats.[$DATA.mainCats.CID]]
		^if(^subCats.locate[Nick;$form:subcat]){
			<A href="$ROOT/db/$form:cat/">$DATA.mainCats.Title</A> :: <A href="$ROOT/db/$form:cat/$form:subcat/">$subCats.Title</A>
			$CID[$subCats.CID]
			</H2>
		}
		</DIV>
	]

	$catCumbs
	<IMG src="$ROOT/pics/line1.gif" width="548" height="4" vspace=2><BR> 
	
	$progHash[^DATA.getProgram[$form:program]]
	^makeLinks[$progHash]

	<TABLE width="100%" cellpadding="0" cellspacing="0" border="0">
	<TR>
		<TD align="center" valign="middle" width="40">
			<IMG src="$iconURI" width="32" height="32" alt="Icon">
		</TD>
		<TD valign="middle" width="*">
		<H2>
			$progHash.Program_Name $progHash.Program_Version
		</H2>
		<SMALL>
			<A href="$progHash.Application_Info_URL" target="_blank">Homepage</A> ::
			<A href="#" onClick="$shotURI">Screenshot</A> ::
			<A href="$downURI" target="_blank">Download now! ($progHash.File_Size_K Kb)</A>
		</SMALL>
		</TD>
		<TD align="right" valign="middle">
			$progHash.Program_Type^if($progHash.Program_Cost_Dollars > 0){, Price: <B>^$$progHash.Program_Cost_Dollars</B>}<BR>
		</TD>
	</TR>
	</TABLE>
	
	<BR>
	
	^prepareDescription[$progHash.Char_Desc_2000]<BR><BR>

	<B>Works on:</B> $progHash.Program_OS_Support<BR>
	<B>System requirements:</B> $progHash.Program_System_Requirements

	<BR><BR>
	<SMALL>Related: ^keywords2links[$progHash.Keywords]</SMALL>

	<!-- Program ID: $progHash.PID -->
	
	^DATA.touchProg[$progHash.PID;hits]	
}

#####################################################################
# 
#
@prepareDescription[desc][rep]
$result[^desc.match[\n|\r][g]{<BR>}]
$result[^untaint[html]{$result}]