--- trunk/WebPac.pm	2003/07/15 15:07:42	112
+++ trunk/WebPac.pm	2003/07/16 15:49:56	114
@@ -177,7 +177,14 @@
 
 			my @result;
 			for (my $i=0; $i<$rows; $i++) {
-				push @result, $swish_results[$offset+$i] if $swish_results[$offset+$i];
+				my $r = $swish_results[$offset+$i];
+				if ($r && $q->param('show_full')) {
+					push @result, $r;
+				} elsif ($r) {
+					# if not full output, skip html
+					delete $r->{html};
+					push @result, $r;
+				}
 			}
 			return \@result;
 		},