Index: openacs-4/packages/acs-api-browser/www/display-sql.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/display-sql.tcl,v
diff -u -N -r1.4.10.3 -r1.4.10.4
--- openacs-4/packages/acs-api-browser/www/display-sql.tcl	16 Oct 2013 20:08:07 -0000	1.4.10.3
+++ openacs-4/packages/acs-api-browser/www/display-sql.tcl	2 Dec 2013 07:04:08 -0000	1.4.10.4
@@ -50,7 +50,7 @@
 # for example
 
 if { [string match "*..*" $url] || [string match "*..*" $package_key] } {
-    ad_return_error "Can't back up beyond the pageroot" "You can't use 
+    ad_return_warning "Can't back up beyond the pageroot" "You can't use 
     display-sql.tcl to look at files underneath the pageroot."
     return
 }
@@ -62,13 +62,13 @@
 if { $safe_p } {
     set sql ""
     set fn [acs_package_root_dir $package_key]/sql/$url
-    if {[file exists $fn]} {
+    if {[file readable $fn]} {
 	if {[catch {
 	    set f [open $fn]; set sql [read $f]; close $f
 	} errorMsg]} {
-	    ad_return_error "Problem reading file" "There was a problem reading $url ($errorMsg)"
+	    ad_return_warning "Problem reading file" "There was a problem reading $url ($errorMsg)"
 	}
     }
 } else {
-    ad_return_error "Invalid file location" "Can only display files in package or doc directory"
+    ad_return_warning "Invalid file location" "Can only display files in package or doc directory"
 }