check for qra locator and offer alternative

[spider.git] / cmd / set / page.pl

diff --git a/cmd/set/page.pl b/cmd/set/page.pl
index f7dc64dc19015e3b9b489ffc76de9f64f21e4505..cb997c93059a7fe4c7d94ea25bea0062cf9a93c9 100644 (file)
--- a/cmd/set/page.pl
+++ b/cmd/set/page.pl
@@ -7,7 +7,8 @@
 #
 my $self = shift;
 my $l = shift;
-$l = 20 if $l = 0;
+$l = 20 if $l == 0;
 $l = 10 if $l < 10;
 $self->pagelth($l);
-return (1);
+$self->user->pagelth($l);
+return (1, $self->msg('pagelth', $l));