Index: openacs-4/packages/lars-blogger/tcl/entry-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/tcl/entry-procs-oracle.xql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/lars-blogger/tcl/entry-procs-oracle.xql	28 Aug 2003 09:41:55 -0000	1.2
+++ openacs-4/packages/lars-blogger/tcl/entry-procs-oracle.xql	1 Oct 2003 19:12:05 -0000	1.3
@@ -41,4 +41,31 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="lars_blogger::entry::get_comments.get_comments">
+	<querytext>
+      
+             select g.comment_id,
+                    r.title,
+                    r.mime_type,
+                    o.creation_user,
+                    acs_object.name(o.creation_user) as author,
+                    to_char(o.creation_date, 'MM-DD-YYYY') as pretty_date,
+                    to_char(o.creation_date, 'Month DD, YYYY HH12:MI PM') as pretty_date2
+		    case when tb.comment_id not null 't' else 'f' end as trackback_p,
+		    tb.tb_url as trackback_url,
+		    nvl(tb.name,tb.tb_url) as trackback_name
+               from general_comments g left join trackback_pings tb on gc.comment_id=tb.comment_id,
+                    cr_revisions r,
+	            cr_items ci,
+                    acs_objects o
+              where g.object_id = :object_id 
+		and r.revision_id = i.live_revision
+	        and i.item_id=g.comment_id 
+                and o.object_id = g.comment_id
+              order by o.creation_date
+		
+	</querytext>
+    </fullquery>
+
 </queryset>
+