[wellwell-devel] [wellwell] Fix undeclared variables and use of bareword in custom paging subroutine.

[Stefan Hornburg]

commit d7f419240224970ae006435dcbe8d943eb4e05f9
Author: Stefan Hornburg (Racke) <racke at linuxia.de>
Date:   Tue May 8 11:28:39 2012 +0200

    Fix undeclared variables and use of bareword in custom paging subroutine.

 code/paging.sub |    7 ++++---
 1 files changed, 4 insertions(+), 3 deletions(-)
---
diff --git a/code/paging.sub b/code/paging.sub
index ab58622..04d73f0 100644
--- a/code/paging.sub
+++ b/code/paging.sub
@@ -3,8 +3,9 @@ sub {
 	my ($next, $prev, $page, $border, $border_selected, $opt, $r) = @_;
 	my ($q, $pages, $first, $curpage, $url, @links, @labels, @more, $base_url, 
 	    $prefix, $suffix, $session, $form_arg, $nav, $ml, $matches, $replace, 
-            $out, $link_prefix, $link_suffix, $redux, %active, %indirect);
-	
+        $out, $link_prefix, $link_suffix, $redux, %active, %indirect,
+        $search_page, $start, $end, $more);
+
 	$q = $opt->{object} || $::Instance->{SearchObject}{$opt->{label}};
 	return '' unless $q->{matches} > $q->{mv_matchlimit}
 		and $q->{mv_matchlimit} > 0;
@@ -176,7 +177,7 @@ sub {
 		}
 		$end = $start + $ml - 1;
 		if ($end > $matches) {
-			$end = matches;
+			$end = $matches;
 		}
 	    	$nav = join(':', $session, $start, $start + ($ml-1), $ml);
 		if ($form{category}) {