--- 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 = '
'.$indent.$icon.' |