Index: openacs-4/packages/static-pages/www/page-visit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/static-pages/www/page-visit.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/static-pages/www/page-visit.tcl 20 Apr 2001 20:51:22 -0000 1.1 +++ openacs-4/packages/static-pages/www/page-visit.tcl 30 Oct 2001 23:09:33 -0000 1.2 @@ -16,10 +16,13 @@ # The filename must begin "[acs_root_dir]/www" to be valid. These leading # characters will then be stripped off to produce the URL. +# DaveB: not anymore! We chop off that part and just stuff the relative +# path in the database to allow leaving the static-pages in the filesystem # -if { [string first "[acs_root_dir]/www" $filename] != 0 } { - ad_return_error "Error in filename" "This page has an invalid filename." -} +#if { [string first "[acs_root_dir]/www" $filename] != 0 } { +# ad_return_error "Error in filename" "This page has an invalid filename." +#} + ad_returnredirect [string range $filename [string length "[acs_root_dir]/www"] end]