интересное кино, скрипт поставил -> спасибо.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
----------------
начало скрипта
----------------
#connecting to sql server -> to database
$DSN = 'SERVER=developer;DRIVER={SQL Server};DATABASE=alb;' ;
if (!($O = new Win32::ODBC($DSN))){
print "Failure. \n\n";
print Win32::ODBC::Error();
exit();
}
$O->Sql("select * from menu where parent='$parent' order by parent, level");
@top;
%recs;
while($O->FetchRow()){
%Data = $O->DataHash();
$dataRef=\%Data;
$id=$dataRef->{id};
$recs{$id}=\%Data;
$recs{$id}{children}=[]; #анонимный массив
push @top, $dataRef unless ($dataRef{parent});
}
foreach $dataRef (values %recs){
$parent=$dataRef->{parent};
if($recs{$parent}){
push @{$recs{$parent}->{children}}, $dataRef;
}
}
print "<ol>";
for $menu (@top){
out_menu($menu);
}
print "</ol>";
sub out_menu{
$menu=shift;
%hash=%{$menu};
print "<li> <a href=$hash{url_menu}>$hash{menu}</a>";
if(scalar @{$hash{children}}){
print "<ol>";
for $submenu (@{$hash{children}}){
out_menu($submenu);
}
print "</ol>";
}
print "</li>";
}
но проблема в том что он не отображает меню как надо!
он отображает в виде:
1. Технико-экономическое планирование
2. Технико-экономическое планирование
3. Технико-экономическое планирование
4. Технико-экономическое планирование
5. Технико-экономическое планирование
6. Технико-экономическое планирование
7. Технико-экономическое планирование
причем само "Технико-экономическое планирование" - стоит в id=42 \это самое последнее меню\
а вед до id=42 есть еще меню. Хотя кол-во определенно верно (7).
но и под меню еще не выводятся..(((
