- fix: bug in EMS purge

- fix: bug in poll where you can't edit it to have less answers
This commit is contained in:
JT Smith 2007-08-16 21:03:53 +00:00
parent c1b95c7a62
commit 5167b279f5
5 changed files with 37 additions and 26 deletions

View file

@ -339,11 +339,13 @@ sub prepareView {
sub processPropertiesFromFormPost {
my $self = shift;
$self->SUPER::processPropertiesFromFormPost;
my (@answer, $i, $property);
@answer = split("\n",$self->session->form->process("answers"));
for ($i=1; $i<=20; $i++) {
$property->{'a'.$i} = $answer[($i-1)];
}
my $property = {};
my $answers = $self->session->form->process("answers");
$answers =~ s{\r}{}xmsg;
my @answer = split("\n",$answers);
for (my $i=1; $i<=20; $i++) {
$property->{'a'.$i} = $answer[($i-1)] || "";
}
if (WebGUI::Image::Graph->getPluginList($self->session)) {
my $graph = WebGUI::Image::Graph->processConfigurationForm($self->session);