Index: openacs-4/packages/schema-browser/www/column-comments.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/schema-browser/www/column-comments.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/schema-browser/www/column-comments.tcl	9 Sep 2013 17:34:17 -0000	1.3
+++ openacs-4/packages/schema-browser/www/column-comments.tcl	27 Jun 2015 20:15:22 -0000	1.4
@@ -36,20 +36,21 @@
 select comments from user_col_comments where table_name = upper(:table_name) and column_name = upper(:column_name)"
 ]
 
-set page_content "
+set href [export_vars -base index {table_name}]
+set page_content [subst {
 <h2>ArsDigita Schema Browser</h2>
 <hr>
-<a href=\"index?[export_vars -url {table_name}]\">Tables</a> : Column Comment
+    <a href="[ns_quotehtml $href]">Tables</a> : Column Comment
 <p>
 <b>Enter or revise the comment on $table_name.$column_name:</b>
-<form method=post action=\"column-comments-2\">
+<form method=post action="column-comments-2">
 [export_vars -form {table_name column_name}]
-<textarea name=\"comments\" rows=\"4\" cols=\"40\" wrap=soft>$comments</textarea>
+<textarea name="comments" rows="4" cols="40" wrap="soft">$comments</textarea>
 <p>
-<input type=submit value=\"Save comment\">
+<input type="submit" value="Save comment">
 </form>
 <hr>
-"
+}]
 
 
 doc_return 200 text/html $page_content