OpenACS

antoniop
committed
oacs-5-10:antoniop:20230126142549
on 26 Jan 23
Performance improvements:

- add with_headers flag to ::xo::dc list_of_lists behaving like the db_list_of_lists counterpart
- use ::xo::dc… Show more
Performance improvements:

- add with_headers flag to ::xo::dc list_of_lists behaving like the db_list_of_lists counterpart

- use ::xo::dc list_of_lists as internal for ::xo::dc foreach and ::xo::dc multirow to reduce the need for ns_sets

Show less

openacs-4/.../dotlrn/tcl/dotlrn-init.tcl (+4 -1)
86 86         if {![dotlrn::is_initialized]} { dotlrn::init }
87 87
88 88         ns_log notice "dotlrn-init: about to call dotlrn_class::init"
89 89
90 90         if {![dotlrn_class::is_initialized]} { dotlrn_class::init }
91 91
92 92         ns_log notice "dotlrn-init: about to call dotlrn_club::init"
93 93
94 94         if {![dotlrn_club::is_initialized]} { dotlrn_club::init }
95 95
96 96         ns_log notice "dotlrn-init: done with dotlrn_club::init"
97 97
98 98         set grantee_id [dotlrn::get_users_rel_segment_id]
99 99         permission::grant -party_id $grantee_id -object_id $package_id -privilege read
100 100
101 101         # Granting 'read' privilege to 'The Public', otherwise people can't get to the dotlrn index page
102 102         # which causes a 'security violation' right after registration when you have registration
103 103         # redirect to pages inside dotlrn
104 104         permission::grant -party_id [acs_magic_object "the_public"] -object_id $package_id -privilege read
105 105     }
  106
  107     # Set master template
  108     parameter::set_value -parameter "DefaultMaster" -value "/packages/dotlrn/www/dotlrn-master" -package_id [subsite::main_site_id]
106 109 }
107 110
108 111 # Make sure that privacy is turned on
109 112 acs_privacy::privacy_control_set 1
110 113
111 114 ns_log notice "dotlrn-init: done"
112 115
113 116