Index: openacs-4/packages/news-aggregator/tcl/news-aggregator-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-aggregator/tcl/Attic/news-aggregator-procs-oracle.xql,v
diff -u -N -r1.2.4.1 -r1.2.4.2
--- openacs-4/packages/news-aggregator/tcl/news-aggregator-procs-oracle.xql	19 Apr 2004 10:06:20 -0000	1.2.4.1
+++ openacs-4/packages/news-aggregator/tcl/news-aggregator-procs-oracle.xql	6 Mar 2005 11:37:59 -0000	1.2.4.2
@@ -25,26 +25,29 @@
 	     begin
              :1 := na_source.new (
                  source_id => :source_id,
+            	 package_id => :package_id,
+            	 feed_url => :feed_url,
             	 link => :link,
              	 title => :title,
 		 description => :description,
-		 => sysdate,
-		 => '0'
+		 creation_user => :owner_id,
+            	 creation_ip => :creation_ip
              );
-             end
         </querytext>
     </fullquery>
 
-<fullquery name="na_add_source.add_item">
+<fullquery name="na_update_source.add_item">
       <querytext>
 	     begin
              :1 := na_source.new (
                  source_id => :source_id,
+            	 package_id => :package_id,
+            	 feed_url => :feed_url,
             	 link => :link,
              	 title => :title,
 		 description => :description,
-		 => sysdate,
-		 => '0'
+		 creation_user => :owner_id,
+            	 creation_ip => :creation_ip
              );
              end
         </querytext>
@@ -56,6 +59,19 @@
         </querytext>
     </fullquery>
 
+<fullquery name="na_update_source.update_source">
+      <querytext>
+        update na_sources
+        set link = :link,
+            title = :title,
+            description = :description,
+ 	    updates = (updates + 1),
+	    last_scanned = sysdate,
+	    last_modified = :last_modified
+        where source_id = :source_id
+        </querytext>
+    </fullquery>
+
     <fullquery name="na_update_source.item">
       <querytext>
         select q.* from (