--- no_pager/index.cgi	2006/08/16 23:49:37	19
+++ no_pager/index.cgi	2006/08/17 00:16:51	20
@@ -25,7 +25,12 @@
 
 my $json;
 
-#warn "config = ", dump($config);
+sub debug {
+	my ($text,$var) = @_;
+	print "<pre>$text = ", dump($var), "</pre>";
+}
+
+#debug('config', $config);
 
 sub json {
 	return
@@ -34,12 +39,27 @@
 	'</textarea>';
 }
 
+sub sort_order {
+	my $out;
+
+	my $sort = $q->param('sort');
+
+	$out .= '<select name="sort" id="sort">';
+
+	foreach my $s (@{ $config->{estraier}->{order} }) {
+		my ($text,$value) = %{$s};
+		$out .= qq{<option value="$value"} . 
+			( $sort eq $value ? ' selected' : '' ) .
+			qq{>$text</option>};
+	}
+
+	$out .= '</select>';
+}
+
 sub get_results {
 	my $p = {@_};
 
-	my ($search,$page) = ( $p->{search} || '', $p->{page} || 0);
-
-	warn "get_results( $search , $page )\n";
+	my ($search,$page) = ( $p->{search} , $p->{page});
 
 	sub next_page {
 		return '<div id="next_page">' .
@@ -70,6 +90,7 @@
 	$cond->set_phrase( $search );
 	$cond->set_max( $on_page );
 	$cond->set_skip( $skip );
+	$cond->set_order( $p->{sort} ) if ($p->{sort});
 
 	my $nres = $node->search($cond, ( $config->{estraier}->{depth} || 0 ) );
 
@@ -123,7 +144,8 @@
 			$out .= '<div class="item">' .
 				'<h1>' . $rdoc->attr('@title') . '</h1>' .
 				'<p>' . html_snippet( $rdoc->snippet ) . '</p>' .
-				'<h2>' . attr_regex( $rdoc, 'source' ) . '</h2>';
+				'<strong>' . attr_regex( $rdoc, 'source' ) . '</strong>' .
+				' [' . attr_regex( $rdoc, '@size' ) . ' bytes]<br/>';
 			my $uri = attr_regex( $rdoc, '@uri' );
 			$out .=
 				qq{<a href="$uri"><tt>$uri</tt></a> } .
@@ -153,6 +175,7 @@
 	print get_results(
 		search => $q->param('search') || '',
 		page => $q->param('page') || 0,
+		sort => $q->param('sort') || undef,
 	);
 
 
@@ -161,6 +184,7 @@
 	my $get_results = get_results(
 		search => $q->param('search') || '',
 		page => 1,
+		sort => $q->param('sort') || undef,
 	);
 
 	my $f = $q->path_info;