Index: openacs-4/packages/lars-blogger/tcl/notification-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/tcl/notification-procs-oracle.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lars-blogger/tcl/notification-procs-oracle.xql	2 Mar 2005 00:17:51 -0000	1.1
@@ -0,0 +1,23 @@
+<?xml version="1.0"?>
+<!DOCTYPE queryset PUBLIC "-//OpenACS//DTD XQL 1.0//EN" "http://www.thecodemill.biz/repository/xql.dtd">
+<!-- packages/lars-blogger/tcl/notification-procs-oracle.xql -->
+<!-- @author Stan Kaufman (skaufman@epimetrics.com) -->
+<!-- @creation-date 2005-03-01 -->
+<!-- @cvs-id $Id: notification-procs-oracle.xql,v 1.1 2005/03/02 00:17:51 skaufman Exp $ -->
+
+<queryset>
+  
+  <rdbms>
+    <type>oracle</type>
+    <version>8.1.6</version>
+  </rdbms>
+  
+  <fullquery name="lars_blogger::notification::get_url.select_weblog_package_url">
+    <querytext>
+      select site_node.url(node_id) 
+      from site_nodes
+      where object_id = :entry_id
+    </querytext>
+  </fullquery>
+
+</queryset>
Index: openacs-4/packages/lars-blogger/tcl/notification-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/tcl/notification-procs-postgresql.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lars-blogger/tcl/notification-procs-postgresql.xql	2 Mar 2005 00:17:35 -0000	1.1
@@ -0,0 +1,23 @@
+<?xml version="1.0"?>
+<!DOCTYPE queryset PUBLIC "-//OpenACS//DTD XQL 1.0//EN" "http://www.thecodemill.biz/repository/xql.dtd">
+<!-- packages/lars-blogger/tcl/notification-procs-postgresql.xql -->
+<!-- @author Stan Kaufman (skaufman@epimetrics.com) -->
+<!-- @creation-date 2005-03-01 -->
+<!-- @cvs-id $Id: notification-procs-postgresql.xql,v 1.1 2005/03/02 00:17:35 skaufman Exp $ -->
+
+<queryset>
+  
+  <rdbms>
+    <type>postgresql</type>
+    <version>7.3</version>
+  </rdbms>
+  
+  <fullquery name="lars_blogger::notification::get_url.select_weblog_package_url">
+    <querytext>
+      select site_node__url(node_id) 
+      from site_nodes
+      where object_id = :entry_id
+    </querytext>
+  </fullquery>
+
+</queryset>
Index: openacs-4/packages/lars-blogger/tcl/notification-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/tcl/notification-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/lars-blogger/tcl/notification-procs.tcl	28 Aug 2003 09:41:55 -0000	1.2
+++ openacs-4/packages/lars-blogger/tcl/notification-procs.tcl	2 Mar 2005 00:17:04 -0000	1.3
@@ -13,11 +13,13 @@
     object_id
 } {
     Get the URL of a blogger entry.
+
+    @author Stan Kaufman (skaufman@epimetrics.com)
+    @creation-date 2005-03-01
+    @param object_id
 } {
-    # LARS:
-    # Not implemented. Sorry.
-    # At least this is better than a hard error.
-    return {}
+    set entry_id $object_id
+    return "[ad_url][db_string select_weblog_package_url {}]"
 }
 
 ad_proc -public lars_blogger::notification::process_reply {