| … | |
… | |
| 355 | return ($answer,$errorno); |
355 | return ($answer,$errorno); |
| 356 | } |
356 | } |
| 357 | # replace ^ with ** (for exponentiation) |
357 | # replace ^ with ** (for exponentiation) |
| 358 | # $answer =~ s/\^/**/g; |
358 | # $answer =~ s/\^/**/g; |
| 359 | # Return if forbidden characters are found |
359 | # Return if forbidden characters are found |
| 360 | unless ($answer =~ /^[a-zA-Z0-9_\-\+ \t\/@%\*\.\n^\(\)]+$/ ) { |
360 | unless ($answer =~ /^[a-zA-Z0-9_\-\+ \t\/@%\*\.\n^\[\]\(\)\,\|]+$/ ) { |
| 361 | $answer =~ tr/a-zA-Z0-9_\-\+ \t\/@%\*\.\n^\(\)/#/c; |
361 | $answer =~ tr/a-zA-Z0-9_\-\+ \t\/@%\*\.\n^\(\)/#/c; |
| 362 | $errorno = "<BR>There are forbidden characters in your answer: $submittedAnswer<BR>"; |
362 | $errorno = "<BR>There are forbidden characters in your answer: $submittedAnswer<BR>"; |
| 363 | return ($answer,$errorno); |
363 | return ($answer,$errorno); |
| 364 | } |
364 | } |
| 365 | $errorno = 0; |
365 | $errorno = 0; |
Parent Directory
| 
Revision Log
| 
Patch