Web-приложение «Сайт системы научных конференций»

     if ($fio and $tel and $email){ 

     #Создаём  номер квитанции

     my $noschet = $dbh->selectrow_array("SELECT max( nom ) FROM schet");

     $noschet++; 

     $fio = $dbh->quote( $fio );

     $tel = $dbh->quote( $tel );

     $email = $dbh->quote( $email ); 

     #Записываем  квитанцию в базу

     my $sth = $dbh->prepare("insert into schet (nom,fio,tel,email,data) values ('$noschet',$fio,$tel,$email,'$reg_date $time_form')");

     if ($sth->execute()){

     $idins = $sth->{'mysql_insertid'};

     $sth->finish(); 

             #Заносим купленные билеты. т.е.  отмечаем их, что они купленные

             $q = CGI->new();

             my $cookies = $q->cookie('basket');

             @ms = split(/:/,$cookies);

             foreach $ls (@ms){

             my ($ss1,$ss2) = split(/-/,$ls); 

             $sth=$dbh->do("INSERT INTO sale (Model_id, schet_id) VALUES ('$ss1', '$idins')"); # добавляем новый 

             #Удаляем куки

                my  $c = new CGI::Cookie(-name=>'basket',

                                     -expires => '-1y',

                                     );

                $c =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

               $c =~ s/<!--(.|\n)*-->//g;

                print "Set-Cookie: $c\n";

                $kvit=1;

                             }

     }

     }else{

     $HTML_SITE{title2} = "<p style=\"color:red;\">Не заполнены  обязательные поля</p>";

     } 

     } 

     1;

Приложение  Б

    Результаты  тестирования

Рисунок Б-1 — Введены неверные логин и пароль. 

Рисунок Б-2 — Успешная авторизация.

Рисунок Б-3 — Добавляем новые часы. 

Рисунок Б-4 — Данные добавились.

Рисунок Б-5 — Хотим редактировать верхнюю  запись. 

Рисунок Б-6 — Изменяем стоимость.

Рисунок Б-7 — Данные изменены. 

Рисунок Б-8 — Удаляем ранее добавленный  товар.

Рисунок Б-9 — Данные корректно удалены. 

Рисунок Б-10 — Заполняем поля для запроса.

Рисунок Б-11 — По нашему запросу вывелись 2 модели. 

Рисунок Б-12 — Добавляем товар в корзину.

Рисунок Б-13 — Проверяем корзину, товар  в ней присутствует.