Superpage cannot be unset in QP core

Signed-off-by: Jared Camins-Esakov <jcamins@cpbibliography.com>

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/QueryParser.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/QueryParser.pm
index f5e8673..ed90384 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/QueryParser.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/QueryParser.pm
@@ -1149,7 +1149,7 @@ Return and/or set the superpage.
 sub superpage {
     my $self = shift;
     my $l = shift;
-    $self->{superpage} = $l if ($l);
+    $self->{superpage} = $l if (defined($l));
     return $self->{superpage};
 }