Index: openacs-4/contrib/packages/cop-base/lib/cop-footer.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/cop-base/lib/cop-footer.adp,v
diff -u -r1.4 -r1.5
--- openacs-4/contrib/packages/cop-base/lib/cop-footer.adp	29 Apr 2004 15:56:05 -0000	1.4
+++ openacs-4/contrib/packages/cop-base/lib/cop-footer.adp	14 May 2004 12:36:33 -0000	1.5
@@ -1,22 +1,6 @@
 <div id="cop-footer">
-  <p class="section">KM  Stuff</p>
-  <!-- object: @displayed_object_id@ package_id: @cur_pkg@ acs_obj.package_id: @obj_pkg@ name: @tname@<br />
-  acs_object.title: @obj_title@<br />
-  acs_object__name: @acs_name@<br /> -->
-
-  <div class="cop-box">
-    <div>
-      @comment_link;noquote@
-    </div>
+  <p class="section">Comments</p>
+  <div class="comments">  
+    @comment_link;noquote@
   </div>
-
-  <div class="cop-box">
-    <if @catass_list@ not nil><p>@catass_list@</p></if>
-    <formtemplate id="catass"></formtemplate>
-  </div>
-
-  <div class="cop-box">
-    <p>Todo: offsite links, RSS, notifications, rate the antecedent related item etc.</p>
-  </div>
-
 </div>
Index: openacs-4/contrib/packages/cop-base/lib/cop-footer.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/cop-base/lib/cop-footer.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/contrib/packages/cop-base/lib/cop-footer.tcl	29 Apr 2004 15:56:05 -0000	1.4
+++ openacs-4/contrib/packages/cop-base/lib/cop-footer.tcl	14 May 2004 12:36:33 -0000	1.5
@@ -1,49 +1,6 @@
-# generic stuff we need
-set url [cop::util::url]
-set subsite [ad_conn subsite_id]
-set user_id [ad_conn user_id]
-set cur_pkg [ad_conn package_id]
-set ratingicons [cop::rating::icon_base]
-
-db_1row obj_title {select o.object_type, pretty_name as tname, pretty_plural as tname_s, title as obj_title, package_id as obj_pkg,  acs_object__name(object_id) as acs_name from acs_objects o, acs_object_types t  where object_id = :displayed_object_id and t.object_type = o.object_type}
-if {[empty_string_p $obj_title]} { 
-    set obj_title EMPTY
-}
-
-if {[empty_string_p $acs_name]} { 
-    set acs_name EMPTY
-}
-
-# record object view and get current count.
-if {![db_0or1row views "select views, unique_views from cop_object_view_agg where object_id = :displayed_object_id"]} { 
-    set views missing
-    set unique_views missing
-}
-
 # stuff for comments
 # todo: suppress for things that should not be commentable.
 set comment_link {}
 append comment_link [general_comments_get_comments -print_content_p 1 $displayed_object_id [ad_return_url]]
 append comment_link [general_comments_create_link -object_name "Name for $displayed_object_id" -link_attributes {class="button"} $displayed_object_id [ad_return_url] ]
 
-
-# Stuff for related items
-cop::relation::get_related -object_id $displayed_object_id -datasource related
-
-# Category mapping stuff
-# add category form 
-ad_form -action $url/categories/map -method GET -name catass -form {
-    {object_id:integer(hidden)
-        {value $displayed_object_id}
-    }
-    {container_id:integer(hidden)
-        {value {[ad_conn subsite_id]}}
-    }
-}
-category::ad_form::add_widgets -container_object_id [ad_conn subsite_id] -form_name catass
-
-# mapped categories:
-set catass_list [category::list::get_pretty_list [category::get_mapped_categories $displayed_object_id]]
-
-# dummy for debug
-set foo {}
Index: openacs-4/contrib/packages/cop-base/lib/cop-sidebar.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/cop-base/lib/cop-sidebar.adp,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/packages/cop-base/lib/cop-sidebar.adp	29 Apr 2004 15:56:05 -0000	1.1
+++ openacs-4/contrib/packages/cop-base/lib/cop-sidebar.adp	14 May 2004 12:36:33 -0000	1.2
@@ -34,8 +34,11 @@
   </div>
 
   <div class="cop-categories">
-  <p class="head">Categories</p>
-  <p>@catass_list@</p>
+    <p class="head">Categories</p>
+    <p>@catass_list;noquote@</p>
+    <p>
+      <a href="@cat_url@"  class="button"
+        onclick="javascript:w=window.open('@cat_url@','Categorize','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,width=600,height=400');w.focus();return false;">Categorize</a></p>
   </div>
 
   <div class="cop-clipboards">
Index: openacs-4/contrib/packages/cop-base/lib/cop-sidebar.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/cop-base/lib/cop-sidebar.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/packages/cop-base/lib/cop-sidebar.tcl	29 Apr 2004 15:56:05 -0000	1.1
+++ openacs-4/contrib/packages/cop-base/lib/cop-sidebar.tcl	14 May 2004 12:36:33 -0000	1.2
@@ -50,9 +50,11 @@
 # Stuff for related items
 cop::relation::get_related -object_id $displayed_object_id -datasource related
 
-
 # mapped categories:
-set catass_list [category::list::get_pretty_list [category::get_mapped_categories $displayed_object_id]]
+set catass_list [category::list::get_pretty_list \
+                     -category_link_eval "${url}categories/?cat=\$__category_id" \
+                     [category::get_mapped_categories $displayed_object_id]]
+set cat_url [export_vars -base ${url}categories/categorize -override [list [list object_id $displayed_object_id]] object_id]
 
 # dummy for debug
 set foo {}