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.8 -r1.9
--- openacs-4/packages/acs-core-docs/www/sql/display-sql.tcl	29 Jun 2015 13:15:58 -0000	1.8
+++ openacs-4/packages/acs-core-docs/www/sql/display-sql.tcl	7 Aug 2017 23:47:54 -0000	1.9
@@ -35,11 +35,7 @@
     ad_script_abort
 }
 
-if {$package_key ne ""} {
-    set safe_p [regexp {/?(.*)} $url package_url]
-}
 
-
 if {$db eq ""} { 
 
     # if we were not passed a DB string get a list of matching files.
@@ -62,13 +58,19 @@
 
     # we have a db.  
 
+
     if {$db eq "sql"} { 
         set files [glob -nocomplain "[acs_package_root_dir $package_key]/sql/$url"]       
     } else { 
         set files [glob -nocomplain "[acs_package_root_dir $package_key]/sql/$db/$url"]       
     }
-        
 
+    if {$package_key ne ""} {
+        set safe_p [regexp {/?(.*)} $url package_url]
+    } else {
+        set safe_p 0
+    }
+
     if { $safe_p && [llength $files] > 0 } {
         ns_returnfile 200 text/plain $files
     } else {
@@ -78,3 +80,9 @@
 }
 
 
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: