Index: openacs-4/packages/news-aggregator/tcl/aggregator-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-aggregator/tcl/aggregator-procs.tcl,v
diff -u -r1.1.1.1.2.2 -r1.1.1.1.2.3
--- openacs-4/packages/news-aggregator/tcl/aggregator-procs.tcl	1 Jan 2006 19:44:38 -0000	1.1.1.1.2.2
+++ openacs-4/packages/news-aggregator/tcl/aggregator-procs.tcl	2 Jan 2006 20:49:46 -0000	1.1.1.1.2.3
@@ -370,17 +370,27 @@
 ad_proc -public news_aggregator::aggregator::new {
     {-aggregator_name:required}
     {-description ""}
-    {-package_id [ad_conn package_id]}
+    {-package_id ""}
     {-public_p t}
-    {-creation_user [ad_conn user_id]}
-    {-creation_ip [ad_conn peeraddr]}
+    {-creation_user ""}
+    {-creation_ip ""}
 } {
     Create a new news aggregator.
 
     @author Guan Yang (guan@unicast.org)
     @creation-date 2003-06-29
 } {
 
+    if { [string equal $package_id ""] } {
+	set package_id [ad_conn package_id]
+    }
+    if { [string equal $user_id ""] } {
+	set user_id [ad_conn user_id]
+    }
+    if { [string equal $creation_ip ""] } {
+	set creation_ip [ad_conn peeraddr]
+    }
+
     set aggregator_id [db_exec_plsql new_aggregator {}]
 
     # find app group and assign correct privileges 
Index: openacs-4/packages/news-aggregator/tcl/source-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-aggregator/tcl/source-procs-postgresql.xql,v
diff -u -r1.6 -r1.6.2.1
--- openacs-4/packages/news-aggregator/tcl/source-procs-postgresql.xql	27 Feb 2005 17:07:20 -0000	1.6
+++ openacs-4/packages/news-aggregator/tcl/source-procs-postgresql.xql	2 Jan 2006 20:49:46 -0000	1.6.2.1
@@ -7,7 +7,7 @@
 <fullquery name="news_aggregator::source::update.update_source_no_new">
     <querytext>
         update na_sources
-	set last_scanned = now(),
+	set last_scanned = current_timestamp,
 	    title = :title,
 	    link = :link,
 	    description = :description
@@ -90,9 +90,9 @@
                title = :title,
                description = :description,
  	       updates = (updates + 1),
-	       last_scanned = now(),
-	       last_modified = now(),
-	       last_modified_stamp = now()
+	       last_scanned = current_timestamp,
+	       last_modified = current_timestamp,
+	       last_modified_stamp = current_timestamp
         where  source_id = :source_id
         </querytext>
     </fullquery>
@@ -114,6 +114,17 @@
         </querytext>
     </fullquery>
 
+<fullquery name="news_aggregator::source::update.update_item">
+      <querytext>
+        update na_items
+           set title = :title,
+               description = :description,
+               content_encoded = :content_encoded,
+               link = :link
+         where guid = :guid
+        </querytext>
+    </fullquery>
+
     <fullquery name="news_aggregator::source::delete.delete_source">
           <querytext>
             select na_source__delete(