--- trunk/search/nn-swish.cgi	2002/06/19 15:27:28	68
+++ trunk/search/nn-swish.cgi	2002/06/19 18:04:12	70
@@ -24,12 +24,20 @@
 	my $sh = SWISH->connect('Fork',
 		prog     => "$dir/swish-e",
 		indexes  => "$dir/nn.index",
-		results  => sub { print $_[1]->as_string,"\n" },
+		results  => sub {
+			my ($sh, $hit) = @_;
+
+			print $hit->swishreccount, '<a href="',$hit->swishdocpath,"'>",$hit->swishtitle,"</a> [",$hit->swishrank,"]<br>\n";
+
+#			print $_[1]->as_string,"\n";
+#			my @fields = $hit->field_names;
+#			print "Field '$_' = '", $hit->$_, "'<br>\n" for sort @fields;
+		},
 	);
 
 	die $SWISH::errstr unless $sh;
 
-	$hits = $sh->query($s);
+	$hits = $sh->query("naslov_czs=($s)");
 
 	if ($hits > 0) {
 		print p,hr,"Našeno je $hits zakona...";