OpenACS

gustafn
committed
oacs-5-9:gustafn:20150912190042
on 12 Sep 15
- add editor hints to keep spaces/tabs in the future more consistent
- prefer utf8 over iso8859
/postgresql/contact-attributes-portlet-create.sql (+221)
  1 --
  2 --  Copyright (C) 2005 Cognovis
  3 --
  4 --  This file is part of dotLRN.
  5 --
  6 --  dotLRN is free software; you can redistribute it and/or modify it under the
  7 --  terms of the GNU General Public License as published by the Free Software
  8 --  Foundation; either version 2 of the License, or (at your option) any later
  9 --  version.
  10 --
  11 --  dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY
  12 --  WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
  13 --  FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
  14 --  details.
  15 --
  16
  17 --
  18 -- /project-manager-portlet/sql/oracle/project-manager-portlet-create.sql
  19 --
  20
  21 -- Creates Project Manager portlet
  22
  23 -- Copyright (C) 2005 Cognovis
  24 -- @author Bjoern Kiesbye (kiesbye@theservice.de)
  25 -- @creation-date 2005-08-06
  26
  27
  28 -- This is free software distributed under the terms of the GNU Public
  29 -- License version 2 or higher.  Full text of the license is available
  30 -- from the GNU Project: http://www.fsf.org/copyleft/gpl.html
  31
  32
  33 create function inline_0()
  34 returns integer as '
  35 declare
  36   ds_id portal_datasources.datasource_id%TYPE;
  37 begin
  38   ds_id := portal_datasource__new(
  39          ''contact_attributes_portlet'',
  40          ''Displays Contact Attributes''
  41   );
  42
  43  
  44   --  the standard 4 params
  45
  46   -- shadeable_p
  47   perform portal_datasource__set_def_param (
  48         ds_id,
  49         ''t'',
  50         ''t'',
  51         ''shadeable_p'',
  52         ''t''
  53 );      
  54
  55
  56   -- hideable_p
  57   perform portal_datasource__set_def_param (
  58         ds_id,
  59         ''t'',
  60         ''t'',
  61         ''hideable_p'',
  62         ''t''
  63 );      
  64
  65   -- user_editable_p
  66   perform portal_datasource__set_def_param (
  67         ds_id,
  68         ''t'',
  69         ''t'',
  70         ''user_editable_p'',
  71         ''t''
  72 );      
  73
  74   -- shaded_p
  75   perform portal_datasource__set_def_param (
  76         ds_id,
  77         ''t'',
  78         ''t'',
  79         ''shaded_p'',
  80         ''f''
  81 );      
  82
  83   -- link_hideable_p
  84   perform portal_datasource__set_def_param (
  85         ds_id,
  86         ''t'',
  87         ''t'',
  88         ''link_hideable_p'',
  89         ''t''
  90 );      
  91
  92
  93     perform portal_datasource__set_def_param(
  94         ds_id,
  95         ''t'',
  96         ''f'',
  97         ''scoped_p'',
  98         ''t''
  99     );
  100
  101
  102
  103    return 0;
  104
  105 end;' language 'plpgsql';
  106 select inline_0();
  107 drop function inline_0();
  108
  109
  110 create function inline_0()
  111 returns integer as '
  112 declare
  113         foo integer;
  114 begin
  115         -- create the implementation
  116         foo := acs_sc_impl__new (
  117                 ''portal_datasource'',
  118                 ''contact_attributes_portlet'',
  119                 ''contact_attributes_portlet''
  120         );
  121
  122    return 0;
  123
  124 end;' language 'plpgsql';
  125 select inline_0();
  126 drop function inline_0();
  127
  128
  129
  130 create function inline_0()
  131 returns integer as '
  132 declare
  133         foo integer;
  134 begin
  135
  136         -- add all the hooks
  137         foo := acs_sc_impl_alias__new (
  138                ''portal_datasource'',
  139                ''contact_attributes_portlet'',
  140                ''GetMyName'',
  141                ''contact_attributes_portlet::get_my_name'',
  142                ''TCL''
  143         );
  144
  145         foo := acs_sc_impl_alias__new (
  146                ''portal_datasource'',
  147                ''contact_attributes_portlet'',
  148                ''GetPrettyName'',
  149                ''contact_attributes_portlet::get_pretty_name'',
  150                ''TCL''
  151         );
  152
  153         foo := acs_sc_impl_alias__new (
  154                ''portal_datasource'',
  155                ''contact_attributes_portlet'',
  156                ''Link'',
  157                ''contact_attributes_portlet::link'',
  158                ''TCL''
  159         );
  160
  161         foo := acs_sc_impl_alias__new (
  162                ''portal_datasource'',
  163                ''contact_attributes_portlet'',
  164                ''AddSelfToPage'',
  165                ''contact_attributes_portlet::add_self_to_page'',
  166                ''TCL''
  167         );
  168
  169         foo := acs_sc_impl_alias__new (
  170                ''portal_datasource'',
  171                ''contact_attributes_portlet'',
  172                ''Show'',
  173                ''contact_attributes_portlet::show'',
  174                ''TCL''
  175         );
  176
  177         foo := acs_sc_impl_alias__new (
  178                ''portal_datasource'',
  179                ''contact_attributes_portlet'',
  180                ''Edit'',
  181                ''contact_attributes_portlet::edit'',
  182                ''TCL''
  183         );
  184
  185         foo := acs_sc_impl_alias__new (
  186                ''portal_datasource'',
  187                ''contact_attributes_portlet'',
  188                ''RemoveSelfFromPage'',
  189                ''contact_attributes_portlet::remove_self_from_page'',
  190                ''TCL''
  191         );
  192
  193    return 0;
  194
  195 end;' language 'plpgsql';
  196 select inline_0();
  197 drop function inline_0();
  198
  199
  200
  201 create function inline_0()
  202 returns integer as '
  203 declare
  204         foo integer;
  205 begin
  206
  207         -- Add the binding
  208         perform acs_sc_binding__new (
  209             ''portal_datasource'',
  210             ''contact_attributes_portlet''
  211         );
  212
  213    return 0;
  214
  215 end;' language 'plpgsql';
  216 select inline_0();
  217 drop function inline_0();
  218
  219
  220
  221