levcom, есть рабочий скриптец? 
Мозги закипают уже.
Замечу, что скрипт строит древовидное меню _и_ строит к нему ссылки в виде /category1/category2/.. в зависимости от вложенности. Само построение дерева проше.
Всего 5 функций:
| Код |
участвует при разборе запроса вытягивает непосредственно _nav_build
sub get_navigation_id
{
my($self,$master)=@_;
my $nav = $master->{query}->param("_nav_build") || "0";
my @element = split /-/, $nav;
return $element[-1];
}
##########################################################
Строит хэш (замечу, что есть несколько дополнительных полей в БД
name - отображаемое значение в меню (например, 'Для дома')
uri - название категории (например 'home')
sub build_menu
{
my($self,$master)=@_;
my $nav = $master->{query}->param("_nav_build") || "0";
@element = split /-/, $nav;
my $str = join " OR id_parent=", @element;
my $sth=$master->{db}->get->prepare (qq{
SELECT
id_category,
id_parent,
name,
uri
FROM navigation
WHERE (id_parent=$str)
ORDER BY sort DESC});
$sth->execute();
while (my $ref=$sth->fetchrow_arrayref())
{
$_ = $ind{$ref->[1]};
push @{$_}, $ref->[0];
$msg{$ref->[0]} = [($ref->[2], $ref->[3])];
$ind{$ref->[1]} = $_;
}
$self->tree_menu($master, 0, "");
}
##########################################################
Строит дерево (эту функцию и вставлять в тело программы страницы)
sub tree_menu
{
my($self,$master,$i)=@_;
my $s;
my $path=$_[3];
if($i==0)
{
$path='';
}
else
{
$path=$path."/".$msg{$element[$i]}[1];
}
foreach $s (@{$ind{$element[$i]}})
{
print "<div><a href=\"$path/$msg{$s}[1]/\">$msg{$s}[0]</a>\n";
if($s == $element[$i+1])
{
$self->tree_menu($master, $i+1, $path);
}
print "</div>"
}
}
##########################################################
Строит хэш для файла .htaccess
sub build_test
{
my($self,$master)=@_;
my $sth = $master->{db}->get->prepare (qq{
SELECT
id_category,
id_parent,
name,
uri,
script
FROM navigation
ORDER BY sort DESC});
$sth->execute();
while (my $ref = $sth->fetchrow_arrayref())
{
$_ = $ind{$ref->[1]};
push @{$_}, $ref->[0];
$msg{$ref->[0]} = [($ref->[2], $ref->[3], $ref->[4])];
$ind{$ref->[1]} = $_;
}
open(CONFIG, "> $fileconfig") or die
"<div>Error: $!\n</div>";
select CONFIG;
foreach $_(@config)
{
print "$_";
}
print "\n### \$levcom_generic\n";
$self->tree_test($master, 0, "", "0");
select STDOUT;
}
##########################################################
Вносит изменения в фаил .htaccess
sub tree_test
{
my($self,$master)=@_;
my $path = $_[3];
my $num = $_[4];
my $s;
foreach $s (@{$ind{$_[2]}})
{
if($path eq "")
{
print "RewriteRule ^(.*)$msg{$s}[1]/\$ \$1$msg{$s}[2]?_nav_build=$num-$s\n";
$self->tree_test($master, $s, $msg{$s}[1], $num."-".$s);
}
else
{
print "RewriteRule ^(.*)$path/$msg{$s}[1]/\$ \$1$msg{$s}[2]?_nav_build=$num-$s\n";
$self->tree_test($master, $s, $path."/".$msg{$s}[1], $num."-".$s);
}
}
}
##########################################################
Запоминат все что в файле до раздела формируемого этим скиптом (этот раздел последний),
после чего его исправляет
sub get_config_file
{
my($self,$master)=@_;
open(CONFIG, "< $fileconfig") or die
"<div>Error: $!\n</div>";
while(<CONFIG>)
{
if(/^### \$levcom_generic/)
{
return;
}
push @config, $_;
}
close CONFIG;
}
|
Это 6 функций из модуля Navigation.pm всего из 7. У меня на сайте работает.
Я пока еще только очень начинающий поэтому заранее буду благодарен любым замечаниям по коду и предложениям.
Сейчас переделываю этот механизм (при тойже структуре данных) с отказом от параметра _nav_build и поддержкой кэширования части меню.
Данный моду дополненый еще несколькими функциями состовляет довольно универсальную и простую систему публикации. (К сожаления, даже не представляю как подобные вещи устроены на других сайтах, поэтому реализация может показаться _глупой_)
|
