#!/usr/bin/perl

use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use Digest::MD5 qw(md5 md5_hex md5_base64);
use strict;
use locale;
use Data::Dumper;
use DBI;

open (KEY, "/var/www/kurs.mioo.ru/data/key");
my $key=<KEY>;

my @paramlist = ('fname','sname','oname','obr','vuz','alum','spec','speckv','step','zv','nagr','stype','snum','schname','saddr','sokrug','dolzh','dolzhdate','razr','razrdate','razrplace','predpovc','predpovd','predpovb','predpovu','stazh','stazhruk','profs','profc','metodtem','methodstat','metodstatother','exptema','phonetype','phonecode','phone','phoneother','emailexist','email','progrcat','progrnum','reason1','reason2','reason3','reason4','reason5','reason6','reason7','reason8','reason0','reasonother','recomend1','recomend2','recomend3','recomend4','recomend5','recomend6','recomend7','recomend8','recomend9','recomend10','recomend11','recomend0','recomendother','delivery','compwrite','compslide','inetsearch','mailuse','compown','internetuse');
my @paramspec = ('fname','oname','sname','obr','vuz','alum','stype','snum','schname','saddr','sokrug','dolzh','dolzhdate','razr','razrdate','razrplace','stazh','progrnum','progrcat','emailexist');
my @digits = ('alum','snum','stazh');
my @textual= ('fname','sname','oname');

print header(-charset=>'UTF-8');
print start_html(-title=>"МИОО - АНКЕТА ДЛЯ ИНТЕРНЕТ-РЕГИСТРАЦИИ  СЛУШАТЕЛЯ КУРСОВ ПОВЫШЕНИЯ КВАЛИФИКАЦИИ", -BGCOLOR=>'#e5e5e5');
print "<h2 align=\"center\"> АНКЕТА<br>слушателя курсов повышения квалификации<BR>(2007/08 учебный год)</h2>";
print "<p align=\"center\">". lc("Уважаемые коллеги! Просим Вас 
при регистрации<BR> обращать особое внимание 
на <b><u>ШИФР категории и НОМЕР курсов</u></b>,
указанные в информационном сборнике<BR> 
&#171;Система повышения квалификации и профессиональной переподготовки 
кадров московского образования на 2007&#8211;2008 год&#187;,<BR>
размещенном на сайте <a href=\"index.html\">KURS.MIOO.RU</a>")."</p>
<p><b>Предупреждение:</b> не используйте функцию \"Назад\" Вашего браузера.
</p>
";

my $formt=param('formt')  ? param('formt') : 0;
#$formt=$formt+0;
#print $formt;
#exit 0;
if ($formt eq 0) {
# giving form
print "

<div STYLE=\"color:red\">Внимание!!!</DIV>
Работа курсов 2007-2008 учебного года завершена!
Закончена и регистрация на эти курсы.<BR> 
Для регистрации на курсы 2008-2009 года
воспользуйтесь <A href=\"../reg2009/\">этой страницей</A>.<BR>


Поля, отмеченные <sup>*</sup> обязательны 
для заполения.<BR>

Заполнив ВСЕ обязательные поля, воспользуйтесь клавишей 
&#171;Проверить и сохранить&#187; (после п.10 части II).<BR>
Сохраняйте код подтверждения, который Вы получите ПОСЛЕ успешной регистрации
<br>

<form action=\"teacher-reg.pl\" method=\"POST\">
<br><div align=\"center\"><b> I. Личные данные</b></div>
<br>
<table>
<tr><td>1.</td><td>Фамилия <small><sup STYLE=\"color:red\">*</sup></small></td><td><input type=\"text\" name=\"fname\" value=\"\" size=40></td></tr>
<tr><td>2.</td><td>Имя<small><sup STYLE=\"color:red\">*</sup></small></td><td><input type=\"text\" name=\"sname\" value=\"\" size=40></td></tr>
<tr><td>3.</td><td>Отчество (полностью)<small><sup STYLE=\"color:red\">*</sup></small></td><td><input type=\"text\" name=\"oname\" value=\"\" size=40></td></tr>
<tr><td valign=\"top\">4.</td><td valign=\"top\">Образование<small><sup STYLE=\"color:red\">*</sup></small>
    <br>(высшее образование до 1997 года &#8212; специалист)</td><td valign=\"top\"><select name=\"obr\">
	<option value=\"\"></option>
	<option value=\"sp\">специалист</option>
	<option value=\"ma\">магистр</option>
	<option value=\"ba\">бакалавр</option>
	<option value=\"sr\">среднее</option>
    </select>
</td></tr>
<tr><td>5.</td><td>Какое учебное заведение окончил(а)<small><sup STYLE=\"color:red\">*</sup></small></td><td><input type=\"text\" name=\"vuz\" value=\"\" size=40 ></td></tr>
<tr><td>6.</td><td>Год окончания учебного заведения<small><sup STYLE=\"color:red\">*</sup></small></td><td><input type=\"text\" name=\"alum\" value=\"\" size=4 maxlength=4></td></tr>
<tr><td valign=\"top\">7.</td><td valign=\"top\">Специальность (направление) и квалификация по диплому</td><td>
    <table>
	    <tr><td>Специальность<small><sup STYLE=\"color:red\">*</sup></small></td></tr>
	    <tr><td><input type=\"text\" name=\"spec\" value=\"\" size=40></td></tr>
	    <tr><td>Квалификация<small><sup STYLE=\"color:red\">*</sup></small></td></tr>
	    <tr><td><input type=\"text\" name=\"speckv\" value=\"\" size=40></td></tr>

    </table>
    </td></tr>
<tr><td>8.</td><td>Ученая степень</td><td><select name=\"step\">
	<option value=\"\"></option>
        <option value=\"none\">нет</option>
        <option value=\"cand\">Кандидат наук</option>
        <option value=\"doctor\">Доктор наук</option>
    </select>
</td></tr>
<tr><td>9.</td><td>Ученое звание</td><td><input type=\"text\" name=\"zv\" value=\"\" size=40></td></tr>
<tr><td>10.</td><td>Заслуги, награды</td><td><input type=\"text\" name=\"nagr\" value=\"\" size=40 ></td></tr>
<tr><td valign=\"top\">11.</td><td valign=\"top\">Место работы</td><td>
    <table>
	<tr><td>Тип образовательного учреждения<small><sup STYLE=\"color:red\">*</sup></small></td></tr>
	<tr><td><select name=\"stype\">
	    <option value=\"\"></option>
	    <option value=\"sch\">Школа</option>
	    <option value=\"co\">ЦО</option>
	    <option value=\"lic\">Лицей</option>
	    <option value=\"gym\">Гимназия</option>
	    <option value=\"uvk\">УВК</option>
	    <option value=\"nou\">НОУ</option>
	    <option value=\"other\">иное</option>
	</select></tr></td>
	<tr><td>Номер образовательного учреждения<small><sup STYLE=\"color:red\">*</sup></small>
	    <br>(если образовательное учреждение не имеет номера, введите 0000)</td></tr>
	<tr><td><input type=\"text\" name=\"snum\" value=\"\" size=4 maxlength=4></td></tr>
	<tr><td>Полное название образовательного учреждения<small><sup STYLE=\"color:red\">*</sup></small></td></tr>
	<tr><td><input type=\"text\" name=\"schname\" value=\"\" size=40></td></tr>
	<tr><td>Адрес образовательного учреждения<small><sup STYLE=\"color:red\">*</sup></small></td></tr>
	<tr><td><input type=\"text\" name=\"saddr\" value=\"\" size=40 ></td></tr>
	<tr><td>Округ<small><sup STYLE=\"color:red\">*</sup></small></td></tr>
	<tr><td><select name=\"sokrug\">
	    <option value=\"\"></option>
	    <option value=\"cao\">ЦАО</option>
	    <option value=\"vao\">ВАО</option>
	    <option value=\"zao\">ЗАО</option>
	    <option value=\"sao\">САО</option>
	    <option value=\"szao\">СЗАО</option>
	    <option value=\"svao\">СВАО</option>
	    <option value=\"uzao\">ЮЗАО</option>
	    <option value=\"uvao\">ЮВАО</option>
	    <option value=\"uao\">ЮАО</option>
	    <option value=\"zel\">г. Зеленоград</option>
	    <option value=\"dogm\">гор. подчинения</option>
	    <option value=\"other\">другое</option>
	    <option value=\"nomem\">не знаю</option>
	</select>    
	</td></tr>
    </table>
<td></tr>
<tr><td>12.</td><td>Должность по месту работы<small><sup STYLE=\"color:red\">*</sup></small></td><td><input type=\"text\" name=\"dolzh\" value=\"\" size=40 ></td></tr>
<tr><td>13.</td><td>Дата назначения на место работы<small><sup STYLE=\"color:red\">*</sup></small></td><td><input type=\"text\" name=\"dolzhdate\" value=\"\" size=40 ></td></tr>
<tr><td valign=\"top\">14.</td><td valign=\"top\">Квалификационная категория</td><td>
    <table>
	<tr><td>Разряд<small><sup STYLE=\"color:red\">*</sup></small></td></tr>
	<tr><td><select name=\"razr\">
	    <option value=\"\"></option>
	    <option value=\"12\">12</option>
	    <option value=\"13\">13</option>
	    <option value=\"14\">14</option>
	    <option value=\"15\">15</option>
	    <option value=\"16\">16</option>
	    <option value=\"pre12\">аттестацию не проходил, разряд ЕТС <12</option>
	</select>
	<tr><td>Год присвоения<small><sup STYLE=\"color:red\">*</sup></small></td></tr>
	<tr><td><select name=\"razrdate\">
	    <option value=\"\"></option>
	    <option value=\"2007\">2007</option>
	    <option value=\"2006\">2006</option>
	    <option value=\"2005\">2005</option>
	    <option value=\"2004\">2004</option>
	    <option value=\"2003\">2003</option>
	    <option value=\"2002\">2002</option>
	    <option value=\"2001\">2001</option>
	    <option value=\"2000\">2000</option>
	    <option value=\"before2000\">ранее</option>
	</select>
	<tr><td>Место присвоения<small><sup STYLE=\"color:red\">*</sup></small></td></tr>
	<tr><td><input type=\"text\" name=\"razrplace\" value=\"\" size=40>
    </table>
</td></tr>
<tr><td valign=\"top\">15.</td><td valign=\"top\">Повышение квалификации за последние 5-10 лет</td><td>
    <table>
            <tr><td>Темы курсов, количество часов</td></tr>
	    <tr><td><input type=\"text\" name=\"predpovc\" value=\"\" size=60></td></tr>
	    <tr><td>Периоды обучения</td></tr>
	    <tr><td><input type=\"text\" name=\"predpovd\" value=\"\" size=60 ></td></tr>
	    <tr><td>Место обучения</td></tr>
	    <tr><td><input type=\"text\" name=\"predpovb\" value=\"\" size=60></td></tr>
	    <tr><td>Документы-основание <br>(удостоверение, свидетельство, зачетная книжка, указать номера документов)</td></tr>
	    <tr><td><input type=\"text\" name=\"predpovu\" value=\"\" size=60></td></tr>
    </table>
</td></tr>

<tr><td>16.</td><td>Стаж педагогический (полных лет)<small><sup STYLE=\"color:red\">*</sup></small></td><td><input type=\"text\" name=\"stazh\" value=\"\" maxlength=2 size=2></td></tr>
<tr><td>17.</td><td>Стаж руководящей работы (полных лет)</td><td><input type=\"text\" name=\"stazhruk\" value=\"\" maxlength=2 size=2></td></tr>
<tr><td>18.</td><td>Участие в профессиональных сообществах</td><td><input type=\"text\" name=\"profs\" value=\"\" size=40></td></tr>
<tr><td>19.</td><td>Участие в профессиональных конкурсах (когда и где)</td><td><input type=\"text\" name=\"profc\" value=\"\" size=60></td></tr>
<tr><td valign=\"top\">20.</td><td valign=\"top\">Участие в методической работе</td><td> 
    <table>
                <tr><td>Тематика или направление</td></tr>
		<tr><td><input type=\"text\" name=\"metodtem\" value=\"\" size=60></td></tr>
                <tr><td>Статус</td></tr>
		<tr><td>
		    <select name=\"methodstat\">
			<option value=\"\"></option>
		        <option value=\"nast\">наставник</option>
			<option value=\"dev\">разработчик</option>
			<option value=\"exp\">эксперт</option>
			<option value=\"metodmemb\">член учебно-методического объединения</option>
			<option value=\"other\">иное</option>
		    </select>
		</td></tr>
		<tr><td><input type=\"text\" name=\"metodstatother\" value=\"\" size=60></td></tr>
    </table>
</td></tr>
<tr><td>21.</td><td>Тема экспериментальной работы (если таковая ведется)</td><td><input type=\"text\" name=\"exptema\" value=\"\" size=60></td></tr>
<tr><td valign=\"top\">22.</td><td valign=\"top\">Телефон контактный (с кодом города)
    <small><sup STYLE=\"color:red\">*</sup></small><br></td>
    <td><table>
	<tr><td>Тип телефона<small><sup STYLE=\"color:red\">*</sup></small>
	<select name=\"phonetype\">
	    <option value=\"\"></option>
	    <option value=\"home\">домашний</option>
	    <option value=\"work\">рабочий</option>
	    <option value=\"cell\">мобильный</option>
	    <option value=\"none\">нет</option>
	    <option value=\"other\">иное</option>
	</select></td></tr>
	<tr><td>
	    8-(<input type=\"text\" name=\"phonecode\" value=\"\" size=5 maxlen=5>)-
		<input type=\"text\" name=\"phone\" value=\"\" size=15 maxlen=7><BR>
		&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;код&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;номер телефона</td></tr>
	<tr><td>Другие контактные телефоны:</td></tr>
	<tr><td><input type=\"text\" name=\"phoneother\" value=\"\" size=40></td></tr>
    </table></td></tr>
<tr><td valign=\"top\">23.</td><td valign=\"top\">e-mail<small><sup STYLE=\"color:red\">*</sup></small></td><td valign=\"top\">
    <select name=\"emailexist\">
	    <option value=\"\"></option>
	    <option value=\"yes\">есть</option>
	    <option value=\"no\">нет</option>
    </select>&nbsp;&nbsp;
    <input type=\"text\" name=\"email\" value=\"\" size=40>
	
</td></tr>

</table>
<br>
<div align=\"center\"><b>II. Вопросы к слушателю выбранных программ</b></div>
<br>
<table>
<tr><td valign=\"top\">1.</td><td clospan=\"2\">
    Программа повышения квалификации,<br>
    которую Вы выбираете для обучения в МИОО в 2007/2008 уч.году
    <a href=\"index.html\"><b>(указать категорию и номер программы)</b></a>
    </td></tr><tr><td colspan=\"3\ td valign=\"top\">
    <table>
	<tr><td>Категория<small><sup STYLE=\"color:red\">*</sup></small></td></tr>
	<tr><td>
	    <select name=\"progrcat\">
		<option value=\"\"></option>
";
	open(CATF, "/var/www/kurs.mioo.ru/data/teacher-rub");
	while (<CATF>) {
	    chomp;
	    my @row = split(';');
	    print "<option value=\"".$row[1]."\">".$row[1]." - ".$row[0]."</option>\n";
	}
print "	    </select>
	</td></tr>
	<tr><td>Номер программы<small><sup STYLE=\"color:red\">*</sup></small></td></tr>
	<tr><td><input type=\"text\" name=\"progrnum\" value=\"\" size=4></td></tr>
    </table>

    
<tr><td valign=\"top\">2.</td><td valign=\"top\">Причины выбора программы <br>повышения квалификации</td><td>
    <table>
	<tr><td>
	    <input type=\"checkbox\" name=\"reason1\" value=\"1\"/>
		научно-теоретическая, методологическая значимость программы 
	</tr></td>
	<tr><td>
	    <input type=\"checkbox\" name=\"reason2\" value=\"2\" />
		практическая, методическая значимость программы
	</tr></td>
	<tr><td>
	    <input type=\"checkbox\" name=\"reason3\" value=\"3\" />
		направленность программы на развитие профессиональной компетенции
	</tr></td>
	<tr><td>
	    <input type=\"checkbox\" name=\"reason4\" value=\"4\" />
		    направленность программы на овладение современных педагогическими технологиями
	</tr></td>
	<tr><td>
	    <input type=\"checkbox\" name=\"reason5\" value=\"5\" />
		    тематика программы напрямую связана с работой
	</tr></td>
	<tr><td>
	    <input type=\"checkbox\" name=\"reason6\" value=\"6\" />
		тематика программы важна для участия в профессиональных конкурсах
	</tr></td>
	<tr><td>
	    <input type=\"checkbox\" name=\"reason7\" value=\"7\" />
		    программа рекомендована коллегами
	</tr></td>
	<tr><td>
	    <input type=\"checkbox\" name=\"reason8\" value=\"8\" />
			программа рекомендована руководством
	</tr></td>
	<tr><td>
	    <input type=\"checkbox\" name=\"reason0\" value=\"0\" />
		    другое: <input type=\"text\" name=\"reasonother\" value=\"\" size=60>
	</tr></td>
	</table>
</td></tr>


<tr><td valign=\"top\">3.</td><td valign=\"top\">Ваши рекомендации по моделированию <br>курсов повышения квалификации</td><td>
    <table>
	<tr><td>
	    <input type=\"checkbox\" name=\"recomend1\" value=\"1\"/>
		    шире использовать лекционные формы занятий  
	</tr></td>
	<tr><td>
	    <input type=\"checkbox\" name=\"recomend2\" value=\"2\" />
		    шире использовать семинары и практические занятия
	</tr></td>
	<tr><td>
	    <input type=\"checkbox\" name=\"recomend3\" value=\"3\" />
		    шире использовать мастер-классы, презентации, деловые игры, посещение открытых уроков и т.д.
	</tr></td>
	<tr><td>
	    <input type=\"checkbox\" name=\"recomend4\" value=\"4\" />
			внедрять элементы дистанционного обучения на основе информационно-коммуникативных технологий
	</tr></td>
	<tr><td>
	    <input type=\"checkbox\" name=\"recomend5\" value=\"5\" />
			использовать традиционные формы контроля (реферат, зачет, экзамен)
	</tr></td>
	<tr><td>
	    <input type=\"checkbox\" name=\"recomend6\" value=\"6\" />
		    использовать тестовую форму промежуточного и итогового контроля 
	</tr></td>
	<tr><td>
	    <input type=\"checkbox\" name=\"recomend7\" value=\"7\" />
			использовать деятельностные формы промежуточного и итогового контроля (презентация, открытый урок, проект)
	</tr></td>
	<tr><td>
	    <input type=\"checkbox\" name=\"recomend8\" value=\"8\" />
		усилить межпредметный характер программы повышения квалификации
	</tr></td>
	<tr><td>
	    <input type=\"checkbox\" name=\"recomend9\" value=\"9\" />
		придать программе повышения квалификации адресный характер, связанный со спецификой предмета или уровня (профиля) обучения
	</tr></td>
	<tr><td>
	    <input type=\"checkbox\" name=\"recomend10\" value=\"10\" />
		придать программе повышения квалификации компетентностную направленность
	</tr></td>
	<tr><td>
	    <input type=\"checkbox\" name=\"recomend11\" value=\"11\" />
		усилить психолого-педагогическую направленность программы повышения квалификации
	</tr></td>
	<tr><td>
	    <input type=\"checkbox\" name=\"recomend0\" value=\"0\" />
		    другое: <input type=\"text\" name=\"recomendother\" value=\"\" size=60>
	</tr></td>
	</table>
</td></tr>
<tr><td valign=\"top\">4.</td><td valign=\"top\">При получении материалов по программе <br>повышения квалификации Вы предпочитаете</td>
    <td>
	<table>
	    <tr><td><input type=\"radio\" name=\"delivery\" value=\"paper\">материалы на бумажных носителях</td></tr>
	    <tr><td><input type=\"radio\" name=\"delivery\"  value=\"edeliv\">материалы на электронных носителях (CD-R)</td></tr>
	    <tr><td><input type=\"radio\" name=\"delivery\"  value=\"email\">материалы по е-mail</td></tr>
	    <tr><td><input type=\"radio\" name=\"delivery\" value=\"verbal\">только в устной форме</td></tr>
	</table>
</td></tr>
<tr><td valign=\"top\">5.</td><td valign=\"top\">Пишете ли Вы что-нибудь на компьютере</td>
	<td>
	    <table>
		<tr><td><input type=\"radio\" name=\"compwrite\" value=\"none\">Ничего</td></tr>
		<tr><td><input type=\"radio\" name=\"compwrite\" value=\"seldom\">Иногда отдельные короткие тексты (записка, объявление, ответ на электронную почту, ключевое слово в поисковой системе)</td></tr>
		<tr><td><input type=\"radio\" name=\"compwrite\" value=\"mostly\">Большую часть того, что вообще пишу</td></tr>
	    </table>
</td></tr>
<tr><td valign=\"top\">6.</td><td valign=\"top\">Используете ли Вы в своих выступлениях (лекциях и т. д.) компьютерную презентацию</td>
    <td>
    <table>
	<tr><td><input type=\"radio\" name=\"compslide\" value=\"none\">Нет, это мне не нужно</td></tr>
	<tr><td><input type=\"radio\" name=\"compslide\" value=\"noneseen\">Видел, как это бывает и хотел бы использовать</td></tr>
	<tr><td><input type=\"radio\" name=\"compslide\" value=\"seldom\">Время от времени, в зависимости от важности и материал, готовят для меня и меняют слайды во время моего выступления другие</td></tr>
	<tr><td><input type=\"radio\" name=\"compslide\" value=\"mostly\">Как правило</td></tr>
	<tr><td><input type=\"radio\" name=\"compslide\" value=\"always\">Всегда, когда это возможно, мне наличие презентации сильно помогает, невозможность самому менять слайды . мешает</td></tr>
    </table>
</td></tr>
<tr><td valign=\"top\">7.</td><td valign=\"top\">Используете ли Вы Интернет для поиска информации</td>
    <td valign=\"top\"><table>
	<tr><td><input type=\"radio\" name=\"inetsearch\" value=\"none\">Нет</td></tr>
	<tr><td><input type=\"radio\" name=\"inetsearch\" value=\"seldomnotmyself\">Иногда прошу, чтобы дети поискали то, что мне нужно</td></tr>
	<tr><td><input type=\"radio\" name=\"inetsearch\" value=\"seldom\">Время от времени, но не нахожу это особенно полезным</td></tr>
	<tr><td><input type=\"radio\" name=\"inetsearch\" value=\"always\">Эффективность моей профессиональной деятельности и решения ряда моих жизненных проблем была бы существенно ниже</td></tr>
    </table>
</td></tr>

<tr><td valign=\"top\">8.</td><td valign=\"top\">Пользуетесь ли Вы электронной почтой:</td>
    <td valign=\"top\"><table>
	<tr><td><input type=\"radio\" name=\"mailuse\" value=\"none\">Нет</td></tr>
	<tr><td><input type=\"radio\" name=\"mailuse\" value=\"printed\">Я имею возможность получать письма, мне их распечатывают</td></tr>
	<tr><td><input type=\"radio\" name=\"mailuse\" value=\"always\">Это мой основной вид коммуникации при совместной работе</td></tr>
    </table>
</td></tr>
<tr><td valign=\"top\">9.</td><td valign=\"top\">Есть ли у Вас компьютер</td>
    <td valign=\"top\"><table>
	<tr><td><input type=\"radio\" name=\"compown\" value=\"none\">Нет</td></tr>
	<tr><td><input type=\"radio\" name=\"compown\" value=\"workseldom\">На работе, не очень доступен</td></tr>
	<tr><td><input type=\"radio\" name=\"compown\" value=\"work\">На работе, могу пользоваться практически всегда, когда нужно</td></tr>
	<tr><td><input type=\"radio\" name=\"compown\" value=\"home\">Дома</td></tr>
	<tr><td><input type=\"radio\" name=\"compown\" value=\"laptop\">Ноутбук</td></tr>
    </table>
</td></tr>
<tr><td valign=\"top\">10.</td><td valign=\"top\">Есть ли у Вас выход в Интернет</td>
    <td valign=\"top\"><table>
	<tr><td><input type=\"radio\" name=\"internetuse\" value=\"none\">Нет</td></tr>
	<tr><td><input type=\"radio\" name=\"internetuse\" value=\"work\">Есть, на работе</td></tr>
	<tr><td><input type=\"radio\" name=\"internetuse\" value=\"home\">Есть, дома</td></tr>
	<tr><td><input type=\"radio\" name=\"internetuse\" value=\"wrkhome\">Есть, и дома, и на работе</td></tr>
    </table>
</td></tr>



<table>

            <br>
	    <input type=\"hidden\" name=\"formt\" value=\"1\">
        <!--    <input type=\"submit\" value=\"Проверить и сохранить данные\"> -->
	    </form>
	    </div>
            <br>
            <br>
            <b>Предупреждение:</b> не используйте функцию \"Назад\" Вашего браузера.

";





} elsif ($formt eq 1 ) {
# giving conformation 

#print Dumper(param);
#foreach my $i (@paramlist) {
#    print "$i, ".param($i)."<br>";
#    eval ("my \$".$i."=\"".param($i)."\";");
#    
#    print "$i ".param($i)."<br>";
#    
#}



# validating data

# some preparation

my $valid=1;

if ((param('spec') eq "") and (param('speckv') eq "")) {$valid=0;}

#foreach my $i (@paramlist) {
#    if (param($i) =~ m/\s+/) { $valid = 0;}
#}

my $phone = param('phone');
$phone =~ s/-//g;
$phone =~ s/\s//g;

my $progrnum = param('progrnum');
$progrnum =~ s/-//g;
$progrnum =~ s/\s//g;
    if ($progrnum !~ m/^\d*$/ ) { $valid =0; }


foreach my $i (@paramspec) {
    if (param($i) eq "") { $valid = 0; }    
}

foreach my $i (@digits) {
    if (param($i) !~ m/^\d*$/ ) { $valid =0; }
}

foreach my $i (@textual) {
    if (param($i) =~ m/(http\:\/\/|mailto|href|www|[@\*\;\$\&\?\!\{\}\%\/_+\']|\d|^\s+$)/ ) 
	{ $valid = 0; }
}

my $emailvalid = 0;
if (param('email') =~ m/^((?:[a-zA-Z0-9_\'^&+-])+(?:\.(?:[a-zA-Z0-9_\'^&+-])+)*@(?:(?:\[?(?:(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?))\.){3}(?:(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\]?)|(?:[a-zA-Z0-9-]+\.)+(?:[a-zA-Z]){2,}\.?)$)/){
    $emailvalid=1;
}

if ((param('emailexist') eq "yes") and ($emailvalid==0))
    { $valid = 0 ;}

if ((param('progrcat') eq "ДИС") and ((param('emailexist') eq "no") or ((param('emailexist') eq "yes") and ($emailvalid==0))))
{
    print "<div STYLE=\"color:red\"><b>Для курсов дистанционного обучения требуется указать правильный e-mail адрес.</b></div>";
}

if (param('phonetype') eq "") { $valid=0;}
elsif (not ((param('phonetype') eq "none") or (param('phonetype') eq "other"))) {
    if (($phone eq "") or (param('phonecode') eq "")){ $valid=0;}
    if (($phone !~ m/^\d*$/) or (param('phonecode') !~ m/^\d*$/)){$valid=0;}
}


# printing form for unvalidated data

if ($valid==0) {


print "
<br>
<div STYLE=\"color:red\"><b>Исправьте ошибки выделенные красным, и отправьте анкету еще раз.</b></div>
<br>
<div STYLE=\"color:red\">Поля, отмеченные <sup>*</sup> обязательны для заполения</div>
<br>

<form action=\"teacher-reg.pl\" method=\"POST\">
<br><div align=\"center\"><b> I. Личные данные</b></div>
<br>
<table>";
if (param('fname') =~ m/(http\:\/\/|mailto|href|www|[@\*\;\$\&\?\!\{\}\%\/_+]|\d|^\s+$)/ ) {print "<tr><td colspan=3><b><div STYLE=\"color:red\">Нижеуказанное обязательное нужно заполнять только русскими буквами</div></b></td></tr>";}
if (param('fname') eq ""){ print "<tr><td colspan=3><b><div STYLE=\"color:red\">Нижеуказанное обязательное поле не заполнено</div></b></td></tr>";}
print "
<tr><td>1.</td><td>Фамилия<small><sup STYLE=\"color:red\">*</sup></small></td><td><input type=\"text\" name=\"fname\" value=\"".param('fname')."\" size=40></td></tr>
";
if (param('sname') =~ m/(http\:\/\/|mailto|href|www|[@\*\;\$\&\?\!\{\}\%\/_+]|\d|^\s+$)/ ) {print "<tr><td colspan=3><b><div STYLE=\"color:red\">Нижеуказанное обязательное нужно заполнять только русскими буквами</div></b></td></tr>";}
if (param('sname') eq ""){ print "<tr><td colspan=3><b><div STYLE=\"color:red\">Нижеуказанное обязательное поле не заполнено</div></b></td></tr>";}
print "<tr><td>2.</td><td>Имя<small><sup STYLE=\"color:red\">*</sup></small></td><td><input type=\"text\" name=\"sname\" value=\"".param('sname')."\" size=40></td></tr>
";
if (param('oname') =~ m/(http\:\/\/|mailto|href|www|[@\*\;\$\&\?\!\{\}\%\/_+]|\d|^\s+$)/ ) {print "<tr><td colspan=3><b><div STYLE=\"color:red\">Нижеуказанное обязательное нужно заполнять только русскими буквами</div></b></td></tr>";}
if (param('oname') eq ""){ print "<tr><td colspan=3><b><div STYLE=\"color:red\">Нижеуказанное обязательное поле не заполнено</div></b></td></tr>";}
print "<tr><td>3.</td><td>Отчество (полностью)<small><sup STYLE=\"color:red\">*</sup></small></td><td><input type=\"text\" name=\"oname\" value=\"".param('oname')."\" size=40></td></tr>
";
if (param('obr') eq ""){ print "<tr><td colspan=3><b><div STYLE=\"color:red\">Нижеуказанное обязательное поле не заполнено</div></b></td></tr>";}
print "<tr><td valign=\"top\">4.</td><td valign=\"top\">Образование<small><sup STYLE=\"color:red\">*</sup></small>
    <br>(высшее образование до 1997 года - специалист)</td><td valign=\"top\"><select name=\"obr\">
	<option value=\"\"".((param('obr') eq "") ? "selected=\"yes\"" : "")."></option>
	<option value=\"sp\"".((param('obr') eq "sp") ? "selected=\"yes\"" : "").">специалист</option>
	<option value=\"ma\"".((param('obr') eq "ma") ? "selected=\"yes\"" : "").">магистр</option>
	<option value=\"ba\"".((param('obr') eq "ba") ? "selected=\"yes\"" : "").">бакалавр</option>
	<option value=\"sr\"".((param('obr') eq "sr") ? "selected=\"yes\"" : "").">среднее</option>
    </select>
</td></tr>
";
if (param('vuz') eq ""){ print "<tr><td colspan=3><b><div STYLE=\"color:red\">Нижеуказанное обязательное поле не заполнено</div></b></td></tr>";}
print "<tr><td>5.</td><td>Какое учебное заведение окончил(а)<small><sup STYLE=\"color:red\">*</sup></small></td><td><input type=\"text\" name=\"vuz\" value=\"".param('vuz')."\" size=40 ></td></tr>
";
if (param('alum') eq ""){ print "<tr><td colspan=3><b><div STYLE=\"color:red\">Нижеуказанное обязательное поле не заполнено</div></b></td></tr>";}
if (param('alum') !~ m/^\d*$/){ print "<tr><td colspan=3><b><div STYLE=\"color:red\">Нижеуказанное поле должно содержать только цифры</div></b></td></tr>";}
print "<tr><td>6.</td><td>Год окончания учебного заведения<small><sup STYLE=\"color:red\">*</sup></small></td><td><input type=\"text\" name=\"alum\" value=\"".param('alum')."\" size=4 maxlength=4></td></tr>
";
if ((param('spec') eq "") and (param('speckv') eq "")){ print "<tr><td colspan=3><b><div STYLE=\"color:red\">Нижеуказанное обязательное поле не заполнено полностью</div></b></td></tr>";}
print "<tr><td valign=\"top\">7.</td><td valign=\"top\">Специальность (направление) и квалификация по диплому</td><td>
    <table>
	    <tr><td>Специальность<small><sup STYLE=\"color:red\">*</sup></small></td></tr>
	    <tr><td><input type=\"text\" name=\"spec\" value=\"".(param('spec') eq "" ? param('speckv') : param('spec'))."\" size=40></td></tr>
	    <tr><td>Квалификация<small><sup STYLE=\"color:red\">*</sup></small></td></tr>
	    <tr><td><input type=\"text\" name=\"speckv\" value=\"".(param('speckv') eq "" ?  param('spec') : param('speckv'))."\" size=40></td></tr>

    </table>
    </td></tr>
<tr><td>8.</td><td>Ученая степень</td><td><select name=\"step\">
	<option value=\"\"".((param('step') eq "") ? "selected=\"yes\"" : "")."></option>
        <option value=\"none\"".((param('step') eq "none") ? "selected=\"yes\"" : "").">нет</option>
        <option value=\"cand\"".((param('step') eq "cand") ? "selected=\"yes\"" : "").">Кандидат наук</option>
        <option value=\"doctor\"".((param('step') eq "doctor") ? "selected=\"yes\"" : "").">Доктор наук</option>
    </select>
</td></tr>
<tr><td>9.</td><td>Ученое звание</td><td><input type=\"text\" name=\"zv\" value=\"".param('zv')."\" size=40></td></tr>
<tr><td>10.</td><td>Заслуги, награды</td><td><input type=\"text\" name=\"nagr\" value=\"".param('nagr')."\" size=40 ></td></tr>
";
if ((param('snum') eq "") or (param('schname') eq "") or (param('saddr') eq "" ) or (param('stype') eq "") or (param('sokrug') eq "")){ print "<tr><td colspan=3><b><div STYLE=\"color:red\">Нижеуказанное обязательное поле не заполнено полностью</div></b></td></tr>";}
print "<tr><td valign=\"top\">11.</td><td valign=\"top\">Место работы</td><td>
    <table>
	<tr><td>Тип образовательного учреждения<small><sup STYLE=\"color:red\">*</sup></small></td></tr>
	<tr><td><select name=\"stype\">
	    <option value=\"\"".((param('stype') eq "") ? "selected=\"yes\"" : "")."></option>
	    <option value=\"sch\" ".((param('stype') eq "sch") ? "selected=\"yes\"" : "").">Школа</option>
	    <option value=\"co\" ".((param('stype') eq "co") ? "selected=\"yes\"" : "").">ЦО</option>
	    <option value=\"lic\" ".((param('stype') eq "lic") ? "selected=\"yes\"" : "").">Лицей</option>
	    <option value=\"gym\" ".((param('stype') eq "gym") ? "selected=\"yes\"" : "").">Гимназия</option>
	    <option value=\"uvk\" ".((param('stype') eq "uvk") ? "selected=\"yes\"" : "").">УВК</option>
	    <option value=\"nou\" ".((param('stype') eq "nou") ? "selected=\"yes\"" : "").">НОУ</option>
	    <option value=\"other\" ".((param('stype') eq "other") ? "selected=\"yes\"" : "").">иное</option>
	</select></tr></td>
	<tr><td>Номер образовательного учреждения<small><sup STYLE=\"color:red\">*</sup></small>
	    <br>(если образовательное учреждение не имеет номера, введите 0000)</td></tr>
";
if (param('snum') !~ m/^\d*$/){ print "<tr><td colspan=3><b><div STYLE=\"color:red\">Нижеуказанное поле должно содержать только цифры</div></b></td></tr>";}
print "<tr><td><input type=\"text\" name=\"snum\" value=\"".param('snum')."\" size=4 maxlength=4></td></tr>
	<tr><td>Полное название образовательного учреждения<small><sup STYLE=\"color:red\">*</sup></small></td></tr>
	<tr><td><input type=\"text\" name=\"schname\" value=\"".param('schname')."\" size=40></td></tr>
	<tr><td>Адрес образовательного учреждения<small><sup STYLE=\"color:red\">*</sup></small></td></tr>
	<tr><td><input type=\"text\" name=\"saddr\" value=\"".param('saddr')."\" size=40 ></td></tr>
	<tr><td>Округ<small><sup STYLE=\"color:red\">*</sup></small></td></tr>
	<tr><td><select name=\"sokrug\">
	    <option value=\"\"".((param('sokrug') eq "") ? "selected=\"yes\"" : "")."></option>
	    <option value=\"cao\" ".((param('sokrug') eq "cao") ? "selected=\"yes\"" : "").">ЦАО</option>
	    <option value=\"vao\" ".((param('sokrug') eq "vao") ? "selected=\"yes\"" : "").">ВАО</option>
	    <option value=\"zao\" ".((param('sokrug') eq "zao") ? "selected=\"yes\"" : "").">ЗАО</option>
	    <option value=\"sao\" ".((param('sokrug') eq "sao") ? "selected=\"yes\"" : "").">САО</option>
	    <option value=\"szao\" ".((param('sokrug') eq "szao") ? "selected=\"yes\"" : "").">СЗАО</option>
	    <option value=\"svao\" ".((param('sokrug') eq "svao") ? "selected=\"yes\"" : "").">СВАО</option>
	    <option value=\"uzao\" ".((param('sokrug') eq "uzao") ? "selected=\"yes\"" : "").">ЮЗАО</option>
	    <option value=\"uvao\" ".((param('sokrug') eq "uvao") ? "selected=\"yes\"" : "").">ЮВАО</option>
	    <option value=\"uao\" ".((param('sokrug') eq "uao") ? "selected=\"yes\"" : "").">ЮАО</option>
	    <option value=\"zel\" ".((param('sokrug') eq "zel") ? "selected=\"yes\"" : "").">г. Зеленоград</option>
	    <option value=\"dogm\" ".((param('sokrug') eq "dogm") ? "selected=\"yes\"" : "").">гор. подчинения</option>
	    <option value=\"other\" ".((param('sokrug') eq "other") ? "selected=\"yes\"" : "").">другое</option>
	    <option value=\"nomem\" ".((param('sokrug') eq "nomem") ? "selected=\"yes\"" : "").">не знаю</option>
	</select>    
	</td></tr>
    </table>
<td></tr>
";
if (param('dolzh') eq ""){ print "<tr><td colspan=3><b><div STYLE=\"color:red\">Нижеуказанное обязательное поле не заполнено</div></b></td></tr>";}
print "<tr><td>12.</td><td>Должность по месту работы<small><sup STYLE=\"color:red\">*</sup></small></td><td><input type=\"text\" name=\"dolzh\" value=\"".param('dolzh')."\" size=40 ></td></tr>
";
if (param('dolzhdate') eq ""){ print "<tr><td colspan=3><b><div STYLE=\"color:red\">Нижеуказанное обязательное поле не заполнено</div></b></td></tr>";}
print "<tr><td>13.</td><td>Дата назначения на место работы<small><sup STYLE=\"color:red\">*</sup></small></td><td><input type=\"text\" name=\"dolzhdate\" value=\"".param('dolzhdate')."\" size=40 ></td></tr>
";
if ((param('razrplace') eq "") or (param('razrdate') eq "")){ print "<tr><td colspan=3><b><div STYLE=\"color:red\">Нижеуказанное обязательное поле не заполнено</div></b></td></tr>";}
print "<tr><td valign=\"top\">14.</td><td valign=\"top\">Квалификационная категория</td><td>
    <table>
	<tr><td>Разряд<small><sup STYLE=\"color:red\">*</sup></small></td></tr>
	<tr><td><select name=\"razr\">
	    <option value=\"\"".((param('razr') eq "") ? "selected=\"yes\"" : "")."></option>
	    <option value=\"12\" ".((param('razr') eq "12") ? "selected=\"yes\"" : "").">12</option>
	    <option value=\"13\" ".((param('razr') eq "13") ? "selected=\"yes\"" : "").">13</option>
	    <option value=\"14\" ".((param('razr') eq "14") ? "selected=\"yes\"" : "").">14</option>
	    <option value=\"15\" ".((param('razr') eq "15") ? "selected=\"yes\"" : "").">15</option>
	    <option value=\"16\" ".((param('razr') eq "16") ? "selected=\"yes\"" : "").">16</option>
	    <option value=\"pre12\" ".((param('razr') eq "pre12") ? "selected=\"yes\"" : "").">аттестацию не проходил, разряд ЕТС <12</option>
	</select>
	<tr><td>Год присвоения<small><sup STYLE=\"color:red\">*</sup></small></td></tr>
	<tr><td><select name=\"razrdate\">
    	    <option value=\"\"".((param('rardate') eq "") ? "selected=\"yes\"" : "")."></option>
	    <option value=\"2007\" ".((param('razrdate') eq "2007") ? "selected=\"yes\"" : "").">2007</option>
	    <option value=\"2006\" ".((param('razrdate') eq "2006") ? "selected=\"yes\"" : "").">2006</option>
	    <option value=\"2005\" ".((param('razrdate') eq "2005") ? "selected=\"yes\"" : "").">2005</option>
	    <option value=\"2004\" ".((param('razrdate') eq "2004") ? "selected=\"yes\"" : "").">2004</option>
	    <option value=\"2003\" ".((param('razrdate') eq "2003") ? "selected=\"yes\"" : "").">2003</option>
	    <option value=\"2002\" ".((param('razrdate') eq "2002") ? "selected=\"yes\"" : "").">2002</option>
	    <option value=\"2001\" ".((param('razrdate') eq "2001") ? "selected=\"yes\"" : "").">2001</option>
	    <option value=\"2000\" ".((param('razrdate') eq "2000") ? "selected=\"yes\"" : "").">2000</option>
	    <option value=\"before2000\" ".((param('razrdate') eq "before2000") ? "selected=\"yes\"" : "").">ранее</option>
	</select>
	<tr><td>Место присвоения<small><sup STYLE=\"color:red\">*</sup></small></td></tr>
	<tr><td><input type=\"text\" name=\"razrplace\" value=\"".param('razrplace')."\" size=40>
    </table>
</td></tr>
<tr><td valign=\"top\">15.</td><td valign=\"top\">Повышение квалификации за последние 5-10 лет</td><td>
    <table>
            <tr><td>Темы курсов, количество часов</td></tr>
	    <tr><td><input type=\"text\" name=\"predpovc\" value=\"".param('predpovc')."\" size=60></td></tr>
	    <tr><td>Периоды обучения</td></tr>
	    <tr><td><input type=\"text\" name=\"predpovd\" value=\"".param('predpovd')."\" size=60 ></td></tr>
	    <tr><td>Место обучения</td></tr>
	    <tr><td><input type=\"text\" name=\"predpovb\" value=\"".param('predpovb')."\" size=60></td></tr>
	    <tr><td>Документы-основание <br>(удостоверение, свидетельство, зачетная книжка, указать номера документов)</td></tr>
	    <tr><td><input type=\"text\" name=\"predpovu\" value=\"".param('predpovu')."\" size=60></td></tr>
    </table>
</td></tr>

";
if (param('stazh') eq ""){ print "<tr><td colspan=3><b><div STYLE=\"color:red\">Нижеуказанное обязательное поле не заполнено</div></b></td></tr>";}
if (param('stazh') !~ m/^\d*$/){ print "<tr><td colspan=3><b><div STYLE=\"color:red\">Нижеуказанное поле должно содержать только цифры</div></b></td></tr>";}
print "<tr><td>16.</td><td>Стаж педагогический (полных лет)<small><sup STYLE=\"color:red\">*</sup></small></td><td><input type=\"text\" name=\"stazh\" value=\"".param('stazh')."\" maxlenghth=2 size=2></td></tr>
<tr><td>17.</td><td>Стаж руководящей работы (полных лет)</td><td><input type=\"text\" name=\"stazhruk\" value=\"".param('stazhruk')."\" maxlength=2 size=2></td></tr>
<tr><td>18.</td><td>Участие в профессиональных сообществах</td><td><input type=\"text\" name=\"profs\" value=\"".param('profs')."\" size=40></td></tr>
<tr><td>19.</td><td>Участие в профессиональных конкурсах (когда и где)</td><td><input type=\"text\" name=\"profc\" value=\"".param('profc')."\" size=60></td></tr>
<tr><td valign=\"top\">20.</td><td valign=\"top\">Участие в методической работе</td><td> 
    <table>
                <tr><td>Тематика или направление</td></tr>
		<tr><td><input type=\"text\" name=\"metodtem\" value=\"".param('metodtem')."\" size=60></td></tr>
                <tr><td>Статус</td></tr>
		<tr><td>
		    <select name=\"methodstat\">
			<option value=\"\"".((param('methodstat') eq "") ? "selected=\"yes\"" : "")."></option>
		        <option value=\"nast\" ".((param('methodstat') eq "nast") ? "selected=\"yes\"" : "").">наставник</option>
			<option value=\"dev\" ".((param('methodstat') eq "dev") ? "selected=\"yes\"" : "").">разработчик</option>
			<option value=\"exp\" ".((param('methodstat') eq "exp") ? "selected=\"yes\"" : "").">эксперт</option>
			<option value=\"metodmemb\" ".((param('methodstat') eq "metodmemb") ? "selected=\"yes\"" : "").">член учебно-методического объединения</option>
			<option value=\"other\" ".((param('methodstat') eq "other") ? "selected=\"yes\"" : "").">иное</option>
		    </select>
		</td></tr>
		<tr><td><input type=\"text\" name=\"metodstatother\" value=\"".param('metodstatother')."\" size=60></td></tr>
    </table>
</td></tr>
<tr><td>21.</td><td>Тема экспериментальной работы (если таковая ведется)</td><td><input type=\"text\" name=\"exptema\" value=\"".param('exptema')."\" size=60></td></tr>
";
if (param('phonetype') eq "") { print "<tr><td colspan=3><b><div STYLE=\"color:red\">Нижеуказанное обязательное поле не заполнено</div></b></td></tr>";}
elsif (not ((param('phonetype') eq "none") or (param('phonetype') eq "other"))) {
    if (($phone eq "") or (param('phonecode') eq "")){ print "<tr><td colspan=3><b><div STYLE=\"color:red\">Нижеуказанное обязательное поле не заполнено</div></b></td></tr>";}
    if (($phone !~ m/^\d*$/) or (param('phonecode') !~ m/^\d*$/)){ print "<tr><td colspan=3><b><div STYLE=\"color:red\">Нижеуказанное поле должно содержать только цифры</div></b></td></tr>";}
}
print "<tr><td valign=\"top\">22.</td><td valign=\"top\">Телефон контактный (с кодом города)
	<small><sup STYLE=\"color:red\">*</sup></small></td>
	    <td><table>
	        <tr><td>Тип телефона<small><sup STYLE=\"color:red\">*</sup></small>
    		<select name=\"phonetype\">
        	    <option value=\"\" ".((param('phonetype') eq "") ? "selected=\"yes\"" : "")."></option>
        	    <option value=\"home\" ".((param('phonetype') eq "home") ? "selected=\"yes\"" : "").">домашний</option>
    	    	    <option value=\"work\"".((param('phonetype') eq "work") ? "selected=\"yes\"" : "").">рабочий</option>
	            <option value=\"cell\" ".((param('phonetype') eq "cell") ? "selected=\"yes\"" : "").">мобильный</option>
    		    <option value=\"none\" ".((param('phonetype') eq "none") ? "selected=\"yes\"" : "").">нет</option>
            	    <option value=\"other\" ".((param('phonetype') eq "other") ? "selected=\"yes\"" : "").">иное</option>
	        </select></td></tr>
    		<tr><td>
            8(<input type=\"text\" name=\"phonecode\" value=\"".param('phonecode')."\" size=5 maxlen=5>)
                <input type=\"text\" name=\"phone\" value=\"".$phone."\" size=15 maxlen=7></td></tr>
        <tr><td>Другие контактные телефоны:</td></tr>
        <tr><td><input type=\"text\" name=\"phoneother\" value=\"".param('phoneother')."\" size=40></td></tr>
    </table></td></tr>";
if (param('emailexist') eq ""){ print "<tr><td colspan=3><b><div STYLE=\"color:red\">Нижеуказанное обязательное поле не заполнено</div></b></td></tr>";}
if (param('emailexist') eq "yes") {
    if (param('email') eq ""){ print "<tr><td colspan=3><b><div STYLE=\"color:red\">Нижеуказанное обязательное поле не заполнено</div></b></td></tr>";}
    elsif ($emailvalid==0)
	{ print "<tr><td colspan=3><b><div STYLE=\"color:red\">В нижеуказанном поле введен невозможный e-mail-адрес</div></b></td></tr>";}
}
if ((param('progrcat') eq "ДИС") and ((param('emailexist') eq "no") or ((param('emailexist') eq "yes") and ($emailvalid==0))))
{
    print "<tr><td colspan=3><div STYLE=\"color:red\"><b>Для курсов дистанционного обучения требуется указать правильный e-mail адрес.</b></div></td></tr>";
}

print "<tr><td valign=\"top\">23.</td><td valign=\"top\">e-mail<small><sup STYLE=\"color:red\">*</sup></small></td><td valign=\"top\">
    <select name=\"emailexist\">
	    <option value=\"\" ".((param('emailexist') eq "") ? "selected=\"yes\"" : "")."></option>
	    <option value=\"yes\" ".((param('emailexist') eq "yes") ? "selected=\"yes\"" : "").">есть</option>
	    <option value=\"no\" ".((param('emailexist') eq "no") ? "selected=\"yes\"" : "").">нет</option>
    </select>&nbsp;&nbsp;
    <input type=\"text\" name=\"email\" value=\"".param('email')."\" size=40>
</td></tr>
</table>
<br>
<div align=\"center\"><b>II. Вопросы к слушателю выбранных программ</b></div>
<br>
<table>
<tr><td valign=\"top\">1.</td><td colspan=\"2\">
    Программа повышения квалификации,<br>
    которую Вы выбираете для обучения в МИОО в 2007/2008 уч.году
    <a href=\"index.html\"><b>(указать категорию и номер программы)</b></a>
    </td></tr><tr><td colspan=\"3\ td valign=\"top\">
    <table>
";
if (param('progrcat') eq ""){ print "<tr><td colspan=3><b><div STYLE=\"color:red\">Нижеуказанное обязательное поле не заполнено</div></b></td></tr>";}
print "	<tr><td>Категория<small><sup STYLE=\"color:red\">*</sup></small></td></tr>
	<tr><td>
	    <select name=\"progrcat\">
	<option value=\"\"".((param('progrcat') eq "") ? "selected=\"yes\"" : "")."></option>
";
	open(CATF, "/var/www/kurs.mioo.ru/data/teacher-rub");
	while (<CATF>) {
	    chomp;
	    my @row = split(';');
	    print "<option value=\"".$row[1]."\"  ".((param('progrcat') eq $row[1]) ? "selected=\"yes\"" : "").">".$row[1]." - ".$row[0]."</option>\n";
	}
print "	    </select>
	</td></tr>";
if ($progrnum eq ""){ print "<tr><td><b><div STYLE=\"color:red\">Нижеуказанное обязательное поле не заполнено</div></b></td></tr>";}
if ($progrnum !~ m/^\d*$/){ print "<tr><td colspan=3><b><div STYLE=\"color:red\">В нижеуказанное поле ВВОДИТЕ ТОЛЬКО НОМЕР курса, а не шифр его категории.</div></b></td></tr>";}
print "
	<tr><td>Номер программы<small><sup STYLE=\"color:red\">*</sup></small></td></tr>
	<tr><td><input type=\"text\" name=\"progrnum\" value=\"".$progrnum."\" size=4></td></tr>
    </table>


    
<tr><td valign=\"top\">2.</td><td valign=\"top\">Причины выбора программы <br>повышения квалификации</td><td>
    <table>
	<tr><td>
	    <input type=\"checkbox\" name=\"reason1\" value=\"1\"  ".((param('reason1') eq "1") ? "CHECKED" : "")."/>
		научно-теоретическая, методологическая значимость программы 
	</tr></td>
	<tr><td>
	    <input type=\"checkbox\" name=\"reason2\" value=\"2\" ".((param('reason2') eq "2") ? "CHECKED" : "")."/>
		практическая, методическая значимость программы
	</tr></td>
	<tr><td>
	    <input type=\"checkbox\" name=\"reason3\" value=\"3\" ".((param('reason3') eq "3") ? "CHECKED" : "")."/>
		направленность программы на развитие профессиональной компетенции
	</tr></td>
	<tr><td>
	    <input type=\"checkbox\" name=\"reason4\" value=\"4\" ".((param('reason4') eq "4") ? "CHECKED" : "")."/>
		    направленность программы на овладение современных педагогическими технологиями
	</tr></td>
	<tr><td>
	    <input type=\"checkbox\" name=\"reason5\" value=\"5\" ".((param('reason5') eq "5") ? "CHECKED" : "")."/>
		    тематика программы напрямую связана с работой
	</tr></td>
	<tr><td>
	    <input type=\"checkbox\" name=\"reason6\" value=\"6\" ".((param('reason6') eq "6") ? "CHECKED" : "")."/>
		тематика программы важна для участия в профессиональных конкурсах
	</tr></td>
	<tr><td>
	    <input type=\"checkbox\" name=\"reason7\" value=\"7\" ".((param('reason7') eq "7") ? "CHECKED" : "")."/>
		    программа рекомендована коллегами
	</tr></td>
	<tr><td>
	    <input type=\"checkbox\" name=\"reason8\" value=\"8\" ".((param('reason8') eq "8") ? "CHECKED" : "")."/>
			программа рекомендована руководством
	</tr></td>
	<tr><td>
	    <input type=\"checkbox\" name=\"reason0\" value=\"0\" ".((param('reason0') eq "0") ? "CHECKED" : "")."/>
		    другое: <input type=\"text\" name=\"reasonother\" value=\"".param('reasonother')."\" size=60>
	</tr></td>
	</table>
</td></tr>


<tr><td valign=\"top\">3.</td><td valign=\"top\">Ваши рекомендации по моделированию <br>курсов повышения квалификации</td><td>
    <table>
	<tr><td>
	    <input type=\"checkbox\" name=\"recomend1\" value=\"1\" ".((param('recomend1') eq "1") ? "CHECKED" : "")."/>
		    шире использовать лекционные формы занятий  
	</tr></td>
	<tr><td>
	    <input type=\"checkbox\" name=\"recomend2\" value=\"2\"  ".((param('recomend2') eq "2") ? "CHECKED" : "")."/>
		    шире использовать семинары и практические занятия
	</tr></td>
	<tr><td>
	    <input type=\"checkbox\" name=\"recomend3\" value=\"3\"  ".((param('recomend3') eq "3") ? "CHECKED" : "")."/>
		    шире использовать мастер-классы, презентации, деловые игры, посещение открытых уроков и т.д.
	</tr></td>
	<tr><td>
	    <input type=\"checkbox\" name=\"recomend4\" value=\"4\"  ".((param('recomend4') eq "4") ? "CHECKED" : "")."/>
			внедрять элементы дистанционного обучения на основе информационно-коммуникативных технологий
	</tr></td>
	<tr><td>
	    <input type=\"checkbox\" name=\"recomend5\" value=\"5\"  ".((param('recomend5') eq "5") ? "CHECKED" : "")."/>
			использовать традиционные формы контроля (реферат, зачет, экзамен)
	</tr></td>
	<tr><td>
	    <input type=\"checkbox\" name=\"recomend6\" value=\"6\"  ".((param('recomend6') eq "6") ? "CHECKED" : "")."/>
		    использовать тестовую форму промежуточного и итогового контроля 
	</tr></td>
	<tr><td>
	    <input type=\"checkbox\" name=\"recomend7\" value=\"7\"  ".((param('recomend7') eq "7") ? "CHECKED" : "")."/>
			использовать деятельностные формы промежуточного и итогового контроля (презентация, открытый урок, проект)
	</tr></td>
	<tr><td>
	    <input type=\"checkbox\" name=\"recomend8\" value=\"8\"  ".((param('recomend8') eq "8") ? "CHECKED" : "")."/>
		усилить межпредметный характер программы повышения квалификации
	</tr></td>
	<tr><td>
	    <input type=\"checkbox\" name=\"recomend9\" value=\"9\"  ".((param('recomend9') eq "9") ? "CHECKED" : "")."/>
		придать программе повышения квалификации адресный характер, связанный со спецификой предмета или уровня (профиля) обучения
	</tr></td>
	<tr><td>
	    <input type=\"checkbox\" name=\"recomend10\" value=\"10\"  ".((param('recomend10') eq "10") ? "CHECKED" : "")."/>
		придать программе повышения квалификации компетентностную направленность
	</tr></td>
	<tr><td>
	    <input type=\"checkbox\" name=\"recomend11\" value=\"11\"  ".((param('recomend11') eq "11") ? "CHECKED" : "")."/>
		усилить психолого-педагогическую направленность программы повышения квалификации
	</tr></td>
	<tr><td>
	    <input type=\"checkbox\" name=\"recomend0\" value=\"0\"  ".((param('recomend0') eq "0") ? "CHECKED" : "")."/>
		    другое: <input type=\"text\" name=\"recomendother\" value=\"".param('recomendother')."\" size=60>
	</tr></td>
	</table>
</td></tr>
<tr><td valign=\"top\">4.</td><td valign=\"top\">При получении материалов по программе <br>повышения квалификации Вы предпочитаете</td>
    <td>
	<table>
	    <tr><td><input type=\"radio\" name=\"delivery\" value=\"paper\" ".((param('delivery') eq "paper") ? "CHECKED" : "").">материалы на бумажных носителях</td></tr>
	    <tr><td><input type=\"radio\" name=\"delivery\"  value=\"edeliv\" ".((param('delivery') eq "edeliv") ? "CHECKED" : "").">материалы на электронных носителях (CD-R)</td></tr>
	    <tr><td><input type=\"radio\" name=\"delivery\"  value=\"email\" ".((param('delivery') eq "email") ? "CHECKED" : "").">материалы по е-mail</td></tr>
	    <tr><td><input type=\"radio\" name=\"delivery\" value=\"verbal\" ".((param('delivery') eq "verbal") ? "CHECKED" : "").">только в устной форме</td></tr>
	</table>
</td></tr>
<tr><td valign=\"top\">5.</td><td valign=\"top\">Пишете ли Вы что-нибудь на компьютере</td>
	<td>
	    <table>
		<tr><td><input type=\"radio\" name=\"compwrite\" value=\"none\" ".((param('compwrite') eq "none") ? "CHECKED" : "").">Ничего</td></tr>
		<tr><td><input type=\"radio\" name=\"compwrite\" value=\"seldom\" ".((param('compwrite') eq "seldom") ? "CHECKED" : "").">Иногда отдельные короткие тексты (записка, объявление, ответ на электронную почту, ключевое слово в поисковой системе)</td></tr>
		<tr><td><input type=\"radio\" name=\"compwrite\" value=\"mostly\" ".((param('compwrite') eq "mostly") ? "CHECKED" : "").">Большую часть того, что вообще пишу</td></tr>
	    </table>
</td></tr>
<tr><td valign=\"top\">6.</td><td valign=\"top\">Используете ли Вы в своих выступлениях (лекциях и т. д.) компьютерную презентацию</td>
    <td>
    <table>
	<tr><td><input type=\"radio\" name=\"compslide\" value=\"none\" ".((param('compslide') eq "none") ? "CHECKED" : "").">Нет, это мне не нужно</td></tr>
	<tr><td><input type=\"radio\" name=\"compslide\" value=\"noneseen\" ".((param('compslide') eq "noneseen") ? "CHECKED" : "").">Видел, как это бывает и хотел бы использовать</td></tr>
	<tr><td><input type=\"radio\" name=\"compslide\" value=\"seldom\" ".((param('compslide') eq "seldom") ? "CHECKED" : "").">Время от времени, в зависимости от важности и материал, готовят для меня и меняют слайды во время моего выступления другие</td></tr>
	<tr><td><input type=\"radio\" name=\"compslide\" value=\"mostly\" ".((param('compslide') eq "mostly") ? "CHECKED" : "").">Как правило</td></tr>
	<tr><td><input type=\"radio\" name=\"compslide\" value=\"always\" ".((param('compslide') eq "always") ? "CHECKED" : "").">Всегда, когда это возможно, мне наличие презентации сильно помогает, невозможность самому менять слайды . мешает</td></tr>
    </table>
</td></tr>
<tr><td valign=\"top\">7.</td><td valign=\"top\">Используете ли Вы Интернет для поиска информации</td>
    <td valign=\"top\"><table>
	<tr><td><input type=\"radio\" name=\"inetsearch\" value=\"none\" ".((param('inetsearch') eq "none") ? "CHECKED" : "").">Нет</td></tr>
	<tr><td><input type=\"radio\" name=\"inetsearch\" value=\"seldomnotmyself\" ".((param('inetsearch') eq "seldomnotmyself") ? "CHECKED" : "").">Иногда прошу, чтобы дети поискали то, что мне нужно</td></tr>
	<tr><td><input type=\"radio\" name=\"inetsearch\" value=\"seldom\" ".((param('inetsearch') eq "seldom") ? "CHECKED" : "").">Время от времени, но не нахожу это особенно полезным</td></tr>
	<tr><td><input type=\"radio\" name=\"inetsearch\" value=\"always\" ".((param('inetsearch') eq "always") ? "CHECKED" : "").">Эффективность моей профессиональной деятельности и решения ряда моих жизненных проблем была бы существенно ниже</td></tr>
    </table>
</td></tr>

<tr><td valign=\"top\">8.</td><td valign=\"top\">Пользуетесь ли Вы электронной почтой:</td>
    <td valign=\"top\"><table>
	<tr><td><input type=\"radio\" name=\"mailuse\" value=\"none\" ".((param('mailuse') eq "none") ? "CHECKED" : "").">Нет</td></tr>
	<tr><td><input type=\"radio\" name=\"mailuse\" value=\"printed\" ".((param('mailuse') eq "printed") ? "CHECKED" : "").">Я имею возможность получать письма, мне их распечатывают</td></tr>
	<tr><td><input type=\"radio\" name=\"mailuse\" value=\"always\" ".((param('mailuse') eq "always") ? "CHECKED" : "").">Это мой основной вид коммуникации при совместной работе</td></tr>
    </table>
</td></tr>
<tr><td valign=\"top\">9.</td><td valign=\"top\">Есть ли у Вас компьютер</td>
    <td valign=\"top\"><table>
	<tr><td><input type=\"radio\" name=\"compown\" value=\"none\" ".((param('compown') eq "none") ? "CHECKED" : "").">Нет</td></tr>
	<tr><td><input type=\"radio\" name=\"compown\" value=\"workseldom\" ".((param('compown') eq "workseldom") ? "CHECKED" : "").">На работе, не очень доступен</td></tr>
	<tr><td><input type=\"radio\" name=\"compown\" value=\"work\" ".((param('compown') eq "work") ? "CHECKED" : "").">На работе, могу пользоваться практически всегда, когда нужно</td></tr>
	<tr><td><input type=\"radio\" name=\"compown\" value=\"home\" ".((param('compown') eq "home") ? "CHECKED" : "").">Дома</td></tr>
	<tr><td><input type=\"radio\" name=\"compown\" value=\"laptop\" ".((param('compown') eq "laptop") ? "CHECKED" : "").">Ноутбук</td></tr>
    </table>
</td></tr>
<tr><td valign=\"top\">10.</td><td valign=\"top\">Есть ли у Вас выход в Интернет</td>
    <td valign=\"top\"><table>
	<tr><td><input type=\"radio\" name=\"internetuse\" value=\"none\" ".((param('internetuse') eq "none") ? "CHECKED" : "").">Нет</td></tr>
	<tr><td><input type=\"radio\" name=\"internetuse\" value=\"work\" ".((param('internetuse') eq "work") ? "CHECKED" : "").">Есть, на работе</td></tr>
	<tr><td><input type=\"radio\" name=\"internetuse\" value=\"home\" ".((param('internetuse') eq "home") ? "CHECKED" : "").">Есть, дома</td></tr>
	<tr><td><input type=\"radio\" name=\"internetuse\" value=\"wrkhome\" ".((param('internetuse') eq "wrkhome") ? "CHECKED" : "").">Есть, и дома, и на работе</td></tr>
    </table>
</td></tr>



<table>

            <br>
	    <input type=\"hidden\" name=\"formt\" value=\"1\">
            <input type=\"submit\" value=\"Проверить и сохранить данные\"></form></div>
            <br>
            <br>
            <b>Предупреждение:</b> не используйте функцию \"Назад\" Вашего браузера.

";

    } else {

#confirming validated form

if (param('sokrug') eq "other") {
print "<br>
<div STYLE=\"color:red\">Система курсов МИОО ориентирована прежде всего на учителей московских школ.<br>
    Коллег из других регионов просим отдельно выяснить возможность
    их участия в работе выбранных курсов у администрации МИОО.</div>
<br>";}

print "<br>
<div STYLE=\"color:green\" align=\"center\"><font size=\"+2\"><b>Проверьте, что все Ваши данные набраны правильно и сохраните их (кнопка внизу).</b></font></div>
<br>
<br><div align=\"center\"><b> I. Личные данные</b></div>
<br>
<table>
<tr><td>1.</td><td>Фамилия</td><td>".param('fname')."</td></tr>
<tr><td>2.</td><td>Имя</td><td>".param('sname')."</td></tr>
<tr><td>3.</td><td>Отчество (полностью)</td><td>".param('oname')."</td></tr>
<tr><td valign=\"top\">4.</td><td valign=\"top\">Образование</td><td>
	".((param('obr') eq "sp") ? "специалист" : "").
	((param('obr') eq "ma") ? "магистр" : "").
	((param('obr') eq "ba") ? "бакалавр" : "").
	((param('obr') eq "sr") ? "среднее" : "")."
</td></tr>
<tr><td>5.</td><td>Какое учебное заведение окончил(а)</td><td>".param('vuz')."</td></tr>
<tr><td>6.</td><td>Год окончания учебного заведения</td><td>".param('alum')."</td></tr>
<tr><td valign=\"top\">7.</td><td valign=\"top\">Специальность (направление) и квалификация по диплому</td><td>
    <table>
	    <tr><td>Специальность</td><td>".param('spec')."</td></tr>
	    <tr><td>Квалификация</td><td>".param('speckv')."</td></tr>

    </table>
    </td></tr>
<tr><td>8.</td><td>Ученая степень</td><td>
        ".((param('step') eq "none") ? "нет" : "").
        ((param('step') eq "cand") ? "Кандидат наук" : "").
        ((param('step') eq "doctor") ? "Доктор наук" : "")."
</td></tr>
<tr><td>9.</td><td>Ученое звание</td><td>".param('zv')."</td></tr>
<tr><td>10.</td><td>Заслуги, награды</td><td>".param('nagr')."</td></tr>
<tr><td valign=\"top\">11.</td><td valign=\"top\">Место работы</td><td>
    <table>

    <table>
	<tr><td>Тип образовательного учреждения</td><td>
	    ".((param('stype') eq "sch") ? "Школа" : "").
	    ((param('stype') eq "co") ? "ЦО" : "").
	    ((param('stype') eq "lic") ? "Лицей" : "").
	    ((param('stype') eq "gym") ? "Гимназия" : "").
	    ((param('stype') eq "uvk") ? "УВК" : "").
	    ((param('stype') eq "nou") ? "НОУ" : "").
	    ((param('stype') eq "other") ? "иное" : "")."
	</tr></td>
	<tr><td>Номер образовательного учреждения</td><td>".param('snum')."</td></tr>
	<tr><td>Полное название образовательного учреждения</td><td>".param('schname')."</td></tr>
	<tr><td>Адрес образовательного учреждения</td><td>".param('saddr')."</td></tr>
	<tr><td>Округ</td><td>
	    ".((param('sokrug') eq "cao") ? "ЦАО" : "").
	    ((param('sokrug') eq "vao") ? "ВАО" : "").
	    ((param('sokrug') eq "zao") ? "ЗАО" : "").
	    ((param('sokrug') eq "sao") ? "САО" : "").
	    ((param('sokrug') eq "szao") ? "СЗАО" : "").
	    ((param('sokrug') eq "svao") ? "СВАО<" : "").
	    ((param('sokrug') eq "uzao") ? "ЮЗАО" : "").
	    ((param('sokrug') eq "uvao") ? "ЮВАО" : "").
	    ((param('sokrug') eq "uao") ? "ЮАО" : "").
	    ((param('sokrug') eq "zel") ? "г. Зеленоград" : "").
	    ((param('sokrug') eq "dogm") ? "гор. подчинения" : "").
	    ((param('sokrug') eq "other") ? "другое" : "").
	    ((param('sokrug') eq "nomem") ? "не знаю" : "")."
	</td></tr>
    </table>
<td></tr>
<tr><td>12.</td><td>Должность по месту работы</td><td>".param('dolzh')."</td></tr>
<tr><td>13.</td><td>Дата назначения на место работы</td><td>".param('dolzhdate')."</td></tr>
<tr><td valign=\"top\">14.</td><td valign=\"top\">Квалификационная категория</td><td>
    <table>
	<tr><td>Разряд</td><td>
	    ".((param('razr') eq "12") ? "12" : "").
	    ((param('razr') eq "13") ? "13" : "").
	    ((param('razr') eq "14") ? "14" : "").
	    ((param('razr') eq "15") ? "15" : "").
	    ((param('razr') eq "16") ? "16" : "").
	    ((param('razr') eq "pre12") ? "аттестацию не проходил, разряд ЕТС <12" : "")."

	</td></tr>
	<tr><td>Год присвоения</td><td>
	    ".((param('razrdate') eq "2007") ? "2007" : "").
	    ((param('razrdate') eq "2006") ? "2006" : "").
	    ((param('razrdate') eq "2005") ? "2005" : "").
	    ((param('razrdate') eq "2004") ? "2004" : "").
	    ((param('razrdate') eq "2003") ? "2003" : "").
	    ((param('razrdate') eq "2002") ? "2002" : "").
	    ((param('razrdate') eq "2001") ? "2001" : "").
	    ((param('razrdate') eq "2000") ? "2000" : "").
	    ((param('razrdate') eq "before2000") ? "до 2000 года" : "")."
	</td></tr>
	<tr><td>Место присвоения</td><td>".param('razrplace')."</td></tr>
    </table>
</td></tr>
<tr><td valign=\"top\">15.</td><td valign=\"top\">Повышение квалификации за последние 5-10 лет</td><td>
    <table>
            <tr><td>Темы курсов, количество часов</td><td>".param('predpovc')."</td></tr>
	    <tr><td>Периоды обучения</td><td>".param('predpovd')."</td></tr>
	    <tr><td>Место обучения</td><td>".param('predpovb')."</td></tr>
	    <tr><td>Документы-основание <br>(удостоверение, свидетельство, зачетная книжка, указать номера документов)</td><td>".param('predpovu')."</td></tr>
    </table>
</td></tr>

<tr><td>16.</td><td>Стаж педагогический (полных лет)</td><td>".param('stazh')."</td></tr>
<tr><td>17.</td><td>Стаж руководящей работы (полных лет)</td><td>".param('stazhruk')."</td></tr>
<tr><td>18.</td><td>Участие в профессиональных сообществах</td><td>".param('profs')."</td></tr>
<tr><td>19.</td><td>Участие в профессиональных конкурсах (когда и где)</td><td>".param('profc')."</td></tr>
<tr><td valign=\"top\">20.</td><td valign=\"top\">Участие в методической работе</td><td> 
    <table>
                <tr><td>Тематика или направление</td><td>".param('metodtem')."</td></tr>
                <tr><td>Статус</td><td>
			".((param('methodstat') eq "nast") ? "наставник" : "").
			((param('methodstat') eq "dev") ? "разработчик" : "").
			((param('methodstat') eq "exp") ? "эксперт" : "").
			((param('methodstat') eq "metodmemb") ? "член учебно-методического объединения" : "").
			((param('methodstat') eq "other") ? "иное" : "")."
		</td></tr>
		<tr><td>".param('metodstatother')."</td></tr>
    </table>
</td></tr>
<tr><td>21.</td><td>Тема экспериментальной работы (если таковая ведется)</td><td>".param('exptema')."</td></tr>
<tr><td valign=\"top\" >22.</td><td valign=\"top\" >Телефон контактный (с кодом города)</td>

    <td>
	<table>
	<tr><td>".((param('phonetype') eq "home") ? "домашний" : "").
	((param('phonetype') eq "work") ? "рабочий" : "").
	((param('phonetype') eq "cell") ? "мобильный" : "").
	((param('phonetype') eq "none") ? "нет" : "").
	((param('phonetype') eq "other") ? "иное" : "")." 
	    8(".param('phonecode').") ".$phone."</td></tr>
	<tr><td>Другие контактные телефоны: ".param('phoneother')."</td></tr>
    </table>
</td></tr>
<tr><td>23.</td><td>e-mail</td><td>".(param('emailexist') eq "yes" ? param('email') : "нет")."</td></tr>

</table>
<br>
<div align=\"center\"><b>II. Данные о выбранной программе повышения квалификации</b></div>
<br>
<table>
<tr><td valign=\"top\" colspan=\"2\">
    Программа повышения квалификации,<br>
    которую Вы выбираете для обучения в МИОО в 2007/2008 уч.году<br>  
    </td></tr>
    <tr><td valign=\"top\">
	Категория</td>
	<td>
";
	open(CATF, "/var/www/kurs.mioo.ru/data/teacher-rub");
	while (<CATF>) {
	    chomp;
	    my @row = split(';');
	    print ((param('progrcat') eq $row[1]) ? $row[0] : "");
	}
print "	    
	</td></tr>
	<tr><td>Номер программы</td><td>".param('progrcat')."-".$progrnum."</td></tr>


</table>

<table>

            <br>

<form action=\"teacher-reg.pl\" method=\"POST\">

";

foreach my $i (@paramlist) {
        print "<input type=\"hidden\" name=\"".$i."\" value=\"".param($i)."\">\n";
}


print "

	    <input type=\"hidden\" name=\"formt\" value=\"2\">
            <input type=\"submit\" value=\"Подтвердить правильность и сохранить данные\"></form></div>
	    <br>(Вы получите код регистрации - он подтверждает, что Ваши данные занесены в базу.)
            <br>";





print "<form action=\"teacher-reg.pl\" method=\"POST\">

";

print "

	    <input type=\"hidden\" name=\"formt\" value=\"0\">
            <input type=\"submit\" value=\"Отменить и заполнить снова\"></form></div>
            <br>
            <br>
            <b>Предупреждение:</b> не используйте функцию \"Назад\" Вашего браузера.

";



    }
} elsif ($formt eq 2 ) {
# giving filled form for printing and saving data

# saving data
my $str="";

my @row=();

foreach my $i (@paramlist) {
	if (not (($i eq "phone") or ($i eq "progrnum") or ($i eq "phonecode"))) {
            $str=$str."\$\$".param($i);
	    push @row, param($i);
	} else {
	    my $phone=param($i);
	    $phone =~ s/-//;
	    $phone =~ s/\s//;
            $str=$str."\$\$".$phone;
	    if (($i eq "phone") and (param('phonetype') eq "none")) {$phone = 0;}
	    if (($i eq "phonecode") and (param('phonetype') eq "none")) {$phone = 0;}
	    push @row, $phone;
	}
}


my $dbh=DBI->connect("dbi:Pg:dbname=mioo;port=5433","mioo","",{PrintError => 0});
my $sstr = "INSERT INTO registration (";

foreach my $i (@paramlist) {
    $sstr .= " $i ,";
}
$sstr .= " md5hash , modtime ) values (";

foreach my $i (@paramlist) {
    $sstr .= " ? ,";
}

$sstr .= " ? , NULL )";

#print $sstr;

my $sth =$dbh->prepare($sstr);



        my $smd5= uc(md5_hex($str."--".$key));
        $str=$str."\$\$".$smd5."\$\$";

	push @row, $smd5;
#print Dumper(@row);

	$sth->execute(@row);
          if ($DBI::err != 0) {
        print "----\n";
#        print @row, "\n";
        print $DBI::errstr . "\n";
        exit($DBI::err);
	    }

	    my $sth=$dbh->prepare("select group_id from reg_groups where user_id = ?");
    my $rv = $sth -> execute ($smd5);

    if ($rv == 0) {
        $sth = $dbh->prepare("insert into  reg_groups (group_id, user_id) values (?,?)");
        $sth->execute(0,$smd5);
    }
    if ($DBI::err != 0) {
        print $DBI::errstr . "\n";
        exit($DBI::err);
    }
	    my $sth=$dbh->prepare("select comp from reg_comp where user_id = ?");
    my $rv = $sth -> execute ($smd5);

    if ($rv == 0) {
        $sth = $dbh->prepare("insert into  reg_comp (comp, user_id) values (?,?)");
        $sth->execute(0,$smd5);
    }
    if ($DBI::err != 0) {
        print $DBI::errstr . "\n";
        exit($DBI::err);
    }

		
        open (RES, ">> /var/www/kurs.mioo.ru/data/teacher-reg") or die;
        print RES $str,"\n";
        close (RES);
					

# printing form for lpr

print "
           <br><b>Регистрация прошла успешно.</b><br>
           Код подтверждения: <table border=1><tr><td><b>$smd5<b></td></tr></table>
           <br>Это код подтверждающий ввод информации. Сохраните его!
           <br><br>";


print "
<br><div align=\"center\"><b> I. Личные данные</b></div>
<br>
<table>
<tr><td>1.</td><td>Фамилия</td><td>".param('fname')."</td></tr>
<tr><td>2.</td><td>Имя</td><td>".param('sname')."</td></tr>
<tr><td>3.</td><td>Отчество (полностью)</td><td>".param('oname')."</td></tr>
<tr><td valign=\"top\">4.</td><td valign=\"top\">Образование</td><td>
	".((param('obr') eq "sp") ? "специалист" : "").
	((param('obr') eq "ma") ? "магистр" : "").
	((param('obr') eq "ba") ? "бакалавр" : "").
	((param('obr') eq "sr") ? "среднее" : "")."
</td></tr>
<tr><td>5.</td><td>Какое учебное заведение окончил(а)</td><td>".param('vuz')."</td></tr>
<tr><td>6.</td><td>Год окончания учебного заведения</td><td>".param('alum')."</td></tr>
<tr><td valign=\"top\">7.</td><td valign=\"top\">Специальность (направление) и квалификация по диплому</td><td>
    <table>
	    <tr><td>Специальность</td><td>".param('spec')."</td></tr>
	    <tr><td>Квалификация</td><td>".param('speckv')."</td></tr>

    </table>
    </td></tr>
<tr><td>8.</td><td>Ученая степень</td><td>
        ".((param('step') eq "none") ? "нет" : "").
        ((param('step') eq "cand") ? "Кандидат наук" : "").
        ((param('step') eq "doctor") ? "Доктор наук" : "")."
</td></tr>
<tr><td>9.</td><td>Ученое звание</td><td>".param('zv')."</td></tr>
<tr><td>10.</td><td>Заслуги, награды</td><td>".param('nagr')."</td></tr>
<tr><td valign=\"top\">11.</td><td valign=\"top\">Место работы</td><td>
    <table>

    <table>
	<tr><td>Тип образовательного учреждения</td><td>
	    ".((param('stype') eq "sch") ? "Школа" : "").
	    ((param('stype') eq "co") ? "ЦО" : "").
	    ((param('stype') eq "lic") ? "Лицей" : "").
	    ((param('stype') eq "gym") ? "Гимназия" : "").
	    ((param('stype') eq "uvk") ? "УВК" : "").
	    ((param('stype') eq "nou") ? "НОУ" : "").
	    ((param('stype') eq "other") ? "иное" : "")."
	</tr></td>
	<tr><td>Номер образовательного учреждения</td><td>".param('snum')."</td></tr>
	<tr><td>Полное название образовательного учреждения</td><td>".param('schname')."</td></tr>
	<tr><td>Адрес образовательного учреждения</td><td>".param('saddr')."</td></tr>
	<tr><td>Округ</td><td>
	    ".((param('sokrug') eq "cao") ? "ЦАО" : "").
	    ((param('sokrug') eq "vao") ? "ВАО" : "").
	    ((param('sokrug') eq "zao") ? "ЗАО" : "").
	    ((param('sokrug') eq "sao") ? "САО" : "").
	    ((param('sokrug') eq "szao") ? "СЗАО" : "").
	    ((param('sokrug') eq "svao") ? "СВАО<" : "").
	    ((param('sokrug') eq "uzao") ? "ЮЗАО" : "").
	    ((param('sokrug') eq "uvao") ? "ЮВАО" : "").
	    ((param('sokrug') eq "uao") ? "ЮАО" : "").
	    ((param('sokrug') eq "zel") ? "г. Зеленоград" : "").
	    ((param('sokrug') eq "dogm") ? "гор. подчинения" : "").
	    ((param('sokrug') eq "other") ? "другое" : "").
	    ((param('sokrug') eq "nomem") ? "не знаю" : "")."
	</td></tr>
    </table>
<td></tr>
<tr><td>12.</td><td>Должность по месту работы</td><td>".param('dolzh')."</td></tr>
<tr><td>13.</td><td>Дата назначения на место работы</td><td>".param('dolzhdate')."</td></tr>
<tr><td valign=\"top\">14.</td><td valign=\"top\">Квалификационная категория</td><td>
    <table>
	<tr><td>Разряд</td><td>
	    ".((param('razr') eq "12") ? "12" : "").
	    ((param('razr') eq "13") ? "13" : "").
	    ((param('razr') eq "14") ? "14" : "").
	    ((param('razr') eq "15") ? "15" : "").
	    ((param('razr') eq "16") ? "16" : "").
	    ((param('razr') eq "pre12") ? "аттестацию не проходил, разряд ЕТС <12" : "")."
	</td></tr>
	<tr><td>Год присвоения</td><td>
	    ".((param('razrdate') eq "2007") ? "2007" : "").
	    ((param('razrdate') eq "2006") ? "2006" : "").
	    ((param('razrdate') eq "2005") ? "2005" : "").
	    ((param('razrdate') eq "2004") ? "2004" : "").
	    ((param('razrdate') eq "2003") ? "2003" : "").
	    ((param('razrdate') eq "2002") ? "2002" : "").
	    ((param('razrdate') eq "2001") ? "2001" : "").
	    ((param('razrdate') eq "2000") ? "2000" : "").
	    ((param('razrdate') eq "before2000") ? "до 2000 года" : "")."
	</td></tr>
	<tr><td>Место присвоения</td><td>".param('razrplace')."</td></tr>
    </table>
</td></tr>
<tr><td valign=\"top\">15.</td><td valign=\"top\">Повышение квалификации за последние 5-10 лет</td><td>
    <table>
            <tr><td>Темы курсов, количество часов</td><td>".param('predpovc')."</td></tr>
	    <tr><td>Периоды обучения</td><td>".param('predpovd')."</td></tr>
	    <tr><td>Место обучения</td><td>".param('predpovb')."</td></tr>
	    <tr><td>Документы-основание <br>(удостоверение, свидетельство, зачетная книжка, указать номера документов)</td><td>".param('predpovu')."</td></tr>
    </table>
</td></tr>

<tr><td>16.</td><td>Стаж педагогический (полных лет)</td><td>".param('stazh')."</td></tr>
<tr><td>17.</td><td>Стаж руководящей работы (полных лет)</td><td>".param('stazhruk')."</td></tr>
<tr><td>18.</td><td>Участие в профессиональных сообществах</td><td>".param('profs')."</td></tr>
<tr><td>19.</td><td>Участие в профессиональных конкурсах (когда и где)</td><td>".param('profc')."</td></tr>
<tr><td valign=\"top\">20.</td><td valign=\"top\">Участие в методической работе</td><td> 
    <table>
                <tr><td>Тематика или направление</td><td>".param('metodtem')."</td></tr>
                <tr><td>Статус</td><td>
			".((param('methodstat') eq "nast") ? "наставник" : "").
			((param('methodstat') eq "dev") ? "разработчик" : "").
			((param('methodstat') eq "exp") ? "эксперт" : "").
			((param('methodstat') eq "metodmemb") ? "член учебно-методического объединения" : "").
			((param('methodstat') eq "other") ? "иное" : "")."
		    </select>
		</td></tr>
		<tr><td>".param('metodstatother')."</td></tr>
    </table>
</td></tr>
<tr><td>21.</td><td>Тема экспериментальной работы (если таковая ведется)</td><td>".param('exptema')."</td></tr>
<tr><td valign=\"top\" >22.</td><td valign=\"top\" >Телефон контактный (с кодом города)</td>

    <td>
	<table>
	<tr><td>".((param('phonetype') eq "home") ? "домашний" : "").
	((param('phonetype') eq "work") ? "рабочий" : "").
	((param('phonetype') eq "cell") ? "мобильный" : "").
	((param('phonetype') eq "none") ? "нет" : "").
	((param('phonetype') eq "other") ? "иное" : "")." 
	    8(".param('phonecode').") ".param('phone')."</td></tr>
	<tr><td>Другие контактные телефоны: ".param('phoneother')."</td></tr>
    </table>
</td></tr>
<tr><td>23.</td><td>e-mail</td><td>".(param('emailexist') eq "yes" ? param('email') : "нет")."</td></tr>

</table>
<br>
<div align=\"center\"><b>II. Данные о выбранной программе повышения квалификации</b></div>
<br>
<table>
<tr><td valign=\"top\" colspan=\"2\">
    Программа повышения квалификации,<br>
    которую Вы выбираете для обучения в МИОО в 2007/2008 уч.году<br>  
    </td></tr>
    <tr><td valign=\"top\">
	Категория</td>
	<td>
";
	open(CATF, "/var/www/kurs.mioo.ru/data/teacher-rub");
	while (<CATF>) {
	    chomp;
	    my @row = split(';');
	    print ((param('progrcat') eq $row[1]) ? $row[0] : "");
	}
print "	    
	</td></tr>
	<tr><td>Номер программы</td><td>".param('progrnum')."</td></tr>


</table>

<table>";


print "
           <br>
           Код подтверждения: <b>$smd5<b>
           <br>Это код подтверждающий ввод информации. Сохраните его!
           <br><br>
					         
            <br>
           <FORM>
           <INPUT TYPE=\"button\" onClick=\"window.print()\" VALUE=\"Распечатать\">
           </FORM>&nbsp;
				    

            <br>
            <br>
            <b>Предупреждение:</b> не используйте функцию \"Назад\" Вашего браузера.

";

} else {
# mysterious error

    print "<br><b>Произошла ошибка, код: e-X12($formt).</b> <br>Пожалуйста сообщите об этом по адресу <a href=\"mailto:mironovd (at) mccme.ru\">mironovd (at) mccme.ru</a>";

}

#footer

print "<hr>";
print "<table valign=\"top\" border=0 cellPadding=0 cellSpacing=1 width=\"100%\">
   <tr>
       <td vAlign=top width=\"80%\" align=\"left\"><small>Copyright &#169;1996&#8211;, <a href=\"http://www.mioo.ru/\">МИОО</a></small></td>
       
               <td align=\"right\">
	               <!--begin of Top100 logo-->
		               <a href=\"http://top100.rambler.ru/top100/\">
			               <img src=\"http://top100-images.rambler.ru/top100/banner-88x31-rambler-blue.gif\"
				               alt=\"\" width=88 height=31 border=0></a>
					               <!--end of Top100 logo -->
						            <!--begin of Top100-->
							             <a href=\"http://top100.rambler.ru/top100/\"> <img src=\"http://counter.rambler.ru/top100.cnt?188597\" alt=\"Rambler's Top100\" width=1 height=1
								          <!--end of Top100 code-->
									          </td>
										     </tr>
										     
										     </table>";
										     
 print end_html;
										     
