@auto[]
$number_per_section(10)

@title[]
Herut news

@content[howmuch]
$response:pragma[no-cache]

^if(def $form:comments){
^connect[$connect_string]{
<div align=justify style="width: 85%">
<br>

#$news[^table::sql{SELECT * FROM news, uploaded WHERE showit=1
##AND news.imagenumber=uploaded.id ORDER BY news.id DESC}]

$news[^table::sql{SELECT * FROM news WHERE id=$form:comments AND showit=1 ORDER BY news.id DESC}]
$comments[^table::sql{SELECT * FROM comments WHERE news_id=$form:comments ORDER BY comments.id DESC}]



^news.menu{

#<small><strong><a name=#$news.id>$news.date</a></strong></small><br>

<br clear=right>
<strong>^untaint[as-is]{$news.title}</strong><br>$news.date<br>$xxx[$news.alltext] ^untaint[as-is]{^xxx.match[^#0A][g]{ }}<br><br><br><br>}
# <strong>$news.title</strong><br>^untaint[as-is]{$news.alltext}<br><br><br><br>}

<br><br>

}

<a name=view></a>
^comments.menu{<small>
#$comments.id<br>
$comments.date</small> - $comments.name <br><br><b>$comments.title<br></b>$comments.text <br><p> }
<br>
<br>

<a name=add></a>
<form name=comments action=comments_add.html method=post>
Name:<br>
<input name=name type=text><br>
<input type=hidden name=comments value="$form:comments">
Title:<br>
<input name=title type=text><br>

email:<br>
<input name=email type=text><br>
Comments:<br>

<textarea rows=10 cols=50 name=text></textarea><br>
<input type=checkbox name=agree>check here, please (spamprotection)<br>
<input type=submit value="Send"><br>
</form>
<br>

</div>
}{




## Regular news

^connect[$connect_string]{
<div align=justify style="width: 75%">
<br>

$news[^table::sql{SELECT * FROM news WHERE showit=1 ORDER BY news.id DESC}]
$news_number(^form:no.int(1))
$table_count(^news.count[])
^if($news_number == 0 || $news_number > $table_count){$news_number(1)}
$sum1($news_number)
$sum2($news_number+$number_per_section-1)

##########
#^news.menu{
#$line_table[^news.line[]]
#<div align=left dir=rtl>
#	^if($line_table >= $sum1 && $line_table <= $sum2){<br>$news.id<hr>}
#</div>
#}
##########

^news.menu{
$line_table[^news.line[]]
^if($line_table >= $sum1 && $line_table <= $sum2){
<small><strong>$news.date</strong></small><br>
^if($news.imagenumber eq 0){}{
$news_img[^image::measure[images/$news.name]] 
^news_img.html[ 
   $.border[0] 
   $.alt[]
   $.align[left]
   $.hspace[20]
  $.vspace[20]
]
}<br clear=right>
<strong><a name=#$news.id>^untaint[as-is]{$news.title}</a></strong><br>$xxx[$news.alltext] ^untaint[as-is]{^xxx.match[^#0A][g]{ }}<br><br><br><br>}



<a href=news.html?comments=$news.id#add>Post a new comment</a>&nbsp^;&nbsp^;&nbsp^;
$comments_count[^table::sql{SELECT * FROM comments WHERE news_id=$news.id}]
^if(def $comments_count){<a href=news.html?comments=$news.id#view>(^comments_count.count[]) View</span> </a></span>}{(No comments yet)}

<br><br>

# <strong>$news.title</strong><br>^untaint[as-is]{$news.alltext}<br><br><br><br>}
}
<br><br>
<small>^scroller[$news_number;$table_count;$number_per_section]</small>





}}

@scroller[news_number;table_count;number_per_section][first_number;second_number]
$first_number(1)
$second_number($number_per_section)
^if($number_per_section == 1){
	^for[f1](1;$table_count){
		^post_link[$f1;$f1;$news_number]
	}
}{
$section(^math:ceiling($table_count/$number_per_section))
	^for[f2](1;$section){
		^if($second_number > $table_count){ 
			^post_link[$first_number;^if($first_number != $table_count){<nobr>${first_number}-$table_count</nobr>}{$first_number};$news_number] 
		}{
			^post_link[$first_number;
<nobr>${first_number}-$second_number</nobr>;$news_number] 
		} 
		^first_number.inc($number_per_section)
		^second_number.inc($number_per_section)
	}[ | ]
}


@post_link[first_number;text_link;news_number][text_link] 
^if($news_number != $first_number){ 
	$result[<a href="news.html?no=$first_number">$text_link</a>]
}{
	$result[$text_link]
}