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
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
|
<?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 name="validation-page"
xmlns:vm="http://www.openlinksw.com/vspx/ods/"
xmlns:v="http://www.openlinksw.com/vspx/"
style="index.xsl"
doctype="-//W3C//DTD XHTML 1.0 Transitional//EN"
doctype-system="http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"
fast-render="1">
<vm:page>
<vm:header>
<vm:title>Semantic Pingback Setup</vm:title>
</vm:header>
<vm:pagewrapper >
<v:variable persist="temp" name="msg_msg" type="varchar" default="''"/>
<v:variable name="edit_semping" type="varchar" default="null" param-name="edit" />
<v:variable name="del_semping" type="varchar" default="null" param-name="del" />
<vm:rawheader caption="Edit your personal data"/>
<vm:navigation-new on="settings"/>
<vm:subnavigation-new on="site"/>
<vm:body>
<vm:login redirect="index.vspx"/>
<h3>Fields for validation</h3>
<div style="height: 400px; overflow: auto;">
<table id="lvalidation" class="listing" cellspacing="0">
<tr class="listing_header_row">
<td width="1%"></td>
<th>Field</th>
<th width="1%"></th>
<th>Field</th>
</tr>
<?vsp
declare N, M integer;
declare fields, data any;
fields := LDAP..contact_fields ();
data := coalesce ((select deserialize (LV_FIELDS) from LDAP..LDAP_VALIDATION where LV_USER_ID = self.u_id), vector());
M := length (fields) / 2;
for (N := 0; N < M; N := N + 2)
{
?>
<tr>
<td width="1%">
<?vsp http (sprintf ('<input type="checkbox" %s name="cb_item" value="%s"', case when (get_keyword (fields[N], data, '') <> '') then 'checked="checked"' else '' end, fields[N])); ?>
</td>
<td width="50%">
<?V fields[N+1] ?>
</td>
<td width="1%">
<?vsp http (sprintf ('<input type="checkbox" %s name="cb_item" value="%s"', case when (get_keyword (fields[M+N], data, '') <> '') then 'checked="checked"' else '' end, fields[M+N])); ?>
</td>
<td width="50%">
<?V fields[M+N+1] ?>
</td>
</tr>
<?vsp
}
?>
</table>
</div>
<div class="new-form-footer">
<v:button name="vButton_save" action="simple" value="Save" xhtml_class="form-button">
<v:on-post>
<![CDATA[
declare N integer;
declare params, data any;
params := e.ve_params;
data := vector ();
for (N := 0; N < length (params); N := N + 4)
{
if (params[N] = 'cb_item')
data := vector_concat (data, vector (params[N+1],'1'));
}
insert replacing LDAP..LDAP_VALIDATION (LV_USER_ID, LV_FIELDS) values (self.u_id, serialize (data));
self.vc_data_bind(e);
]]>
</v:on-post>
</v:button>
</div>
</vm:body>
</vm:pagewrapper>
</vm:page>
</v:page>
|
