1.1 --- a/s4-cgi.sh	Mon Apr 13 08:27:52 2020 +0900
     1.2 +++ b/s4-cgi.sh	Mon Apr 13 08:48:13 2020 +0900
     1.3 @@ -3,10 +3,11 @@
     1.4  #
     1.5  cgi_form() {
     1.6    # $1=stage
     1.7 +  # $METHOD := method, defaults to "POST"
     1.8    : ${myname:?'Sure to set $myname to this script name'}
     1.9    cont=`cat`
    1.10    cat<<EOF
    1.11 -<form action="$myname" method="POST" enctype="multipart/form-data">
    1.12 +<form action="$myname" method="${METHOD:-POST}" enctype="multipart/form-data">
    1.13  $cont
    1.14  <input type="hidden" name="stage" value="$1">
    1.15  <input type="submit" value="送信">

     2.1 --- a/s4-funcs.sh	Mon Apr 13 08:27:52 2020 +0900
     2.2 +++ b/s4-funcs.sh	Mon Apr 13 08:48:13 2020 +0900
     2.3 @@ -2176,6 +2176,7 @@
     2.4  ## err LE:sql.1="$sql"
     2.5    total=`query "with x as ($sql) select count(*) from x;"`
     2.6    echo "${entity} 一覧" | html h2
     2.7 +  METHOD=GET
     2.8    if [ $total -gt $limit ]; then
     2.9      echo '<div class="right">'
    2.10      cgi_form $stage <<EOF
    2.11 @@ -2188,7 +2189,7 @@
    2.12  	`cgi_hidden kwd \"$kwd\"`
    2.13  	`cgi_hidden stage \"$stage\"`"
    2.14    cat<<EOF
    2.15 -  <form action="$myname" method="POST">
    2.16 +  <form action="$myname" method="$METHOD">
    2.17    <p>${total}件中の<input class="hidesub" type="text" name="start"
    2.18    value="$((offset+1))" size="3">件めから${kwd:+" - 検索語: $kwd"}$hiddens
    2.19    <input type="submit" value="確定"></p>
    2.20 @@ -2197,7 +2198,7 @@
    2.21    if [ $((offset+limit)) -lt $total ]; then
    2.22      nextbtn=$(
    2.23      cat<<EOF
    2.24 -<div class="right clear"><form action="$myname" method="POST">
    2.25 +<div class="right clear"><form action="$myname" method="$METHOD">
    2.26  `cgi_submit 次の${limit}件`
    2.27  $hiddens
    2.28  `cgi_hidden offset $((offset + limit))`</form></div>
    2.29 @@ -2207,7 +2208,7 @@
    2.30    if [ $offset -gt 0 ]; then
    2.31      prevbtn=$(
    2.32      cat<<EOF
    2.33 -<form action="$myname" method="POST">
    2.34 +<form action="$myname" method="$METHOD">
    2.35  `cgi_submit 前の${limit}件`
    2.36  $hiddens
    2.37  `cgi_hidden offset $((offset - limit))`</form>