version 1.22, 2001/10/17 00:15:10
|
version 1.23, 2001/10/18 19:45:26
|
Line 17 my %searchin;
|
Line 17 my %searchin;
|
my $thislocale; |
my $thislocale; |
|
|
|
|
$searchin{'question'}=param('question'); |
$searchin{'question'}=param('Question'); |
$searchin{'answer'}=param('answer'); |
$searchin{'answer'}=param('Answer'); |
$searchin{'comment'}=param('comment'); |
$searchin{'comment'}=param('Comment'); |
my $all=param('all'); |
my $all=param('all'); |
$all=0 if lc $all eq 'no'; |
$all=0 if lc $all eq 'no'; |
my ($PWD) = `pwd`; |
my ($PWD) = `pwd`; |