--- loncom/interface/lonmenu.pm 2002/01/06 01:29:53 1.12 +++ loncom/interface/lonmenu.pm 2002/02/08 23:52:37 1.13 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines to control the menu # -# $Id: lonmenu.pm,v 1.12 2002/01/06 01:29:53 harris41 Exp $ +# $Id: lonmenu.pm,v 1.13 2002/02/08 23:52:37 harris41 Exp $ # # Copyright Michigan State University Board of Trustees # @@ -108,7 +108,7 @@ sub rawconfig { my $pub=($ENV{'request.state'} eq 'published'); my $con=($ENV{'request.state'} eq 'construct'); my $rol=$ENV{'request.role'}; - map { + foreach (@desklines) { my ($row,$col,$pro,$prt,$img,$top,$bot,$act)=split(/\:/,$_); $prt=~s/\$uname/$uname/g; $prt=~s/\$udom/$udom/g; @@ -145,7 +145,7 @@ sub rawconfig { } } } - } @desklines; + } return $output; }