Остался только 1 неразрешимый вопрос - как сделать так чтобы заработала АДМИНКА...]]>
Странный error.log.
Админка на этом сервере раньше работала? Если да, то надо проверять куда вносились изменения, если нет, то надо смотреть различия в настройках серверов.
]]> 
]]>1)почему то теперь после ввода логина и пасса чтобы войти в админку идет ошибка (как я понял 500)Internal Server Error
Как это можно исправить?
Вероятно при редактировании скриптов была допущена ошибка. Описание ошибки можно посмотреть в журнале ошибок Apache.
2)я нашел файл который отвечает за подкачку в "каталог" - catalog.pm
my $query = "select * from $ptb as c join $ftb as f join $fprtb as p where c.parent='$data{catalog}' and c.id=p.item_id and f.id=p.firm_id order by f.firm_name, c.title";
Обратите внимание на эту строку и то, как в ней объединены три таблицы. Как я понимаю, побъединение происходит еще и с таблицей производителя, в которой тоже должна быть соответствующая запись.
kocmocivan
Смотрите вывод данных в функции format1(). Вероятно, для вывода необходимо наличие более одной записи на parent.
Hanut извените, я наверное уже "достал"...
Есть два вопроса:
1)почему то теперь после ввода логина и пасса чтобы войти в админку идет ошибка (как я понял 500)Internal Server Error
Как это можно исправить?
2)я нашел файл который отвечает за подкачку в "каталог" - catalog.pm
Боюсь копировать все дабы не показаться флудильшиком...
######### categories listing
my $query = "select * from $ptb where parent='$data{catalog}' order by title";
my $sth = $dbh->prepare($query);
$sth->execute;
while (@R = $sth->fetchrow_array)
{
$outp .= &format1("list",$prod_list,$R[0],$data{fid},$R[2]);
}
$sth->finish;
######### firm listing
# my $query = "select * from $ftb order by firm_name";
my $query = "select * from $ftb as f join $fprtb as p join $ptb as c where f.id=p.firm_id and c.parent='$data{catalog}' and c.id=p.item_id order by firm_name";
my $sth = $dbh->prepare($query);
$sth->execute;
#print $query,"\n\n";
my $fname = "";
while (@R = $sth->fetchrow_array)
{
if ($fname !~ /$R[1]/)
{
$fname .= "#".$R[1]."#";
$outf .= &format1("listf",$firm_list,$data{catalog},$R[0],$R[1]);
}
}
$sth->finish;
###########################
if ($lvl<2) #if not last level
{
my $query = "select distinct c.id,c.title from $ptb as c join $fprtb as f where c.parent='$data{catalog}' and f.firm_id='$data{fid}' and c.id=f.item_id order by c.title";
my $sth = $dbh->prepare($query);
$sth->execute;
while (@R = $sth->fetchrow_array)
{
$outp .= &format1("list",$prod_list,$R[0],$data{fid},$R[1]);
}
$sth->finish;
my $query = "select firm_name from $ftb where id='$data{fid}'";
my $sth = $dbh->prepare($query);
$sth->execute;
$R = $sth->fetchrow;
$outf .= &format1("listf2",$firm_list,$data{catalog},$data{fid},$R);
$sth->finish;
$outfc .= &format2("captf",$firm_capt,$data{fid});
$outpc .= &format2("capt",$prod_capt,$data{catalog});
}
Это 3 вырезки из кода - где встречается "format1("
И одна которая как я понимаю и отвечает за 2 лвл...
elsif ($lvl == 2) #last level
{
my $query = "select * from $ptb as c join $ftb as f join $fprtb as p where c.parent='$data{catalog}' and c.id=p.item_id and f.id=p.firm_id order by f.firm_name, c.title";
my $sth = $dbh->prepare($query);
$sth->execute;
my $cnt = 0;
my $i=0;
while (@R = $sth->fetchrow_array)
{
$tmp = &format3(0,$prod_list1,$R[0],$data{fid},$R[2],$R[5],$R[6],$R[7]);
$cnt++;
$i++;
if ($cnt == 2) {$outp .= qq~<tr class="tcol1">$tmp1 $tmp</tr>~; $tmp1 = ""; $cnt = 0;}
else {$tmp1 .= $tmp;}
# $outp .= &format3($cnt,$prod_list1,$R[0],$data{fid},$R[2],$R[5],$R[6],$R[7]);
# $cnt++;
# if ($cnt == 2)
# {
# $outp = qq~ <tr> $outp </tr>;
# }
# $cnt = ($cnt == 2) ? 0 : $cnt;
}
$sth->finish;
if ($i % 2) {$outp .= qq~<tr class="tcol1">$tmp<td> \;</td><td> \;</td></tr>~; }
}
Что примерно тут не так????
]]> if ($lvl<3) #if not last level
{
######### categories listing
my $query = "select * from $ptb where parent='$data{catalog}' order by title";
my $sth = $dbh->prepare($query);
$sth->execute;
while (@R = $sth->fetchrow_array)
{
$outp .= &format1("list",$prod_list,$R[0],$data{fid},$R[2]);
}
$sth->finish;
######### firm listing
# my $query = "select * from $ftb as f join $fprtb as p join $ptb as c where f.id=p.firm_id and c.parent='$data{catalog}' and c.id=p.item_id order by firm_name";
my $query = "select * from $ftb";
my $sth = $dbh->prepare($query);
$sth->execute;
my $fname = "";
while (@R = $sth->fetchrow_array)
{
if ($fname !~ /$R[1]/)
{
$fname .= "#".$R[1]."#";
$outf .= &format1("listf",$firm_list,$data{catalog},$R[0],$R[1]);
}
}
$sth->finish;
}
ЭТО ?
Файл называется admcatalog.pm в папке admin
]]>Вот собственно и возник вопрос в процессе работа (сам пытался решить, потратил 4 часа без результативно).
сайт - www.decotec.ru (ссылку дал не в рекламных целях, а чтобы можно было понять "в живую" суть проблемы).
Там идет перечень продукции по принципу раскрывающегося меню.
В MyAdmine стоит 2 лвл (включая нулевой).
0 лвл - заглавное (основное) меню выбора (производитель)
1 лвл - второстипенное меню ("модель")
2 лвл - изображение
Так вот, по подобию предыдущих всей продукции идет следующим образом:
сначало вставляется нулевое название (которому присваивается ID и Parent + нулейвой лвл)
потом создается новый раздел , вложенный в предыдущий (ID берется любое, а Parent берется из ID основного + 1 лвл)
получается "папка с вложенной в неё еще одной"
Дальше создается еще 1 раздел - который и является картинкой (ID берется любое,а Parent берется из ID второго раздела + 2 лвл и + ссылка на изображение, путь...)
Потом если необходимо отобрахзить сразу несколько изображений 3-ее действие повторяется, где меняется только ID и ссылка на изображение.
И все работает!
Когда же я начал повторять все те же шаги... у меня не отображается картинка после третьего шага. Отображение картинки идет только если убрать 2-ой лвл (3-ее действие) и вставить картинку на втором действии... И все бы замечательно, но мне нужна не 1 картинка, а несколько... а добиться их размещения во второй папке можно только если сделать 3-ий лвл + 3-ее действие. В противном случае он создает еще 1 раздел с другой картинкой.
ПОМОГИТЕ ПОЖАЛУЙСТА!
]]>