Сначала нужно выбрать новое число
# (повторно передав форму с установленным параметром 'override',
if ($out->numrows and not param('override')) { # Печать страницы 'Класс уже существует'.
} else {
# Теперь вводим данные в базу.
# Сначала нужно выбрать новое число из
# последовательности для таблицы.
$out = $dbh->query("select _seq from subject");
my ($id) = $out->fetchrow;
# Теперь вводим информацию в базу данных, используя
# полученное из последовательности число в качестве ID.
$query = "INSERT INTO subject (id, name, teacher)
VALUES ($id, '$name', 'Steacher')"; $dbh->query($query);
# Если пользователь не задал размер класса, выходим
# с сообщением о том, что пользователь может добавить
# число учащихся позже, if (not param('size')) {
# Вывод страницы с сообщением об успехе.
} else { \
# Теперь выводим форму, позволяющую пользователю
# ввести имена всех учащихся в классе.
print header, start_html('title'=>'Create Class List',
'BGCOLOR'=>'white'); print <<END_OF_HTML;
<Н1>Создать список класса</h1> <P>
<B>$name</b>
добавлен в базу данных. Теперь можно ввести фамилии учащихся в этом классе. Добавить или исключить учащихся можно позднее с главной страницы предметов
<а href="subject.cgi"> </a>.
<Р>
<FORM METHOD=POST ACTION="subject.cgi">
<INPUT TYPE=HIDDEN NAME="action" VALUE="add3">
<INPUT TYPE=HIDDEN NAME="id" VALUE="$id">
<table>
<ТР><ТН><ТН>Имя<ТН>Отчество/Инициал
<ТН>Фамилия<ТН>мл.,ст.,III,и т.д.
</tr>
END_OF_'HTML
for $i (1.,$size) {
print <<END_OF_HTML;
<TR><TD>$i<TD><INPUT SIZE=15 NAME="first$i"><TD>
<lNPUT SIZE=15 NAME="middle$i">
<TD><INPUT SIZE=15 NAME="last$i"><TD>
<INPUT SIZE=5 NAME="ext$i"></tr>
Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий