Index: openacs-4/packages/lars-blogger/tcl/metaweblog-api-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/tcl/metaweblog-api-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/lars-blogger/tcl/metaweblog-api-procs.tcl	12 Jul 2004 11:33:19 -0000	1.5
+++ openacs-4/packages/lars-blogger/tcl/metaweblog-api-procs.tcl	30 Oct 2013 17:37:08 -0000	1.6
@@ -63,11 +63,11 @@
 
     set entry_id [db_nextval t_acs_object_id_seq]
 
-    if { ![exists_and_not_null content(title)] } {
+    if { ![info exists content(title)] || $content(title) eq "" } {
         set content(title) " "
     }
     
-    if { ![exists_and_not_null content(description)] } {
+    if { ![info exists content(description)] || $content(description) eq "" } {
         set content(description) " "
     }
     
@@ -79,7 +79,7 @@
         set pubDate [clock format [clock seconds] -format $fmt]
     }
     
-    if { [exists_and_not_null content(categories)] } {
+    if { [info exists content(categories)] && $content(categories) ne "" } {
 	# Only looking at the first category
 	set category_id [lars_blogger::category::get_id_by_name \
 			     -package_id $package_id \
@@ -131,11 +131,11 @@
         -object_id $entry_id \
         -privilege write
 
-    if { ![exists_and_not_null content(title)] } {
+    if { ![info exists content(title)] || $content(title) eq "" } {
         set content(title) " "
     }
     
-    if { ![exists_and_not_null content(description)] } {
+    if { ![info exists content(description)] || $content(description) eq "" } {
         set content(description) " "
     }
     
@@ -147,7 +147,7 @@
         set pubDate [clock format [clock seconds] -format $fmt]
     }
     
-    if { [exists_and_not_null content(categories)] } {
+    if { [info exists content(categories)] && $content(categories) ne "" } {
 	# Only looking at the first category
 	set category_id [lars_blogger::category::get_id_by_name \
 			     -package_id $package_id \