#server code sub editShares_save{ my $self = shift; my $q = $self->query; my $OT = OpenThought->new(); my $params; my @names=$q->param; my @Share=$q->param('Share'); warn (scalar @Share)."\n"; foreach(@names){warn 'name='.($_).' value='.($q->param("$_"))."\n";} } #generated HTML form
Share
- John Smith %
- Jane Doe %