--- a/s4-funcs.sh	Sat Feb 20 09:13:33 2016 +0859
+++ b/s4-funcs.sh	Sat Feb 20 10:03:59 2016 +0859
@@ -420,14 +420,15 @@
   fi
   echo  "\">`gecos $1`</a>"
 }
-acclog() {
+acclog() (
   # $1=table, $2=rowid
-  if [ -n "$2" ]; then
+  n=${2%%[!0-9]*}	# Remove non-digit chars from $2(should be rowid)
+  if [ -n "$n" ]; then
     now=`date +"%F %T"`
-    query "replace into acclog values('$user', '$1', '$2', '$now');"
-    #query "replace into acclog values('$user', '$1', $2, '$now');"
+    #query "replace into acclog values('$user', '$1', '$n', '$now');"
+    query "replace into acclog values('$user', '$1', $n, '$now');"
   fi
-}
+)
 gecos() (
   u=`sqlquote ${1:-$user}`
   #gecos=`query "select val from user_s where name='$u' and key='gecos';"`