169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
|
@ # rendered.
@ #
@ {
@ <!-- load database field names not found in CGI with an empty string -->
@ <!-- start a form -->
@ [{
@ {Open} /status set
@ submit_new_ticket
@ } /submit exists if]
@ <table cellpadding="5">
@ <tr>
@ <td colspan="2">
@ Enter a one-line summary of the problem:<br>
@ <input type="text" name="title" size="60" value="[{} /title get html]">
@ </td>
|
|
|
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
|
@ # rendered.
@ #
@ {
@ <!-- load database field names not found in CGI with an empty string -->
@ <!-- start a form -->
@ [{
@ {Open} /status set
@ submit_ticket
@ } /submit exists if]
@ <table cellpadding="5">
@ <tr>
@ <td colspan="2">
@ Enter a one-line summary of the problem:<br>
@ <input type="text" name="title" size="60" value="[{} /title get html]">
@ </td>
|
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
|
@ </td>
@ <td>How debilitating is the problem? How badly does the problem
@ effect the operation of the product?</td>
@ </tr>
@
@ <tr>
@ <td align="right">EMail:
@ [/severity severity_choices 1 combobox]
@ </td>
@ <td>Not publically visible. Used by developers to contact you with
@ questions.</td>
@ </tr>
@
@ <tr>
@ <td colspan="2">
|
|
|
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
|
@ </td>
@ <td>How debilitating is the problem? How badly does the problem
@ effect the operation of the product?</td>
@ </tr>
@
@ <tr>
@ <td align="right">EMail:
@ <input type="text" name="contact" value="[{} /contact get html]" size="30">
@ </td>
@ <td>Not publically visible. Used by developers to contact you with
@ questions.</td>
@ </tr>
@
@ <tr>
@ <td colspan="2">
|
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
|
@ # CGI parameters.
@ {
@ [
@ login /username get /username set
@ {
@ {
@ username login eq /samename set
@ "samename=" html samename html "<br>" puts
@ "\n<hr><i>" login " added on " date ":</i></br>\n" cmappnd 6 concat
@ /comment append_field
@ } samename if
@ {
@ "\n<hr><i>" login " claiming to be " username " added on " date
@ "</i><br>\n" cmappnd 8 concat /comment append_field
@ } samename not if
@ } 0 {} /cmappnd get length lt if
@ submit_ticket
@ } /submit exists if
@ ]
@ <table cellpadding="5">
|
<
|
|
|
|
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
|
@ # CGI parameters.
@ {
@ [
@ login /username get /username set
@ {
@ {
@ username login eq /samename set
@ {
@ "\n\n<hr><i>" login " added on " date ":</i><br>\n"
@ cmappnd 6 concat /comment append_field
@ } samename if
@ {
@ "\n\n<hr><i>" login " claiming to be " username " added on " date
@ "</i><br>\n" cmappnd 8 concat /comment append_field
@ } samename not if
@ } 0 {} /cmappnd get length lt if
@ submit_ticket
@ } /submit exists if
@ ]
@ <table cellpadding="5">
|