Index: openacs-4/packages/acs-core-docs/www/sql/display-sql.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-core-docs/www/sql/display-sql.adp,v
diff -u -r1.2 -r1.2.2.1
--- openacs-4/packages/acs-core-docs/www/sql/display-sql.adp	22 May 2003 14:03:54 -0000	1.2
+++ openacs-4/packages/acs-core-docs/www/sql/display-sql.adp	17 Nov 2003 15:03:03 -0000	1.2.2.1
@@ -2,4 +2,4 @@
 <property name="title">SQL Display</property>
 <property name="context">@context;noquote@</property>
 
-@text@
+@text;noquote@
Index: openacs-4/packages/acs-core-docs/www/sql/display-sql.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-core-docs/www/sql/display-sql.tcl,v
diff -u -r1.3 -r1.3.8.1
--- openacs-4/packages/acs-core-docs/www/sql/display-sql.tcl	18 Sep 2002 14:54:48 -0000	1.3
+++ openacs-4/packages/acs-core-docs/www/sql/display-sql.tcl	17 Nov 2003 15:03:03 -0000	1.3.8.1
@@ -44,16 +44,18 @@
 
     # if we were not passed a DB string get a list of matching files.
 
-    set text {}
+    set text {<ul>}
     set files [glob -nocomplain "[acs_package_root_dir $package_key]/sql/*/$url" "[acs_package_root_dir $package_key]/sql/$url"]
     foreach f $files { 
         regexp {([^/]*)/([^/]*)$} $f match db url
         append text "<li> <a href=\"display-sql?[export_url_vars db url package_key]\">$db</a></li>"
     }
-    if {[empty_string_p $text]} { 
-        set text "<li> No sql file found."
+    if {[empty_string_p $files]} { 
+        append text "<li> No sql file found."
     }
+    append text {</ul>}
     set context [list [list ../$package_key $package_key] "SQL Display"]
+
 } else { 
 
     # we have a db.