remove $Id$ strings from everywhere that I can find

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

diff --git a/cmd/set/page.pl b/cmd/set/page.pl
index f7dc64dc19015e3b9b489ffc76de9f64f21e4505..38598945c5d966f07cfb3ecc1069e48f41ba5e81 100644 (file)
--- a/cmd/set/page.pl
+++ b/cmd/set/page.pl
@@ -3,11 +3,11 @@
 #
 # Copyright (c) 1998 - Dirk Koopman G1TLH
 #
-# $Id$
+#
 #
 my $self = shift;
 my $l = shift;
-$l = 20 if $l = 0;
-$l = 10 if $l < 10;
+$l = 10 if $l < 10 && $l > 0;
 $self->pagelth($l);
-return (1);
+$self->user->pagelth($l);
+return (1, $self->msg('pagelth', $l));