OpenACS

antoniop
committed
MAIN:antoniop:20180710134819
on 10 Jul 18
Add documentation to public procs (fixes automated tests), simplify idioms, exploit current api
openacs-4/.../tcl/news-procs-oracle.xql (+0 -12)
21 21      
22 22             begin
23 23                 news.make_permanent(:id);
24 24             end;
25 25         
26 26       </querytext>
27 27 </fullquery>
28 28
29 29  
30 30 <fullquery name="news_items_delete.news_item_delete">     
31 31       <querytext>
32 32      
33 33             begin
34 34                 news.del(:id);
35 35             end;
36 36         
37 37       </querytext>
38 38 </fullquery>
39 39
40 40
41   <fullquery name="news_util_get_url.get_url_stub">
42         <querytext>
43  
44               select site_node.url(node_id) as url_stub
45               from site_nodes
46               where object_id=:package_id     
47               and rownum = 1
48           
49         </querytext>
50   </fullquery>
51  
52  
53 41 <fullquery name="news__rss_datasource.get_news_items">
54 42         <querytext>
55 43     select * from (
56 44         select cn.*,
57 45         ci.item_id,
58 46         cr.content,
59 47         cr.title,
60 48         cr.mime_type,
61 49         cr.description,
62 50         to_char(o.last_modified, 'YYYY-MM-DD HH24:MI:SS') as last_modified
63 51         from cr_news cn,
64 52         cr_revisions cr,
65 53         cr_items ci,
66 54         acs_objects o
67 55         where cn.package_id=:summary_context_id
68 56         and cr.revision_id=cn.news_id
69 57         and cn.news_id=o.object_id
70 58         and cr.item_id=ci.item_id
71 59         and cr.revision_id=ci.live_revision
72 60         order by o.last_modified desc