--- loncom/interface/lonmenu.pm 2016/04/05 02:02:28 1.445 +++ loncom/interface/lonmenu.pm 2016/04/15 14:14:09 1.446 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines to control the menu # -# $Id: lonmenu.pm,v 1.445 2016/04/05 02:02:28 raeburn Exp $ +# $Id: lonmenu.pm,v 1.446 2016/04/15 14:14:09 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -560,7 +560,7 @@ sub create_submenu { # see perldoc create_submenu documentation for further information sub build_submenu { my ($target, $submenu, $translate, $first_level) = @_; - if (!defined(@{$submenu})) { + unless (@{$submenu}) { return ''; }