version 1.77, 2002/11/10 15:09:25
|
version 1.78, 2002/11/10 16:10:53
|
Line 18 my %rusfieldname=('Question','Вопрос', '
|
Line 18 my %rusfieldname=('Question','Вопрос', '
|
'Comments', 'Комментарии', 'Authors', 'Автор', |
'Comments', 'Комментарии', 'Authors', 'Автор', |
'Sources', 'Источник','old','Старый','rus','Новый', |
'Sources', 'Источник','old','Старый','rus','Новый', |
'chgk', 'ЧГК', 'brain', 'Брейн-ринг','game', 'Своя игра', |
'chgk', 'ЧГК', 'brain', 'Брейн-ринг','game', 'Своя игра', |
'ehruditka', 'Эрудитка', 'beskrylka', 'Бескрылка' |
'ehruditka', 'Эрудитка', 'beskrylka', 'Бескрылка', 'igp', 'Интернет' |
); |
); |
my %searchin; |
my %searchin; |
my $rl=qr/[йцукенгшщзхъфывапролджэячсмитьбюё]/; |
my $rl=qr/[йцукенгшщзхъфывапролджэячсмитьбюё]/; |
Line 33 my %metodchar=('rus',1,'old',2);
|
Line 33 my %metodchar=('rus',1,'old',2);
|
my $thislocale; |
my $thislocale; |
|
|
$searchin{$_}=1 foreach param('searchin'); |
$searchin{$_}=1 foreach param('searchin'); |
my %TypeName=('children'=>'Д', 'game'=>'И', |
my %TypeName=('children'=>'Д', 'game'=>'Я', 'igp'=>'И', |
'chgk'=>'Ч', 'brain'=>'Б', 'beskrylka'=>'Л','ehruditka'=>'Э'); |
'chgk'=>'Ч', 'brain'=>'Б', 'beskrylka'=>'Л','ehruditka'=>'Э'); |
|
|
|
|
Line 175 sub printform
|
Line 175 sub printform
|
my $fields=checkbox_group('searchin',['Question','Answer','Comments','Authors','Sources'], [@df], |
my $fields=checkbox_group('searchin',['Question','Answer','Comments','Authors','Sources'], [@df], |
'false',\%rusfieldname); |
'false',\%rusfieldname); |
@df=param('type'); |
@df=param('type'); |
@df=('chgk','brain','game','ehruditka','beskrylka') unless @df; |
@df=('chgk','brain','igp','game','ehruditka','beskrylka') unless @df; |
|
|
my $types=checkbox_group('type',['chgk','brain','game','ehruditka','beskrylka'], [@df], |
my $types=checkbox_group('type',['chgk','brain','igp','game','ehruditka','beskrylka'], [@df], |
'false',\%rusfieldname); |
'false',\%rusfieldname); |
my $metod=radio_group(-name=>'metod',-values=>['old','rus'], |
my $metod=radio_group(-name=>'metod',-values=>['old','rus'], |
-default=>(param('metod')||'rus'), |
-default=>(param('metod')||'rus'), |