Index: openacs-4/packages/lars-blogger/lib/technorati.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/lib/technorati.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lars-blogger/lib/technorati.adp	14 Dec 2003 16:34:20 -0000	1.1
@@ -0,0 +1,7 @@
+<if @enabled_p@>
+<ol class="lars_blogger_technorati">
+<multiple name="links">
+    <li class="lars_blogger_technorati_link"><a href="@links.url@">@links.name</a></li>
+</multiple>
+</ol>
+</if>
\ No newline at end of file
Index: openacs-4/packages/lars-blogger/lib/technorati.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/lib/technorati.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lars-blogger/lib/technorati.tcl	14 Dec 2003 16:34:20 -0000	1.1
@@ -0,0 +1,10 @@
+set enabled_p [parameter::get \
+                    -parameter TechnoratiApiEnabledP \
+                    -boolean \
+                    -default 0]
+
+set package_id [ad_conn package_id]
+
+if { $enabled_p } {
+    db_multirow links cache_select ""
+}
Index: openacs-4/packages/lars-blogger/lib/technorati.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/lib/technorati.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lars-blogger/lib/technorati.xql	14 Dec 2003 16:34:20 -0000	1.1
@@ -0,0 +1,12 @@
+<?xml version="1.0"?>
+
+<queryset>
+    <fullquery name="cache_select">
+        <querytext>
+        select name, url
+        from weblogger_technorati_cache
+        where package_id = :package_id
+        </querytext>
+    </fullquery>
+</queryset>
+