my ($action,$message,$any) = @_;
print < 
 
$message
END_OF_HTML
if ($any) {
print <Поиск 
 
любой
Bce  выбранные вами.
END_OF_HTML
У
print <
Имя: 
 
Отчество: 

Фамилия:

МЛ./III/И т.д..: 
 

Адрес:


Город: 

Штат:

Почтовый индекс: 


Телефон:


Возраст:

Пол: 

END_OF_HTML
if ($any) {
print <He имеет значения 
END_OF_HTML
}
print <Myжской 
Женский 



Записан на:

END_OF_HTML
&print_subjects("MULTIPLE SIZE=5");
}
Благодаря использованию трех параметров эта функция настраивает шаблон формы 
так, что может использоваться в самых различных целях. Обратите внимание, что 
эта вспомогательная функция использует другую вспомогательную функцию, 
print_subjects . Последняя выводит список всех имеющихся предметов из таблицы 
subject, как в примере Msql.pm.
sub print_subjects { my $modifier = ""; 
$modifier = shift if @_; 
print qq%\n%;
my $out = $dbh->query("select * from subject order by name");
while(my(%keys)=$out->fetchhash) {
print qq%$keys{'name'}\n%;
}
print "\n"; 
}
Параметры поиска, введенные в первую форму, передаются функции search2, 
фактически осуществляющей поиск. На самом деле это функция, написанная для 
поиска учащегося, данные о котором нужно показать. Поскольку она делает как раз 
то, что нам требуется, мы можем ею воспользоваться, если сообщим ей, что после 
поиска хотим перейти
к следующей функции изменения, change2. Для этого мы ввели в форму скрытую 
переменную subaction=change2 . Она сообщает search2, куда отправить 
пользователя дальше:
sub search2 {
my $out = $dbh->query(&make_search_query); 
my $hits = $out->numrows;
my $subaction = "view";
$subaction = param('subaction')
if param('subaction');
print header, start_html('title'=>'Результаты поиска учащихся', 
'BGCOLOR'=>'white');