Index: openacs-4/packages/news-aggregator/tcl/source-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-aggregator/tcl/source-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/news-aggregator/tcl/source-procs.tcl	30 May 2004 12:29:56 -0000	1.5
+++ openacs-4/packages/news-aggregator/tcl/source-procs.tcl	1 Jun 2004 12:18:31 -0000	1.6
@@ -88,11 +88,11 @@
     }
 
     if { $array_p } {
-	set info(source_id) $source_id
-	set info(title) $channel_title
-	return [array get info]
+        set info(source_id) $source_id
+        set info(title) $channel_title
+        return [array get info]
     } else {
-	return $source_id
+        return $source_id
     }
 }
 
@@ -199,6 +199,8 @@
         set permalink_p $item(permalink_p)
         set content_encoded $item(content_encoded)
         set description $item(description)
+        set author $item(author)
+        set pub_date $item(pub_date)
         
         set guid [news_aggregator::source::generate_guid \
                         -link $item(link) \
@@ -239,6 +241,15 @@
 #	    set permalink_p $item(permalink_p)
 #	    set link $item(link)
 
+            # pub_date_sql
+            if { $pub_date eq "" } {
+                set pub_date_sql "now()"
+            } else {
+                # massage pub_date
+                set pub_date [clock format $pub_date -format "%Y-%m-%d %T UTC"]
+                set pub_date_sql ":pub_date"
+            }
+            
             db_exec_plsql add_item {}
             incr no_items
         } else {