Index: openacs-4/packages/acs-api-browser/www/content-page-view.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/content-page-view.tcl,v diff -u -r1.5.4.3 -r1.5.4.4 --- openacs-4/packages/acs-api-browser/www/content-page-view.tcl 14 Sep 2013 12:36:13 -0000 1.5.4.3 +++ openacs-4/packages/acs-api-browser/www/content-page-view.tcl 16 Oct 2013 20:08:07 -0000 1.5.4.4 @@ -2,7 +2,7 @@ Displays information about a content page. @param version_id the id of the package version the file belongs to - @param path the path and filename of the page to document, relative to [acs_root_dir] + @param path the path and filename of the page to document, relative to $::acs::rootdir @author Jon Salz (jsalz@mit.edu) @author Lars Pind (lars@pinds.com) @@ -52,7 +52,7 @@ lappend context [file tail $path] -set filename "[acs_root_dir]/$path" +set filename "$::acs::rootdir/$path" if {[regsub -all {[.][.]/} $filename "" shortened_filename]} { ns_log notice "INTRUDER ALERT:\n\nsomesone tried to snarf '$filename'!\n file exists: [file exists $filename]\n user_id: [ad_conn user_id]\n peer: [ad_conn peeraddr]\n"