# HG changeset patch
# User HIROSE Yuuji <yuuji@gentei.org>
# Date 1529124212 -32400
# Node ID 6906c140431a287016ed94d62459da0f51c67aac
# Parent  d879d9d1acb726e5b99d265849b1edd4e5dd3232
Fix pattern: Allow spaces for group name in group listing

diff -r d879d9d1acb7 -r 6906c140431a s4-funcs.sh
--- a/s4-funcs.sh	Sat Jun 16 13:25:55 2018 +0900
+++ b/s4-funcs.sh	Sat Jun 16 13:43:32 2018 +0900
@@ -1947,7 +1947,7 @@
     echo "<h2>$tn</h2>"
     echo '<table class="b listgroup">'
     sq -header -html $db "$sql" \
-       | sed "s,\(<TR><TD>\)\([0-9]*\):\([^ ]*\)</TD>,\1$href\2\">\3</a>,"
+      | sed "s,\(<TR><TD>\)\([0-9]*\):\([^<]*\)</TD>,\1$href\2\">\3</a>,"
     echo '</table>'
   done
   echo '</div>'