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
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
|
!if $(module_description_$moduclass_lang)!=$empty
!set module_description=$(module_description_$moduclass_lang)
!endif
!read adm/title.phtml 1\
$classname\
$module_description\
$wims_name_sequence $seq
$name_addseq
!! Read some translation vars (like $C_A)
!readproc adm/search_engine/names.$lang
!set data=!record 1 of wimshome/log/classes/$wims_class/seq/.sequence$seq
!form reply
<label for="seq_title">$wims_name_title</label>: <input id="seq_title" name="seq_title" size="12" value="$(data[1;])">
$
<label for="seq_desc"> $wims_name_Description</label>: <input id="seq_desc" name="seq_desc" size="20" value="$(data[2;])">
$
<label for="visible">$wims_name_Status</label>:
!set visible=$(data[4;])
!formselect visible list 0,1 prompt $wims_name_shstatus[0..1]
$table_header
<caption>$wims_name_Docs, $wims_name_Votes & $C_A</caption>
$table_hdtr<th scope="col">$wims_name_title</th>
<th scope="col">$wims_name_Status</th>
<th scope="col">$wims_name_Position</th></tr>
!set listc=!filelist $wims_home/log/classes/$wims_class/doc
!set listc=!replace internal c by in $listc
!set listc=!lines2items $listc
!set listc=!sort numeric items $listc
!for i=1 to $doccnt
!set ci_=!item $(wims_sort_order[$i]) of $listc
!set sh=!record $ci_ of wimshome/log/classes/$wims_class/doc/.index
!distribute lines $sh into s_,t_,bidon,bidon,bidon,o_
!set ss_=!replace internal c by c$ $ in $s_
!set c_$i=!positionof item $ss_ in $(data[3;])
!set ss_=!replace internal c by c_ in $s_
!if $s_!=
$table_tr
<td>
<label for="$ss_">
!set wims_ref_class=wims_doc_item
!href module=adm/doc&job=read&doc=$s_&block=main $t_
</label>
</td><td class="wims_status_$o_">
!item $[$o_+1] of $wims_name_status
!set wims_ref_class=wims_button
!href module=adm/doc&job=prop&doc=$s_ $wims_name_change
</td><td>
<input type="number" name="$ss_" size="5" value="$(c_$i)" id="$ss_">
</td>
</tr>
!endif
!next i
!for i=1 to $docpubliccnt
!set sh=!record $i of wimshome/log/classes/$wims_class/doc/.docindex
!distribute lines $sh into s_,t_,ti,d_,o_
$table_tr
<td>
!set wims_ref_class=wims_doc_item
<label for="doc_$i">
!href module=$s_&$t_ $ti
</label>
</td><td class="wims_status_$o_">
!item $[$o_+1] of $wims_name_status
!set wims_ref_class=wims_button
!href module=adm/class/adddoc&job=prop&doc=$i $wims_name_change
</td><td>
!set doc_$i=!positionof item doc $i in $(data[3;])
<input type="number" name="doc_$i" size="5" value="$(doc_$i)" id="doc_$i">
</td>
</tr>
!next i
!for i=1 to $sheetcnt
!set sh=!record $i of wimshome/log/classes/$wims_class/sheets/.sheets
!distribute lines $sh into ac,t_,ti
$table_tr
<td>
!set wims_ref_class=wims_sheet_item
<label for="sheet_$i">
!href module=adm/class/sheet&sheet=$i $ti
</label>
</td><td class="wims_status_$ac">
$(wims_name_shstatus[$ac+1])
</td><td>
!set sheet_$i=!positionof item sheet $i in $(data[3;])
<input type="number" name="sheet_$i" size="5" value="$(sheet_$i)" id="sheet_$i">
</td>
</tr>
!next i
!!set examcnt=!recordcnt wimshome/log/classes/$wims_class/exams/.exams
!for i=1 to $examcnt
!set sh=!record $i of wimshome/log/classes/$wims_class/exams/.exams
!distribute lines $sh into ac,t_,d_,ti
$table_tr
<td>
<label for="exam_$i">
!set wims_ref_class=wims_exam_item
!href module=adm/class/exam&exam=$i $ti
</label>
</td><td class="wims_status_$ac">
$(wims_name_shstatus[$ac+1])
</td><td>
!set exam_$i=!positionof item exam $i in $(data[3;])
<input type="number" name="exam_$i" size="5" value="$(exam_$i)" id="exam_$i">
</td>
</tr>
!next i
!!set votecnt=!recordcnt wimshome/log/classes/$wims_class/vote/.votes
!for i=1 to $votecnt
!set sh=!record $i of wimshome/log/classes/$wims_class/vote/.votes
!distribute lines $sh into st_,ti_,op_,re_
$table_tr
<td>
<label for="vote_$i">
!set wims_ref_class=wims_vote_item
!href module=adm/vote&job=read&vote=$i $ti_
</label>
</td><td class="wims_status_$st_">
$(wims_name_status[$st_+1])
</td><td>
!set vote_$i=!positionof item vote $i in $(data[3;])
<input type="number" name="vote_$i" size="5" value="$(vote_$i)" id="vote_$i">
</td>
</tr>
!next i
!for i=1 to $toolcnt
!set sh=!record $i of wimshome/log/classes/$wims_class/tool/.toolindex
!distribute lines $sh into s_,t_,ti,d_,o_
$table_tr
<td>
<label for="tool_$i">
!set wims_ref_class=wims_tool_item
!href module=$s_&$t_ $ti
</label>
</td><td class="wims_status_$o_">
!item $[$o_+1] of $wims_name_status
!set wims_ref_class=wims_button
!href module=adm/class/adddoc&job=prop&tool=$i $wims_name_change
</td><td>
!set doc_$i=!positionof item tool $i in $(data[3;])
<input type="number" name="tool_$i" size="5" value="$(tool_$i)" id="tool_$i">
</td>
</tr>
!next i
!for i=1 to $glossarycnt
!set sh=!record $i of wimshome/log/classes/$wims_class/tool/.glossaryindex
!distribute lines $sh into o_,ti
$table_tr
<td>
<label for="glossary_$i">
!set wims_ref_class=wims_glossary_item
!href module=adm/tool/glossary&gl=$i $ti
</label>
</td><td class="wims_status_$o_">
!item $[$o_+1] of $wims_name_status
!set wims_ref_class=wims_button
!href module=adm/class/glossary&job=chstatus&gl=$i $wims_name_change
</td><td>
!set glossary_$i=!positionof item glossary $i in $(data[3;])
<input type="number" name="glossary_$i" size="5" value="$(glossary_$i)" id="glossary_$i">
</td>
</tr>
!next i
!for i=1 to $freeworkcnt
!set sh=!record $i of wimshome/log/classes/$wims_class/freeworks/.freeworks
!distribute lines $sh into o_,bl,ti
$table_tr
<td>
<label for="freework_$i">
!set wims_ref_class=wims_freework_item
!href module=adm/class/freework/&freework=$i $ti
</label>
</td><td class="wims_status_$o_">
$(wims_name_shstatus[$o_+1])
</td><td>
!set freework_$i=!positionof item freework $i in $(data[3;])
<input type="number" name="freework_$i" size="5" value="$(freework_$i)" id="freework_$i">
</td>
</tr>
!next i
$table_end
<div class="wimscenter wimsform"><input type="submit" value="$wims_name_tosave"></div>
!formend
|
