Index: openacs-4/packages/glossary/tcl/glossary-sc-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/glossary/tcl/glossary-sc-procs.tcl,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/glossary/tcl/glossary-sc-procs.tcl 10 Sep 2002 22:23:00 -0000 1.2 +++ openacs-4/packages/glossary/tcl/glossary-sc-procs.tcl 12 Sep 2002 22:44:28 -0000 1.3 @@ -1,18 +1,20 @@ -# static-pages/tcl/glossary-sc-procs.tcl -# implements OpenFTS Search service contracts -# Don Baccus (dhoghaza@pacifier.com) -# poached from static-pages and notes +ad_library { + Implements OpenFTS Search service contracts + poached from static-pages and notes. + @author Don Baccus (dhoghaza@pacifier.com) + @cvs-id $Id$ +} + ad_proc glossary__datasource { object_id } { @author Don Baccus (dhogaza@pacifier.com) - } { set path_stub [cr_fs_path STATIC_PAGES] - db_0or1row datasource "" -column_array datasource + db_0or1row datasource "" -column_array datasource return [array get datasource] } @@ -22,7 +24,6 @@ object_id } { @author Don Baccus (dhogaza@pacifier.com) - } { set package_id [apm_package_id_from_key glossary]