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.