OpenACS

gustafn
committed
oacs-5-10:gustafn:20230512175310
on 12 May 23
minor cleanup
/tcl/static-portal-content-procs.tcl (+2 -2)
103 103                     -portal_id $portal_id \
104 104                     -portlet_name [static_portlet::get_my_name] \
105 105                     -pretty_name [get_pretty_name -content_id $content_id] \
106 106                     -force_region [parameter::get_from_package_key \
107 107                                        -parameter "static_portal_content_force_region" \
108 108                                        -package_key "static-portlet"]
109 109             ]
110 110
111 111             portal::set_element_param $element_id package_id $package_id
112 112             portal::set_element_param $element_id content_id $content_id
113 113         }
114 114         return $element_id
115 115     }
116 116
117 117     ad_proc -public clone {
118 118         {-portal_id:required}
119 119         {-package_id:required}
120 120     } {
121 121         A helper proc for cloning. There could be multiple static portlets
122 122         that need to be cloned. Make a deep copy of all the static portal
123           content and update the all the corresponding element's pointers.
  123         content and update all the corresponding element's pointers.
124 124     } {
125 125         set ds_id [portal::get_datasource_id [static_portlet::get_my_name]]
126 126
127 127         set element_list [db_list get_element_list {}]
128 128
129 129         foreach element_id $element_list {
130 130             set old_content_id [db_string select_element_id {}]
131 131
132 132             # make a new static content item from this item
133 133             set new_content_id [new \
134 134                 -package_id $package_id \
135 135                 -content [get_content -content_id $old_content_id] \
136 136                 -pretty_name [get_pretty_name -content_id $old_content_id]
137 137             ]
138 138
139 139             # update the portal element's pointers
140 140             portal::set_element_param $element_id package_id $package_id
141 141             portal::set_element_param $element_id content_id $new_content_id
142 142         }
143 143     }