--- loncom/interface/lonmenu.pm 2012/12/22 14:57:20 1.399 +++ loncom/interface/lonmenu.pm 2012/12/26 23:50:26 1.400 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines to control the menu # -# $Id: lonmenu.pm,v 1.399 2012/12/22 14:57:20 raeburn Exp $ +# $Id: lonmenu.pm,v 1.400 2012/12/26 23:50:26 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -2022,13 +2022,13 @@ BEGIN { $category_names{$entries[2]}=$entries[3]; } elsif ($configline=~/^prim\:/) { my @entries = (split(/\:/, $configline))[1..5]; - push @primary_menu, \@entries; + push(@primary_menu,\@entries); } elsif ($configline=~/^primsub\:/) { my ($parent,@entries) = (split(/\:/, $configline))[1..4]; - push (@{$primary_submenu{$parent}},\@entries); + push(@{$primary_submenu{$parent}},\@entries); } elsif ($configline=~/^scnd\:/) { my @entries = (split(/\:/, $configline))[1..5]; - push @secondary_menu, \@entries; + push(@secondary_menu,\@entries); } elsif ($configline) { push(@desklines,$configline); }