changeset 765:f36f1f148a4f feature-world

unsetpar merged from default
author HIROSE Yuuji <yuuji@gentei.org>
date Sun, 07 Jun 2020 19:28:37 +0900
parents d1f60cdc3e1a (current diff) 41e443a925c8 (diff)
children 2cff065862fd
files s4-funcs.sh
diffstat 1 files changed, 11 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/s4-funcs.sh	Sun Jun 07 19:27:46 2020 +0900
+++ b/s4-funcs.sh	Sun Jun 07 19:28:37 2020 +0900
@@ -717,6 +717,16 @@
   fi
   query "replace into par values('$session', '$1', '$2', \"$3\");"
 }
+unsetpar() {
+  for i; do
+    if [ x"$session" = x"$main_session" ]; then
+      case "$i" in
+	user|skey) unset _$i ;;
+      esac
+    fi
+    query "DELETE FROM par WHERE var='$i';"
+  done
+}
 replpar() {
   query "update par set val=\"$3\" where sessid='$session' and var='$1' and type='$2';"
 }
@@ -1755,6 +1765,7 @@
 	 (select id from blog_s where key='owner' and val=$qgname);"
 	err rm-grp cleaning sql=`echo $sql`
 	query "$sql";
+	unsetpar tag kwd
 	grps			# When removing a group, switch to grp-list
 	return			# and return
       fi

yatex.org