#!/usr/local/bin/perl -T
# Standalone demo for repeatable html input field.
use warnings; use strict;
use CGI;
sub escapeHTML {
my($v) = @_;
$v =~ s/&/&/g;
$v =~ s//>/g;
$v =~ s/"/"/g;
$v;
}
our(@nam);
our $ownurl = "cpdemo.cgi";
sub hparm {
@nam = grep { length } CGI::param("fld-nam");
}
sub htop {
print
qq{Content-Type: text/html; charset=utf-8\n},
qq{\n},
qq{\n},
qq{\n},
q{
Repeatable html input field demo
Repeatable html input field demo
};
# note: do not add a title attribute to the first style sheet but do not delete the one from the second stylesheet or this breaks in konqueror
}
sub hform {
print q{