forward port of newline/cr bug fix

This commit is contained in:
Colin Kuskie 2006-02-10 21:18:13 +00:00
parent b13ba6a2c2
commit c68c65a504
5 changed files with 25 additions and 1 deletions

View file

@ -87,7 +87,9 @@ the list.
sub getValueFromPost {
my $self = shift;
if ($self->session->form->param($self->get("name")."_new")) {
return $self->session->form->param($self->get("name")."_new");
my $formValue = $self->session->form->param($self->get("name")."_new");
$formValue =~ tr/\r\n//d;
return $formValue;
}
return $self->SUPER::getValueFromPost;
}