Help for this page

Select Code to Download


  1. or download this
    my %FORM = $q->Vars('topic','words','pass','textsize','topicsize','edit');
  2. or download this
    my @labels = qw(topic words pass name textsize topicsize);
my %form = map { $_ => $q->param($_) } @labels;
  3. or download this
    sub parse_form {
    my %FORM = map { $_, @{[ param($_) ]} > 1 ? [ param($_) ] : param(
+$_) } param();
    $name = $q->param('name') || "Agenda";
...
        seperate_page()
    }
}