OpenACS

yon
committed
MAIN:yon:20020516182759
on 16 May 02
one more spacing fix
/tcl/calendar-portlet-procs.tcl (+10 -4)
60 60     } {
61 61         Adds a calendar PE to the given page with the community_id.
62 62
63 63         @return element_id The new element's id
64 64         @param portal_id The page to add self to
65 65         @param calendar_id The new calendar_id to add
66 66         @author arjun@openforce.net
67 67         @creation-date Sept 2001
68 68     } {
69 69         return [portal::add_element_or_append_id -portal_id $portal_id \
70 70                 -page_id $page_id \
71 71                 -portlet_name [my_name] \
72 72                 -pretty_name [get_pretty_name] \
73 73                 -value_id $calendar_id \
74 74                 -force_region 2 \
75 75                 -key calendar_id]
76 76     }
77 77
78 78     ad_proc -public remove_self_from_page {
79 79         portal_id
80           package_id
  80         calendar_id
81 81     } {
82 82           Removes a calendar PE from the given page
83 83    
84 84           @param portal_id The page to remove self from
85 85           @param community_id
86 86           @author arjun@openforce.net
87 87           @creation-date Sept 2001
88 88     } {
89           portal::remove_element_or_remove_id -portal_id $portal_id -portlet_name [my_name] -key calendar_id -value_id $package_id
  89         ## YOWSA (ben)
  90         # calendar portlet should NOT be creating and deleting calendars!
  91         # I've taken out a chunk of code here that was removing calendars. No way! (ben).
  92        
  93         # get rid of this portal element
  94         # This automatically removes all element params
  95         portal::remove_element_or_remove_id -portal_id $portal_id -portlet_name [my_name] -key calendar_id -value_id $calendar_id
90 96     }
91 97
92 98
93 99     ad_proc -public make_self_available {
94 100         page_id
95 101     } {
96 102         Wrapper for the portal:: proc
97 103         
98 104         @param page_id
99 105         @author arjun@openforce.net
100 106         @creation-date Nov 2001
101 107     } {
102 108         portal::make_datasource_available \
103 109                 $page_id [portal::get_datasource_id [my_name]]
104 110     }
105 111
106 112     ad_proc -public make_self_unavailable {
107 113         page_id
108 114     } {
109 115         Wrapper for the portal:: proc