bluesaxman/pcms
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

minor variable name change

Browse Source
This commit is contained in:
bluesaxman 2019-05-03 12:09:59 -06:00
parent 69cf1b3a8b
commit 7e0b8be958
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
index.pl
View File

@ -212,16 +212,16 @@ sub menu {
if (-e $data_dir."menucont") { if (-e $data_dir."menucont") {
open(MENUFILE, "<", $data_dir."menucont") or return "Problem accessing menu file:".$!; open(MENUFILE, "<", $data_dir."menucont") or return "Problem accessing menu file:".$!;
while(my $item = <MENUFILE>) { while(my $item = <MENUFILE>) {
push(@{$menus{"main"}},$item); push(@{$menus{"menu"}},$item);
} }
close(MENUFILE); close(MENUFILE);
chomp @{$menus{"main"}}; chomp @{$menus{"menu"}};
} else { } else {
opendir(my $dir,$pages_dir) or return "Problem parsing the pages directory:".$!; opendir(my $dir,$pages_dir) or return "Problem parsing the pages directory:".$!;
while (my $file = readdir($dir)) { while (my $file = readdir($dir)) {
next if ($file =~ m/^\./); next if ($file =~ m/^\./);
next if ($file =~ m/_dir$/); next if ($file =~ m/_dir$/);
push (@{$menus{"main"}}, $file); push (@{$menus{"menu"}}, $file);
} }
close($dir); close($dir);
} }
@ -238,8 +238,8 @@ sub menu {
} }
my $buffer = ""; my $buffer = "";
# main needs to be output first then the rest of the menus can be looped through # main needs to be output first then the rest of the menus can be looped through
$buffer .= render_menu("main",@{$menus{"main"}}); $buffer .= render_menu("menu",@{$menus{"menu"}});
delete($menus{"main"}); delete($menus{"menu"});
for my $menu_name (sort keys %menus) { for my $menu_name (sort keys %menus) {
$buffer .= render_menu($menu_name,@{$menus{$menu_name}}); $buffer .= render_menu($menu_name,@{$menus{$menu_name}});
} }