1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
|
<?xml version="1.0" encoding="UTF-8"?>
<!--
-
- $Id$
-
- This file is part of the OpenLink Software Virtuoso Open-Source (VOS)
- project.
-
- Copyright (C) 1998-2018 OpenLink Software
-
- This project is free software; you can redistribute it and/or modify it
- under the terms of the GNU General Public License as published by the
- Free Software Foundation; only version 2 of the License, dated June 1991.
-
- This program is distributed in the hope that it will be useful, but
- WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- General Public License for more details.
-
- You should have received a copy of the GNU General Public License along
- with this program; if not, write to the Free Software Foundation, Inc.,
- 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
-
-->
<v:page style="/DAV/VAD/blog2/widgets/main.xsl"
name="home"
xmlns:vm="http://www.openlinksw.com/vspx/weblog/"
xmlns:v="http://www.openlinksw.com/vspx/"
doctype="-//W3C//DTD XHTML 1.0 Transitional//EN"
doctype-system="http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"
on-deadlock-retry="5">
<vm:page>
<v:method name="widget_render" arglist="in widget varchar"><![CDATA[
declare children any;
children := self.home_children;
foreach (vspx_control chil in children) do
{
if (chil <> 0 and chil is not null and chil.vc_name = widget)
{
chil.vc_render ();
return;
}
}
http (sprintf ('Unknown generic widget: [%s]', widget));
--dbg_printf ('Unknown generic widget: [%s]', widget);
]]></v:method>
<?vsp
declare children, widgets any;
declare form vspx_control;
declare i, l, inx any;
children := self.page_form.vc_children;
-- keep length in sync with IN values below
widgets := make_array (30, 'any');
l := length (children);
for (i := 0; i < l; i := i + 1)
{
declare chil vspx_control;
chil := children[i];
if (chil is not null and chil.vc_name)
{
--dbg_printf ('Found generic: [%s] inx=%d', chil.vc_name, inx);
widgets [inx] := chil;
children[i] := null;
inx := inx + 1;
}
}
self.home_children := widgets;
self.page_form.vc_children := children;
?>
<vm:header>
<vm:header-wrapper/>
</vm:header>
<vm:body>
<!-- all widgets accessible by users -->
<vm:login-info format_string="%s"/>
<vm:search/>
<vm:calendar />
<vm:amazon-search />
<vm:top-10-search />
<vm:sort-options />
<vm:subscribe />
<vm:archive/>
<vm:posts />
<vm:comments-list />
<vm:post-comment />
<!-- end -->
<vm:body-wrapper/>
</vm:body>
</vm:page>
</v:page>
|
