Index: openacs-4/packages/static-pages/tcl/static-pages-sc-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/static-pages/tcl/static-pages-sc-procs.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/static-pages/tcl/static-pages-sc-procs.tcl 10 Sep 2002 22:23:25 -0000 1.2 +++ openacs-4/packages/static-pages/tcl/static-pages-sc-procs.tcl 12 Sep 2002 22:44:31 -0000 1.3 @@ -1,21 +1,27 @@ -# static-pages/tcl/static-pages-sc-procs.tcl -# implements OpenFTS Search service contracts -# Dave Bauer dave@thedesignexperience.org -# 2001-10-27 +ad_library { + static-pages/tcl/static-pages-sc-procs.tcl + implements OpenFTS Search service contracts -# Right now I am leaving the keywords blank -# in the future we should either extract them from the META keyword tag -# or allow assignment of cr_keywords to static_pages + @author Dave Bauer (dave@thedesignexperience.org) + @creation-date 2001-10-27 + @cvs-id $Id$ +} ad_proc static_page__datasource { object_id } { + Right now I am leaving the keywords blank + in the future we should either extract them from the META keyword tag + or allow assignment of cr_keywords to static_pages + @author Dave Bauer (dave@thedesignexperience.org) -} { + @param object_id the object_id for which to generate the data + +} { set path_stub [cr_fs_path STATIC_PAGES] - db_0or1row sp_datasource "" -column_array datasource + db_0or1row sp_datasource "" -column_array datasource return [array get datasource] }