| |
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 |
|
