--- loncom/interface/lonparmset.pm 2009/06/17 20:01:57 1.461 +++ loncom/interface/lonparmset.pm 2009/06/18 19:43:14 1.462 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to set parameters for assessments # -# $Id: lonparmset.pm,v 1.461 2009/06/17 20:01:57 neumanie Exp $ +# $Id: lonparmset.pm,v 1.462 2009/06/18 19:43:14 neumanie Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1612,19 +1612,23 @@ sub mapmenu { } my $id= $curRes->id(); my ($mapid,$resid)=split(/\./,$id); - push(@$tree,$mapid); - $treeinfo->{$mapid} = { + if(!exists($treeinfo->{$mapid})) { + push(@$tree,$mapid); + $treeinfo->{$mapid} = { depth => $depth, type => $type, }; + } } } } - } + } + $r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Enclosing Map or Folder'))); if ((ref($tree) eq 'ARRAY') && (ref($treeinfo) eq 'HASH')) { my $icon = ''; - $r->print('
'.$icon.' | '.$icon.' | '.&Apache::loncommon::end_data_table_header_row()); foreach my $mapid (@{$tree}) { my $depth = $treeinfo->{$mapid}->{'depth'}; my $indent = (' 'x$depth); @@ -1632,13 +1636,13 @@ sub mapmenu { if ($treeinfo->{$mapid}->{'type'} eq 'page') { $icon = ''; } - $r->print('
'.$indent.$icon.' |