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 -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 - + 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 @@ -56,6 +59,19 @@ + + + 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 + + + select q.* from (