OpenACS

gustafn
committed
MAIN:gustafn:20190219100744
on 19 Feb 19
comment out and/or drop references t money to address issue #3381
/tcl/random-photo-portlet-procs.tcl (+2 -2)
13 13 #
14 14 # evaluation assignments namespace
15 15 #
16 16
17 17 ad_proc -private rphoto_display_portlet::get_my_name {
18 18 } {
19 19     return "rphoto_display_portlet"
20 20 }
21 21
22 22
23 23
24 24 ad_proc -private rphoto_display_portlet::my_package_key {
25 25 } {
26 26     return "random-photo-portlet"
27 27 }
28 28
29 29
30 30
31 31 ad_proc -public rphoto_display_portlet::get_pretty_name {
32 32 } {
33       return "[_ random-photo-portlet.One_member]"
  33     return "#random-photo-portlet.One_member#"
34 34 }
35 35
36 36
37 37
38 38 ad_proc -public rphoto_display_portlet::link {
39 39 } {
40 40     return ""
41 41 }
42 42
43 43
44 44
45 45 ad_proc -public rphoto_display_portlet::add_self_to_page {
46 46     {-portal_id:required}
47 47     {-package_id:required}
48 48     {-param_action:required}
49 49 } {
50 50     Adds a evaluation PE to the given portal.
51 51    
52 52     @param portal_id The page to add self to
53 53     @param package_id The community with the folder