OpenACS

hamiltonc
committed
oacs-5-2:hamiltonc:20050614155545
on 14 Jun 05
recent commit reverted back to using ad_ssl_available_p, we should use security::https_available_p
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