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
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
|
<?vsp
--
-- $Id$
--
-- This file is part of the OpenLink Software Virtuoso Open-Source (VOS)
-- project.
--
-- Copyright (C) 1998-2012 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
--
--
adm_pre_page(lines);
declare col, pcol, _idx integer;
declare name, nname, pname, parent, _acct varchar;
if (not adm_check_auth (lines)) {adm_tell_unauth(lines); return (0);}
col := atoi (get_keyword('col', params, '1'));
name := get_keyword('name', params, '/');
_acct := get_keyword('acct', params, '');
declare _crpage varchar;
_crpage := get_keyword ('crpage', params, 'trx_repl_pub_items.vsp');
if ('' = get_keyword ('dwn', params, ''))
{
pcol := atoi (get_keyword('pcol',params, '1'));
pname := get_keyword('pname',params,'/');
}
else
{
select COL_PARENT into pcol from WS.WS.SYS_DAV_COL where COL_ID = col;
if (pcol = 0 or pcol is null)
pcol := 1;
if (name <> '/')
pname := subseq (name, 0, strrchr (subseq (name, 0, length (name) - 1), '/') + 1);
else
pname := '/';
}
?>
<html>
<head>
<link rel="stylesheet" type="text/css" HREF="<?=adm_what_css()?>">
<meta name="AUTHOR" content="OpenLink Software">
<meta name="DESCRIPTION" content="Transactional replication wizard - Web DAV list">
<title>Content of <?=name?></title>
</head>
<SCRIPT LANGUAGE="JavaScript">
<!--
function formpost(col, pcol, name, pname, dwn )
{
document.dir.col.value = col;
document.dir.pcol.value = pcol;
document.dir.name.value = name;
document.dir.pname.value = pname;
document.dir.dwn.value = dwn;
document.dir.action = 'trx_dav.vsp';
document.dir.submit();
}
function form_postnew_col()
{
document.dir.action = 'trx_new_dav_col.vsp';
document.dir.submit();
}
// -->
</SCRIPT>
<?vsp adm_page_header(concat('Content of ', name), NULL); ?>
<?include ../adm_js_check.vsp ?>
<form action="<?=_crpage?>" method=post enctype="multipart/form-data" name="dir">
<input type=hidden name=col value="<?=col?>">
<input type=hidden name=pcol value="<?=pcol?>">
<input type=hidden name=name value="<?=name?>">
<input type=hidden name=pname value="<?=pname?>">
<input type=hidden name=dwn value="">
<input type=hidden name=acct value="<?=_acct?>">
<input type="hidden" name="crpage" value="<?=_crpage?>">
<TABLE CLASS="genlist" BORDER="0" CELLPADDING="0">
<tr><td></td><td class="gendata">
<img src="/images/dir.gif"></td><td class="gendata"><a href="#" OnClick="formpost ('<?=pcol?>','','<?=pname?>','', '1'); return false" >..</a>
</td></tr>
<?vsp for select COL_ID, COL_NAME from WS.WS.SYS_DAV_COL where COL_PARENT = col do {
nname := concat (name, COL_NAME, '/');
?>
<tr><td>
<input type=checkbox name="CB_<?=name?><?=COL_NAME?>">
</td>
<td class="gendata">
<img src="/images/dir.gif">
</td><td class="gendata"><a href="#" OnClick="formpost ('<?=COL_ID?>','<?=col?>','<?=nname?>','<?=name?>', ''); return false"><?=COL_NAME?></a></td></tr>
<?vsp } ?>
<?vsp for select RES_NAME from WS.WS.SYS_DAV_RES where RES_COL = col do {
?>
<tr><td> </td>
<td class="gendata">
<img src="/images/generic.gif">
</td><td class="gendata"><?=RES_NAME?></td></tr>
<?vsp } ?>
<tr>
<td colspan="3" align="right"><input type=submit OnClick="form_postnew_col (); return false" name=new value="Create collection"></td>
<td colspan="3" align="right"><input type=submit name=davcol value="Add"></td>
</tr>
</table>
</form>
<?vsp adm_page_footer(); ?>
</html>
|
