Index: openacs-4/packages/file-storage/www/url-goto.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/url-goto.tcl,v
diff -u -r1.2 -r1.2.2.1
--- openacs-4/packages/file-storage/www/url-goto.tcl	10 Sep 2002 22:22:56 -0000	1.2
+++ openacs-4/packages/file-storage/www/url-goto.tcl	20 Mar 2003 22:14:12 -0000	1.2.2.1
@@ -8,14 +8,11 @@
     url_id:notnull
 } 
 
-# Check for write permission on this folder
+# Check for read permission on this url
 ad_require_permission $url_id read
 
-# Check the URL
-set url [db_string select_url "select url from fs_urls where url_id= :url_id" -default ""]
-
-if {![empty_string_p $url]} {
-    ad_returnredirect $url
-} else {
+if { ![db_0or1row select_url {}] } {
     return -code error "no such URL"
 }
+
+ad_returnredirect $url