OpenACS

donb
committed
dotlrn:donb:20030514210634
on 14 May 03
Import files
/oracle/dotlrn-portlet-create.sql (+109 -1)
60 60         configured_p => 't',
61 61         key => 'user_editable_p',
62 62         value => 'f'
63 63 );      
64 64
65 65   -- portlet-specific procs
66 66
67 67   -- community_id must be configured!
68 68   portal_datasource.set_def_param (
69 69         datasource_id => ds_id,
70 70         config_required_p => 't',
71 71         configured_p => 'f',
72 72         key => 'community_id',
73 73         value => ''
74 74 );      
75 75
76 76 end;
77 77 /
78 78 show errors
79 79
  80 declare
  81         foo integer;
  82 begin
  83         -- create the implementation
  84         foo := acs_sc_impl.new (
  85                 'portal_datasource',
  86                 'dotlrn_portlet',
  87                 'dotlrn_portlet'
  88         );
  89
  90 end;
  91 /
  92 show errors
  93
  94 declare
  95         foo integer;
  96 begin
  97
  98         -- add all the hooks
  99         foo := acs_sc_impl.new_alias (
  100                'portal_datasource',
  101                'dotlrn_portlet',
  102                'MyName',
  103                'dotlrn_portlet::my_name',
  104                'TCL'
  105         );
  106
  107         foo := acs_sc_impl.new_alias (
  108                'portal_datasource',
  109                'dotlrn_portlet',
  110                'GetPrettyName',
  111                'dotlrn_portlet::get_pretty_name',
  112                'TCL'
  113         );
  114
  115         foo := acs_sc_impl.new_alias (
  116                'portal_datasource',
  117                'dotlrn_portlet',
  118                'Link',
  119                'dotlrn_portlet::link',
  120                'TCL'
  121         );
  122
  123         foo := acs_sc_impl.new_alias (
  124                'portal_datasource',
  125                'dotlrn_portlet',
  126                'AddSelfToPage',
  127                'dotlrn_portlet::add_self_to_page',
  128                'TCL'
  129         );
  130
  131         foo := acs_sc_impl.new_alias (
  132                'portal_datasource',
  133                'dotlrn_portlet',
  134                'Show',
  135                'dotlrn_portlet::show',
  136                'TCL'
  137         );
  138
  139         foo := acs_sc_impl.new_alias (
  140                'portal_datasource',
  141                'dotlrn_portlet',
  142                'Edit',
  143                'dotlrn_portlet::edit',
  144                'TCL'
  145         );
  146
  147         foo := acs_sc_impl.new_alias (
  148                'portal_datasource',
  149                'dotlrn_portlet',
  150                'RemoveSelfFromPage',
  151                'dotlrn_portlet::remove_self_from_page',
  152                'TCL'
  153         );
  154
  155         foo := acs_sc_impl.new_alias (
  156                'portal_datasource',
  157                'dotlrn_portlet',
  158                'MakeSelfAvailable',
  159                'dotlrn_portlet::make_self_available',
  160                'TCL'
  161         );
  162
  163         foo := acs_sc_impl.new_alias (
  164                'portal_datasource',
  165                'dotlrn_portlet',
  166                'MakeSelfUnavailable',
  167                'dotlrn_portlet::make_self_unavailable',
  168                'TCL'
  169         );
  170
  171 end;
  172 /
  173 show errors
  174
  175 declare
  176         foo integer;
  177 begin
  178
  179         -- Add the binding
  180         acs_sc_binding.new (
  181             contract_name => 'portal_datasource',
  182             impl_name => 'dotlrn_portlet'
  183         );
  184 end;
  185 /
  186 show errors
  187