# HG changeset patch
# User HIROSE Yuuji <yuuji@gentei.org>
# Date 1499995533 -32373
# Node ID 4769510d616905828ed306a2c16b0ba421353c0b
# Parent  39823dfee44f31deb518a87a4a0ee2d81d237aef
Multiple Page Listing allows user specification of starting number

diff -r 39823dfee44f -r 4769510d6169 s4-funcs.sh
--- a/s4-funcs.sh	Sat Jul 01 22:43:22 2017 +0859
+++ b/s4-funcs.sh	Fri Jul 14 10:25:06 2017 +0859
@@ -1931,8 +1931,11 @@
   # Referring variable $iamowner=$grp to attach owner-request links
 ## err listentry: \$1=$1 \$2=$2 \$3=$3
   cond='' hiddens=''
-  offset=`getpar offset`
-  offset=${offset%%[!0-9]*}
+  offset=`getpar offset`; offset=${offset%%[!0-9]*}
+  if [ -z "$offset" ]; then
+    offset=`getpar start`; offset=${offset%%[!0-9]*}
+    offset=$((offset-1))
+  fi
   offset=$((offset + 0))	# change to numeric forcibly
   [ $offset -lt 0 ] && offset=0
   limit=30
@@ -2028,7 +2031,11 @@
 	`cgi_hidden kwd \"$kwd\"`
 	`cgi_hidden stage \"$stage\"`"
   cat<<EOF
-  <p>${total}件中の$((offset+1))件めから${kwd:+" - 検索語: $kwd"}</p>
+  <form action="$myname" method="POST">
+  <p>${total}件中の<input class="hidesub" type="text" name="start"
+  value="$((offset+1))" size="3">件めから${kwd:+" - 検索語: $kwd"}$hiddens
+  <input type="submit" value="確定"></p>
+  </form>
 EOF
   if [ $((offset+limit)) -lt $total ]; then
     nextbtn=$(