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 4f76d2a46abbf9b537d58460bd5ad1753864da37..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);
+$self->user->pagelth($l);
 return (1, $self->msg('pagelth', $l));