Index: openacs-4/contrib/packages/classified-ads/tcl/ads-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/classified-ads/tcl/ads-procs.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/contrib/packages/classified-ads/tcl/ads-procs.tcl 21 Jul 2003 05:23:56 -0000 1.4 +++ openacs-4/contrib/packages/classified-ads/tcl/ads-procs.tcl 23 Jul 2003 21:08:19 -0000 1.5 @@ -8,9 +8,9 @@ } -namespace eval classified-ads::ads { +namespace eval classified-ads::ads {} -ad_proc -public new { +ad_proc -public classified-ads::ads::new { {-item_id_element:required} {-form_id:required} {-category_id} @@ -41,7 +41,7 @@ } -ad_proc -public edit { +ad_proc -public classified-ads::ads::edit { {-item_id_element:required} {-form_id:required} } { @@ -59,7 +59,7 @@ } -ad_proc -public delete { +ad_proc -public classified-ads::ads::delete { {-ad_id:required} } { delete an existing ad @@ -74,7 +74,7 @@ return 0 } -ad_proc -public get { +ad_proc -public classified-ads::ads::get { {-ad_id:required} {-revision_id ""} {-array:required} @@ -114,7 +114,7 @@ } -ad_proc -public get_assigned_ads_by_category { +ad_proc -public classified-ads::ads::get_assigned_ads_by_category { {-category_id_list ""} } { Gets all the ads assigned to categories @@ -146,7 +146,7 @@ } -ad_proc -public get_unassigned_ads_by_category { +ad_proc -public classified-ads::ads::get_unassigned_ads_by_category { {-category_id_list ""} } { Gets all the ads NOT assigned to the categories passed. @@ -167,7 +167,7 @@ return [db_list_of_ns_sets select_ads {}] } -ad_proc -public get_category_id { +ad_proc -public classified-ads::ads::get_category_id { {-ad_id:required} } { Return the keyword_id of the category the passed ad belongs to. @@ -177,7 +177,7 @@ return [db_0or1row get_category_id {}] } -ad_proc -public generate_trail { +ad_proc -public classified-ads::ads::generate_trail { {-ad_id:required} {-append_element} } { @@ -206,5 +206,3 @@ return $trail_list } - -}