--- EPrints/search.cgi	2007/06/29 14:53:14	8
+++ EPrints/search.cgi	2007/06/29 15:29:55	9
@@ -18,6 +18,8 @@
 use lib '/home/dpavlin/stem-hr/';
 use StemHR;
 
+my $debug = 1;
+
 my $abs_path = abs_path( $0 );
 $abs_path =~ s!/[^/]*$!/!;  #!fix-vim
 
@@ -83,15 +85,17 @@
     	($results, $terms) = $semantic->find_similar( $similar );
 	}
 
-warn "results = ",dump( $results );
-warn "terms = ",dump( $terms );
+warn "results = ",dump( $results ) if $debug;
+warn "terms = ",dump( $terms ) if $debug;
 	
 	##################################
 	#	TERM BASED CALCULATIONS
 	##################################
 	my @sorted_terms = sort { $terms->{$b} <=> $terms->{$a} } keys %$terms; 
 	my @top_terms = splice( @sorted_terms, $start, $TERMS_TO_DISPLAY );
-	
+
+warn "top_terms = ", dump( @top_terms ) if $debug;
+
 	print "<p>Full query: $full_query</p>\n";
 	print "<p>Related Terms: ". ( join ", ", @top_terms ) ."</p>\n";
 	print "<hr />\n";
@@ -106,7 +110,7 @@
     my @sorted_results = sort { $results->{$b} <=> $results->{$a} } keys %$results; 
 	my @display_results = splice( @sorted_results, $start, $RESULTS_TO_DISPLAY );
 	
-warn dump( @display_results );	
+warn "display results = ", dump( @display_results ) if $debug;
 	
 	##################################
 	#	Access the storage engine to