if (not Shits) {
print <Учащихся не найдено

He найдено учащихся, удовлетворяющих вашему критерию. 
END_OF_HTML } else {
print < Найдено $hits учащихся  <р> 
 
END_OF_HTML
while(my(%fields)=$out->fetchhash) {
print qq%

$fields{'first'} $fields{'middle'} $fields{'last'}%;
print ", $fields{'ext'}" if $fields{'ext'}; 
print "\n"; } }
print < 

HcKaTb снова.
 
END_OF_HTML }
С помощью функции make_search_query эта функция сначала ищет учащихся, 
отвечающих критериям поиска. Затем она выводит список найденных записей, среди 
которых пользователь может сделать выбор. ID выбранной записи передается 
функции change2, как показано ниже:
sub change2 {
my $out = $dbh->query
("select * from student where id=$id");
my($did,Ifirst,$middle,$last,
$ext,Ssubjects.Sage,$sex,$address,
$city,$state,$zip,$phone) = $out->fetch row;
my ©subjects = split(/:/,$subjects); 
shift,©subjects;
my $name = "$first $tmiddle $last";
if ($ext) { $name .= ", $ext"; }
print header, start_html('title'=>"$name", 'BGCOLOR'=>'white');
print <$name 

 


Имя:

Отчество: 
 
Фамилия:
 
МЛ./III/И т.д. 
 

Адрес:


Город:
 
Штат:
 
Почтовый индекс: 

Телефон:

 
Возраст:

Пол: 
END_OF_HTML
my %sexes = ( '1' => 'Мужской',
'2' => 'Женский' );
print popup_menu('name'=>'Пол', 'values'=>["!', '2'], 'default'=>"$sex", ' 
labels'=>\%sexes);
print <
Записан на:
 
END_OF_HTML
my @ids = ();
my %subjects = ();
my $out2 = $dbh->query("select id,name from subject order by name"); 
while(my($id,$subject)=$out2->fetchrow) { push(@ids,Sid);
$subjects{"$id"} = $subject; }
print scrolling_list('name'=>'subjects', 'values'=>[@ids], 
'default'=>[@subjects], 'size'=>5, 'multiple'=>'true', 'labels'=>\%subjects); 
print <