| … | |
… | |
| 287 | $label; |
287 | $label; |
| 288 | } |
288 | } |
| 289 | |
289 | |
| 290 | my $vecnum; |
290 | my $vecnum; |
| 291 | |
291 | |
|
|
292 | sub RECORD_FORM_LABEL { # this stores form data (such as sticky answers), but does nothing more |
|
|
293 | # it's a bit of hack since we are storing these in the KEPT_EXTRA_ANSWERS queue even if they aren't answers per se. |
|
|
294 | my $label = shift; # the label of the input box or textarea |
|
|
295 | eval(q!push(@main::KEPT_EXTRA_ANSWERS, $label)!); #put the labels into the hash to be caught later for recording purposes |
|
|
296 | $label; |
|
|
297 | } |
| 292 | sub NEW_ANS_ARRAY_NAME { # this keeps track of the answers which are entered implicitly, |
298 | sub NEW_ANS_ARRAY_NAME { # this keeps track of the answers which are entered implicitly, |
| 293 | # rather than with a specific label |
299 | # rather than with a specific label |
| 294 | my $number=shift; |
300 | my $number=shift; |
| 295 | $vecnum = 0; |
301 | $vecnum = 0; |
| 296 | my $row = shift; |
302 | my $row = shift; |
Parent Directory
| 
Revision Log
| 
Patch