Index: openacs-4/packages/lars-blogger/tcl/entry-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/tcl/entry-procs.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/lars-blogger/tcl/entry-procs.tcl	13 Dec 2003 14:53:28 -0000	1.12
+++ openacs-4/packages/lars-blogger/tcl/entry-procs.tcl	13 Dec 2003 17:13:34 -0000	1.13
@@ -50,14 +50,6 @@
     upvar $array row
 
     db_1row select_entry {} -column_array row 
-
-    # If there's a category set up for the entry, we need to fill the array with the proper information.
-    if { $row(category_id) > 0 } {
-        set category_id $row(category_id)
-        db_1row select_category { *SQL* }
-        set row(category_name) $category_name
-        set row(category_short_name) $category_short_name
-    }
 }
 
 ad_proc -public lars_blogger::entry::publish {