|
|
|
HTMLEND
;
if ($pid)
{
$sql = "SELECT MENTOR.prs_LastName, MENTOR.prs_FirstName, MENTOR.prs_Patronymic, MENTOR.mnt_Degrees, MENTOR.mnt_Position, MENTOR.mnt_Genetive, MENTOR.mnt_Type FROM MENTOR WHERE MENTOR.mnt_ID=$pid";
$sth = $dbh->Query($sql);
($prs_LastName, $prs_FirstName, $prs_Patronymic, $mnt_Degrees, $mnt_Position, $mnt_Genetive, $mnt_Type) = $sth->FetchRow();
}
if ($sect eq "news")
{
@namesArray=@newsArray;
}
if (($sect eq "course")or ($sect eq "mk"))
{@namesArray=@evkArray;}
if ($sect eq "hp")
{
if (($mnt_Type eq "Преподаватель")or($subs eq "teach"))
{
@namesArray=@vkArray2;
}
else
{
@namesArray=@vkArray1;
}
}
if ($sect eq "institute")
{
if ($subs eq "ent") {@namesArray=@ikpArray1;}
if ($subs eq "teach") {@namesArray=@ikpArray2;}
if ($subs eq "stud") {@namesArray=@ikpArray3;}
};
if ($mnt_Type eq "Преподаватель")
{ $what="tvk";}
else
{ $what="evk";}
if ($sect eq "vk")
{
@namesArray=@vkArray1;
if ($subs eq "evk")
{@namesArray=@evkArray;}
if () {
}
if ($subs eq "mk")
{ if ($what eq "evk")
{@namesArray=@evkArray2;}
else {@namesArray=@tvkArray2;}
}
if ($subs eq "os")
{ if ($what eq "evk")
{@namesArray=@evkArray3;}
else {@namesArray=@tvkArray3;}
}
if ($subs eq "tvk")
{@namesArray=@tvkArray;}
if ($subs eq "teach")
{@namesArray=@vkArray2;}
if ($subs eq "distant")
{@namesArray=@tvkArray4;}
}
if ($sect eq "distant")
{
@namesArray=@tvkArray4;
}
$len=@namesArray;
my $menu="";
for ($i=0;$i<$len;$i=$i+2)
{
$name=@namesArray[$i];
$url=@namesArray[$i+1];
addmenuline($menu,$name,$url);
}
print <
|
|
|
HTMLEND
;
}
################################################
sub do_body{
if (($sect eq "institute") and ($subs eq "schedule"))
{
do_schedule();
} # end if
print <
HTMLEND
;
$photo_path="/photo/small/";
if (($subs eq "ent") or ($subs eq ""))
{ $who="Мастера";}
if ($subs eq "teach")
{ $who="Учителя";}
#$sql = "SELECT MENTOR.prs_LastName, MENTOR.prs_FirstName, MENTOR.prs_Patronymic, MENTOR.mnt_Degrees, MENTOR.mnt_Position, MENTOR.mnt_Genetive, MENTOR.mnt_Type FROM MENTOR WHERE MENTOR.mnt_ID=$pid";
#$sth = $dbh->Query($sql);
#($prs_LastName, $prs_FirstName, $prs_Patronymic, $mnt_Degrees, $mnt_Position, $mnt_Genetive, $mnt_Type) = $sth->FetchRow();
if (($subs eq "distant") or ($sect eq "distant"))
{
do_course_mk();
}
if ($subs eq "teach")
{
$sql = "SELECT MENTOR.mnt_ID, MENTOR.prs_LastName, MENTOR.prs_FirstName, MENTOR.prs_Patronymic, MENTOR.mnt_Degrees, MENTOR.mnt_Position, MENTOR.mnt_Type FROM MENTOR, MJOB WHERE MENTOR.mnt_ID = MJOB.prs_ID AND MJOB.job_Position = 'Преподаватель' ORDER BY MENTOR.mnt_Koi";
$k=$i;
$h=350;
$href="tvk";
}
else
{
$sql = "SELECT MENTOR.mnt_ID, MENTOR.prs_LastName, MENTOR.prs_FirstName, MENTOR.prs_Patronymic, MENTOR.mnt_Degrees, MENTOR.mnt_Position, MENTOR.mnt_Type FROM MENTOR, MJOB WHERE MENTOR.mnt_ID = MJOB.prs_ID AND MJOB.job_Position = 'Предприниматель' ORDER BY MENTOR.mnt_Koi";
$k=$i;
$h=900;
$href="evk";
}
#$sql = "SELECT MENTOR.prs_LastName, MENTOR.prs_FirstName, MENTOR.prs_Patronymic, MENTOR.mnt_Degrees, MENTOR.mnt_Position, MENTOR.mnt_Genetive, MENTOR.mnt_Type FROM MENTOR WHERE MENTOR.mnt_ID=$pid";
#$sth = $dbh->Query($sql);
#$photo_path="http://www.ckp.ru/multimedia/photos/official/small/";
# список ВК
if (($sect eq "vk") and (($subs eq "ent") or ($subs eq "") or ($subs eq "teach")))
{
do_vk_list();
} # end if
# ВК
if (($sect eq "vk") and (($subs eq "tvk")or($subs eq "evk")or($subs eq "courses")or($subs eq "mk")or($subs eq "os")))
{
do_evk();
} # end if
# подробно курс или мастер-класс
if (($sect eq "mk") or ($sect eq "course"))
{
do_course_mk();
} # end if
# личная страничка
if ($sect eq "hp")
{
do_hp();
} # end if
if ($sect eq "institute")
{
do_institute();
} # end if
print " \n\n";
}
###############################################
sub addmenuline{
my $menu=@_[0];
my $name=@_[1];
my $url=@_[2];
if (($url ne "!")and($url ne "")) {$menu=" | \n$name | \n
\n";}
if ($url eq ""){$menu="\n$name | \n
\n";}
if ($url eq "!"){$menu="\n$name | \n
\n";}
$menu=$menu." |
\n";
print "$menu";
}
################################################
sub do_vk_list{
require "do_vk_list.cgi";
}
########################################
sub do_evk{
require "do_evk.cgi";
}
#####################################################
sub insert {
my($file) = @_;
open (HTML, "< $root$file");
print ;
close (HTML)}
#####################################################
sub do_course_mk{
require "do_course_mk.cgi";
}
#####################################################
sub do_hp{
require "do_hp.cgi";
}
#####################################################
sub do_institute{
require "do_institute.cgi";
}
#####################################################
sub do_schedule{
require "do_schedule.cgi";
}