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.5 -r1.6
--- openacs-4/packages/lars-blogger/tcl/entry-procs.tcl	25 Sep 2003 12:30:09 -0000	1.5
+++ openacs-4/packages/lars-blogger/tcl/entry-procs.tcl	29 Sep 2003 08:05:42 -0000	1.6
@@ -12,6 +12,14 @@
     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::require_write_permission {