Index: openacs-4/contrib/packages/classified-ads/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/classified-ads/www/index.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/contrib/packages/classified-ads/www/index.tcl	23 Jul 2003 21:08:19 -0000	1.2
+++ openacs-4/contrib/packages/classified-ads/www/index.tcl	25 Jul 2003 23:53:20 -0000	1.3
@@ -1,10 +1,44 @@
 ad_page_contract {
 
-    Classified Ads Main User Page
+    Classified Ads Main Page 
 
-    @author Roberto Mello 
-    @creation-date 2003-07-21
+    @author Roberto Mello
+    @creation-date 2003-07-20
     @cvs-id $Id$
 
+} {
+    {keyword_id ""}
+    {display ""}
 }
 
+set root_folder_id [classified-ads::get_root_folder_id]
+set package_category_id [classified-ads::categories::package_category_exists_p]
+set package_category_p 0
+set title "Categories"
+
+if {[empty_string_p $keyword_id]} {
+    set keyword_id $package_category_id
+    set package_category_p 1
+} elseif {[string equal [classified-ads::main_keyword_exists_p] $keyword_id]} {
+    ad_return_complaint 1 "<li> No access to the root id"
+    ad_script_abort
+} else {
+    # Select info for this category
+    classified-ads::categories::get -keyword_id $keyword_id -array category_info
+    set title $category_info(heading)
+}
+
+db_multirow categories select_categories {}
+
+template::util::list_of_ns_sets_to_multirow \
+    -rows [classified-ads::ads::get_unassigned_ads_by_category] \
+    -var_name unassigned_ads
+
+template::util::list_of_ns_sets_to_multirow \
+    -rows [classified-ads::ads::get_assigned_ads_by_category -category_id_list [list $keyword_id]] \
+    -var_name assigned_ads
+
+set return_url "[ad_conn url]?[ad_conn query]"
+set context [classified-ads::categories::generate_trail -keyword_id $keyword_id]
+
+ad_return_template