isearch/commit

CLEANUP: Removed singleton-in-branch warnings (also bugs, but don't really know what the consequences are).

authorJan Wielemaker
Fri Sep 19 10:35:22 2014 +0200
committerJan Wielemaker
Fri Sep 19 10:35:22 2014 +0200
commitec26037e80e16883c224829d9c8897594a0d148d
tree7c4612e6ae762fc43c438a6a09f873deac32b6d3
parentaaf544412845b86f34e76290f07bf34533c6ffdc
Diff style: patch stat
diff --git a/applications/isearch.pl b/applications/isearch.pl
index e0e54b7..0c62747 100644
--- a/applications/isearch.pl
+++ b/applications/isearch.pl
@@ -329,7 +329,6 @@ search_pattern(Label, Target,
 	    rdf_has(Target, P, TN)
 	*-> More = [ rdf(Target, P, TN) ]
 	;   TN = Target,
-	    PN = P,
 	    More = []
 	).
 search_pattern(Label, Target,
@@ -344,7 +343,6 @@ search_pattern(Label, Target,
 	    rdf_has(Target, P, TN)
 	*-> More = [ rdf(Target, P, TN) ]
 	;   TN = Target,
-	    PN = P,
 	    More = []
 	).
 search_pattern(Label, Target, Graph) :-
@@ -788,10 +786,10 @@ html_paginator(Total, Offset, Limit) -->
 	  ),
 	  StartPage is max(0, EndPage-20),
 	  (   select(search(Search0), URLComponents, Cs)
-	  ->  delete(Search0, offset=_, Search)
-	  ;   Search = Search0
-	  ),
-	  parse_url(URL, [search(Search)|Cs])
+	  ->  delete(Search0, offset=_, Search),
+	      parse_url(URL, [search(Search)|Cs])
+	  ;   parse_url(URL, URLComponents)
+	  )
 	},
 	html(div(class(paginator),
 		 [ \prev_page(ActivePage, Limit, URL),