Index: openacs-4/packages/general-comments/www/admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/www/admin/index.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/general-comments/www/admin/index.tcl	28 Jun 2018 10:39:36 -0000	1.10
+++ openacs-4/packages/general-comments/www/admin/index.tcl	3 Sep 2024 15:37:39 -0000	1.11
@@ -20,7 +20,7 @@
 
 # return_url to be passed to various helper pages so that we return to
 # this page with the proper parameters
-set return_url [ad_urlencode index?[export_ns_set_vars url]]
+set return_url [ad_return_url]
 
 # dimensional slider definition
 set dimensional [list \
@@ -114,7 +114,7 @@
 }] {
     set author [person::name -person_id $creation_user]
     set live_version_p [expr {$live_version_p ? $yes : $no}]
-    set approved_p [expr {$approved_p ? $yes : $no}]
+    set approved_p [expr {[string is true -strict $approved_p] ? $yes : $no}]
     set pretty_date [lc_time_fmt $creation_date "%x %X"]
 }