OpenACS

peterm
committed
MAIN:peterm:20030917144817
on 17 Sep 03
using named parameters in call to acs_sc_impl.new to avoid mismatch with new optional pretty name parameter
openacs-4/.../oracle/bm-portlet-create.sql (+4 -4)
73 73     );
74 74
75 75     portal_datasource.set_def_param(
76 76         datasource_id => ds_id,
77 77         config_required_p => 't',
78 78         configured_p => 'f',
79 79         key => 'package_id',
80 80         value => ''
81 81     );
82 82
83 83     portal_datasource.set_def_param(
84 84         datasource_id => ds_id,
85 85         config_required_p => 't',
86 86         configured_p => 'f',
87 87         key => 'scoped_p',
88 88         value => 't'
89 89     );
90 90
91 91     -- create the implementation
92 92     foo := acs_sc_impl.new(
93           'portal_datasource',
94           'bm_portlet',
95           'bm_portlet'
  93         impl_contract_name => 'portal_datasource',
  94         impl_name => 'bm_portlet',
  95         impl_owner_name => 'bm_portlet'
96 96     );
97 97
98 98     -- add all the hooks
99 99     foo := acs_sc_impl.new_alias(
100 100         'portal_datasource',
101 101         'bm_portlet',
102 102         'GetMyName',
103 103         'bm_portlet::get_my_name',
104 104         'TCL'
105 105     );
106 106
107 107     foo := acs_sc_impl.new_alias(
108 108         'portal_datasource',
109 109         'bm_portlet',
110 110         'GetPrettyName',
111 111         'bm_portlet::get_pretty_name',
112 112         'TCL'
113 113     );
114 114
115 115     foo := acs_sc_impl.new_alias(