OpenACS

danw
committed
oacs-4-6:danw:20021010170132
on 10 Oct 02
added DESTROY method calls for openfts-driver ops
/tcl/notification-procs.tcl (+7 -5)
1 1 ad_library {
2 2     Notification procs for lars-blogger.
3 3
4 4     @author Lars Pind (lars@collaboraid.biz)
5 5     @creation-date 2003-06-29
6 6     @cvs-id $Id$
7 7 }
8 8
9 9 namespace eval lars_blogger::notification {}
10 10
11 11
12 12 ad_proc -public lars_blogger::notification::get_url {
13 13     object_id
14 14 } {
15 15     Get the URL of a blogger entry.
  16
  17     @author Stan Kaufman (skaufman@epimetrics.com)
  18     @creation-date 2005-03-01
  19     @param object_id
16 20 } {
17       # LARS:
18       # Not implemented. Sorry.
19       # At least this is better than a hard error.
20       return {}
  21     set entry_id $object_id
  22     return "[ad_url][db_string select_weblog_package_url {}]"
21 23 }
22 24
23 25 ad_proc -public lars_blogger::notification::process_reply {
24 26     reply_id
25 27 } {
26 28     Process the reply to a blog posting: Post the reply as a comment.
27 29     Not implemented, sorry.
28 30 } {
29 31     # LARS:
30 32     # Not implemented. Sorry.
31 33     # At least this is better than a hard error.
32 34
33 35     # Return successful_p = "f"
34 36     # It doesn't look like notifications does anything with this, though :(
35 37     return "f"
36 38 }
37 39