replaced $session{cgi} with $session{req}
This commit is contained in:
parent
1b0adbb416
commit
c01d7e49d5
33 changed files with 76 additions and 66 deletions
|
|
@ -61,7 +61,7 @@ Returns a string filtered to allow only digits, spaces, and these special charac
|
|||
|
||||
sub getValueFromPost {
|
||||
my $self = shift;
|
||||
my $value = $session{cgi}->param($self->{name});
|
||||
my $value = $session{req}->param($self->{name});
|
||||
if ($value =~ /^[\d\s\-\+\(\)]+$/) {
|
||||
return $value;
|
||||
}
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue