Index: openacs-4/packages/static-pages/tcl/static-pages-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/static-pages/tcl/static-pages-procs.tcl,v diff -u -N -r1.11 -r1.11.2.1 --- openacs-4/packages/static-pages/tcl/static-pages-procs.tcl 6 Sep 2002 12:02:27 -0000 1.11 +++ openacs-4/packages/static-pages/tcl/static-pages-procs.tcl 4 Dec 2002 22:10:24 -0000 1.11.2.1 @@ -219,7 +219,22 @@ } } + # TODO: This is very wrong. Should NEVER just delete all content! + # Note that the canonical content of the file itself lives in the + # fileystem and can easily be re-imported to the database, but + # this ALSO blindly deletes all user-contributed comments which + # point to the file! + # + # See also: http://openacs.org/bboard/q-and-a-fetch-msg.tcl?msg_id=0002U2 + # + # --atp@piskorski.com, 2001/08/13 15:07 EDT + # Clean up any files that are in the db but no longer in the filesystem: + + # TODO: Why are we doing these two deletes after calling + # static_page.delete_stale_items? + # --atp@piskorski.com, 2001/08/23 02:20 EDT + set package_id [ad_conn package_id] db_exec_plsql delete_old_files { begin