| |
1 |
1 |
ad_library { |
| |
2 |
2 |
|
| |
3 |
3 |
Procedures to support the photo album admin portlet |
| |
4 |
4 |
|
| |
5 |
5 |
@creation-date 17 June 2003 |
| |
6 |
6 |
@author Jeff Davis (davis@xarg.net) |
| |
7 |
7 |
@cvs-id $Id$ |
| |
8 |
8 |
} |
| |
9 |
9 |
|
| |
10 |
10 |
namespace eval photo_album_admin_portlet {} |
| |
11 |
11 |
|
| |
12 |
12 |
ad_proc -private photo_album_admin_portlet::get_my_name { |
| |
13 |
13 |
} { |
| |
14 |
14 |
return "photo_album_admin_portlet" |
| |
15 |
15 |
} |
| |
16 |
16 |
|
| |
17 |
17 |
|
| |
18 |
18 |
|
| |
19 |
19 |
ad_proc -public photo_album_admin_portlet::get_pretty_name { |
| |
20 |
20 |
} { |
| |
21 |
|
return "[_ photo-album-portlet.Administration]" |
| |
|
21 |
return "#photo-album-portlet.Administration#" |
| |
22 |
22 |
} |
| |
23 |
23 |
|
| |
24 |
24 |
|
| |
25 |
25 |
|
| |
26 |
26 |
ad_proc -private photo_album_admin_portlet::my_package_key { |
| |
27 |
27 |
} { |
| |
28 |
28 |
return "photo-album-portlet" |
| |
29 |
29 |
} |
| |
30 |
30 |
|
| |
31 |
31 |
|
| |
32 |
32 |
|
| |
33 |
33 |
ad_proc -public photo_album_admin_portlet::link { |
| |
34 |
34 |
} { |
| |
35 |
35 |
return "" |
| |
36 |
36 |
} |
| |
37 |
37 |
|
| |
38 |
38 |
|
| |
39 |
39 |
|
| |
40 |
40 |
ad_proc -public photo_album_admin_portlet::add_self_to_page { |
| |
41 |
41 |
{-portal_id:required} |