OpenACS

miguelm
committed
oacs-5-2:miguelm:20051027193538:3
on 27 Oct 05
file invoices-portlet.adp was added on branch oacs-5-2 on 2005-11-30 16:01:59 +0000
oacs-5-2:miguelm:20051027193538:3
/postgresql/invoices-list-create.sql (deleted)
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   -- /invoices-portlet/sql/oracle/invoices-portlet-create.sql
19   --
20  
21   -- Creates invoices portlet
22  
23   -- Copyright (C) 2005 Cognovis
24   -- @author Bjoern Kiesbye (bjoern_kiesbye@web.de)
25   -- @creation-date 2005-16-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   create function inline_0()
33   returns integer as '
34   declare
35     ds_id portal_datasources.datasource_id%TYPE;
36   begin
37     ds_id := portal_datasource__new(
38            ''invoices_portlet'',
39            ''Displays the Invoices Portlet''
40     );
41  
42    
43     --  the standard 4 params
44  
45     -- shadeable_p
46     perform portal_datasource__set_def_param (
47           ds_id,
48           ''t'',
49           ''t'',
50           ''shadeable_p'',
51           ''t''
52   );      
53  
54  
55     -- hideable_p
56     perform portal_datasource__set_def_param (
57           ds_id,
58           ''t'',
59           ''t'',
60           ''hideable_p'',
61           ''t''
62   );      
63  
64     -- user_editable_p
65     perform portal_datasource__set_def_param (
66           ds_id,
67           ''t'',
68           ''t'',
69           ''user_editable_p'',
70           ''t''
71   );      
72  
73     -- shaded_p
74     perform portal_datasource__set_def_param (
75           ds_id,
76           ''t'',
77           ''t'',
78           ''shaded_p'',
79           ''f''
80   );      
81  
82     -- link_hideable_p
83     perform portal_datasource__set_def_param (
84           ds_id,
85           ''t'',
86           ''t'',
87           ''link_hideable_p'',
88           ''t''
89   );      
90  
91  
92       perform portal_datasource__set_def_param(
93           ds_id,
94           ''t'',
95           ''f'',
96           ''scoped_p'',
97           ''t''
98       );
99  
100  
101  
102  
103  
104      return 0;
105  
106   end;' language 'plpgsql';
107   select inline_0();
108   drop function inline_0();
109  
110  
111   create function inline_0()
112   returns integer as '
113   declare
114           foo integer;
115   begin
116           -- create the implementation
117           foo := acs_sc_impl__new (
118                   ''portal_datasource'',
119                   ''invoices_portlet'',
120                   ''invoices_portlet''
121           );
122  
123      return 0;
124  
125   end;' language 'plpgsql';
126   select inline_0();
127   drop function inline_0();
128  
129  
130  
131   create function inline_0()
132   returns integer as '
133   declare
134           foo integer;
135   begin
136  
137           -- add all the hooks
138           foo := acs_sc_impl_alias__new (
139                  ''portal_datasource'',
140                  ''invoices_portlet'',
141                  ''GetMyName'',
142                  ''invoices_portlet::get_my_name'',
143                  ''TCL''
144           );
145  
146           foo := acs_sc_impl_alias__new (
147                  ''portal_datasource'',
148                  ''invoices_portlet'',
149                  ''GetPrettyName'',
150                  ''invoices_portlet::get_pretty_name'',
151                  ''TCL''
152           );
153  
154           foo := acs_sc_impl_alias__new (
155                  ''portal_datasource'',
156                  ''invoices_portlet'',
157                  ''Link'',
158                  ''invoices_portlet::link'',
159                  ''TCL''
160           );
161  
162           foo := acs_sc_impl_alias__new (
163                  ''portal_datasource'',
164                  ''invoices_portlet'',
165                  ''AddSelfToPage'',
166                  ''invoices_portlet::add_self_to_page'',
167                  ''TCL''
168           );
169  
170           foo := acs_sc_impl_alias__new (
171                  ''portal_datasource'',
172                  ''invoices_portlet'',
173                  ''Show'',
174                  ''invoices_portlet::show'',
175                  ''TCL''
176           );
177  
178           foo := acs_sc_impl_alias__new (
179                  ''portal_datasource'',
180                  ''invoices_portlet'',
181                  ''Edit'',
182                  ''invoices_portlet::edit'',
183                  ''TCL''
184           );
185  
186           foo := acs_sc_impl_alias__new (
187                  ''portal_datasource'',
188                  ''invoices_portlet'',
189                  ''RemoveSelfFromPage'',
190                  ''invoices_portlet::remove_self_from_page'',
191                  ''TCL''
192           );
193  
194      return 0;
195  
196   end;' language 'plpgsql';
197   select inline_0();
198   drop function inline_0();
199  
200  
201  
202   create function inline_0()
203   returns integer as '
204   declare
205           foo integer;
206   begin
207  
208           -- Add the binding
209           perform acs_sc_binding__new (
210               ''portal_datasource'',
211               ''invoices_portlet''
212           );
213  
214      return 0;
215  
216   end;' language 'plpgsql';
217   select inline_0();
218   drop function inline_0();
219  
220  
221  
222