# HG changeset patch
# User HIROSE Yuuji <yuuji@gentei.org>
# Date 1592701692 -32400
# Node ID f2d69fb3e03865d46d1e0001bf65ee8a8cbc230d
# Parent  e9817a71f332325db58c8e0cff582d99cef43964
Link to group list in other world with kwd

diff -r e9817a71f332 -r f2d69fb3e038 s4-world.sh
--- a/s4-world.sh	Sun Jun 21 09:50:32 2020 +0900
+++ b/s4-world.sh	Sun Jun 21 10:08:12 2020 +0900
@@ -203,9 +203,11 @@
     read ans
     if [ -n "$ans" ]; then
       w=`echo $wname|htmlescape`
+      u="<a href=\"$cgi?grps\"><span class=\"pre\">$w</span></a>"
+      s="(<a href=\"$cgi?stage=grps&kwd=$kwd\">絞込</a>)"
       cat<<-EOF
 	<tr>
-	 <tr><td><a href="$cgi?grps"><span class="pre">$w</span></a></td>
+	 <tr><td>$u $s</td>
 	 <td>$ans</td>
 	</dl>
 	EOF
@@ -227,7 +229,7 @@
     worldname=${wd%:*}
     d=${wd#*:}
     if [ ! $db -ef $d -a -s $d ]; then
-      grepgrpworld "$world" "$worldname" "$1" "$d" "$cond"
+      grepgrpworld "$world" "$worldname" "$arg" "$d" "$cond"
     fi
   done | {
     result=`cat`