Index: openacs-4/packages/schema-browser/tcl/schema-browser-procs-oracle.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/schema-browser/tcl/schema-browser-procs-oracle.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/schema-browser/tcl/schema-browser-procs-oracle.tcl	16 Sep 2013 09:54:29 -0000	1.3
+++ openacs-4/packages/schema-browser/tcl/schema-browser-procs-oracle.tcl	27 Jun 2015 20:15:21 -0000	1.4
@@ -35,7 +35,8 @@
                  if { $table_name == $selected_table_name } {
                      append return_string "<td><b>[string tolower $table_name]</b></td>"
 	         } else {
-                     append return_string "<td><a href=\"index?[export_vars -url {table_name}]\">[string tolower $table_name]</a></td>"
+		     set href [export_vars -base index {table_name}]
+		     append return_string [subst {<td><a href="[ns_quotehtml $href]">[string tolower $table_name]</a></td>}]
                  }
 	     }
           
@@ -62,7 +63,9 @@
         where
              table_name = upper(:table_name)
     " {
-        append return_string "\n--\t<a href=\"trigger?[export_vars -url {trigger_name}]\">$trigger_name</a> $triggering_event $trigger_type $status"
+	set href [export_vars -base trigger {trigger_name}]
+        append return_string [subst {
+	    --\t<a href="[ns_quotehtml $href]">$trigger_name</a> $triggering_event $trigger_type $status}]
     } if_no_rows {
         append return_string "\n--\tnone"
     }