OpenACS

byronl
committed
MAIN:byronl:20060925204736
on 25 Sep 06
Correction of name constraint
/oracle/dotlrn-jabber-create.sql (+142)
  1 -- This is the sql code to integrate a Jabber applet into dotlrn
  2 -- author Bjoern Kiesbye bkiesbye@sussdorff-roy.com
  3
  4
  5 declare
  6         foo integer;
  7 begin
  8         -- create the implementation
  9         foo := acs_sc_impl.new (
  10                 'dotlrn_applet',
  11                 'dotlrn_jabber',
  12                 'dotlrn_jabber'
  13         );
  14
  15         -- add all the hooks
  16
  17         -- GetPrettyName
  18         foo := acs_sc_impl.new_alias (
  19                'dotlrn_applet',
  20                'dotlrn_jabber',
  21                'GetPrettyName',
  22                'dotlrn_jabber::get_pretty_name',
  23                'TCL'
  24         );
  25
  26         -- AddApplet
  27         foo := acs_sc_impl.new_alias (
  28                'dotlrn_applet',
  29                'dotlrn_jabber',
  30                'AddApplet',
  31                'dotlrn_jabber::add_applet',
  32                'TCL'
  33         );
  34
  35         -- RemoveApplet
  36         foo := acs_sc_impl.new_alias (
  37                'dotlrn_applet',
  38                'dotlrn_jabber',
  39                'RemoveApplet',
  40                'dotlrn_jabber::remove_applet',
  41                'TCL'
  42         );
  43
  44         -- AddAppletToCommunity
  45         foo := acs_sc_impl.new_alias (
  46                'dotlrn_applet',
  47                'dotlrn_jabber',
  48                'AddAppletToCommunity',
  49                'dotlrn_jabber::add_applet_to_community',
  50                'TCL'
  51         );
  52
  53         -- RemoveAppletFromCommunity
  54         foo := acs_sc_impl.new_alias (
  55                'dotlrn_applet',
  56                'dotlrn_jabber',
  57                'RemoveAppletFromCommunity',
  58                'dotlrn_jabber::remove_applet_from_community',
  59                'TCL'
  60         );
  61         -- AddUser
  62         foo := acs_sc_impl.new_alias (
  63                'dotlrn_applet',
  64                'dotlrn_jabber',
  65                'AddUser',
  66                'dotlrn_jabber::add_user',
  67                'TCL'
  68         );
  69
  70         -- RemoveUser
  71         foo := acs_sc_impl.new_alias (
  72                'dotlrn_applet',
  73                'dotlrn_jabber',
  74                'RemoveUser',
  75                'dotlrn_jabber::remove_user',
  76                'TCL'
  77         );
  78
  79         -- AddUserToCommunity
  80         foo := acs_sc_impl.new_alias (
  81                'dotlrn_applet',
  82                'dotlrn_jabber',
  83                'AddUserToCommunity',
  84                'dotlrn_jabber::add_user_to_community',
  85                'TCL'
  86         );
  87
  88         -- RemoveUserFromCommunity
  89         foo := acs_sc_impl.new_alias (
  90                'dotlrn_applet',
  91                'dotlrn_jabber',
  92                'RemoveUserFromCommunity',
  93                'dotlrn_jabber::remove_user_from_community',
  94                'TCL'
  95         );
  96
  97     -- AddPortlet
  98     foo := acs_sc_impl.new_alias (
  99         impl_contract_name => 'dotlrn_applet',
  100         impl_name => 'dotlrn_jabber',
  101         impl_operation_name => 'AddPortlet',
  102         impl_alias => 'dotlrn_jabber::add_portlet',
  103         impl_pl => 'TCL'
  104     );
  105
  106     -- RemovePortlet
  107     foo := acs_sc_impl.new_alias (
  108         impl_contract_name => 'dotlrn_applet',
  109         impl_name => 'dotlrn_jabber',
  110         impl_operation_name => 'RemovePortlet',
  111         impl_alias => 'dotlrn_jabber::remove_portlet',
  112         impl_pl => 'TCL'
  113     );
  114
  115     -- Clone
  116     foo := acs_sc_impl.new_alias (
  117         impl_contract_name => 'dotlrn_applet',
  118         impl_name => 'dotlrn_jabber',
  119         impl_operation_name => 'Clone',
  120         impl_alias => 'dotlrn_jabber::clone',
  121         impl_pl => 'TCL'
  122     );
  123
  124     -- Change Event Handler
  125
  126     foo := acs_sc_impl.new_alias(
  127         impl_contract_name => 'dotlrn_applet',
  128         impl_name => 'dotlrn_jabber',
  129         impl_operation_name => 'ChangeEventHandler',
  130         impl_alias => 'dotlrn_jabber::change_event_handler',
  131         impl_pl => 'TCL'
  132     );
  133
  134
  135         -- Add the binding
  136         acs_sc_binding.new (
  137             contract_name => 'dotlrn_applet',
  138             impl_name => 'dotlrn_jabber'
  139         );
  140 end;
  141 /
  142 show errors;