--- loncom/interface/lonparmset.pm	2010/06/18 11:11:08	1.498
+++ loncom/interface/lonparmset.pm	2010/07/29 21:16:44	1.500
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.498 2010/06/18 11:11:08 bisitz Exp $
+# $Id: lonparmset.pm,v 1.500 2010/07/29 21:16:44 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1685,13 +1685,13 @@ sub displaymenu {
 }
 
 sub mapmenu {
-    my ($r,$allmaps,$pschp,$maptitles, $symbp)=@_;
+    my ($r,$allmaps,$pschp,$maptitles,$symbp)=@_;
     my %allmaps_inverted = reverse %$allmaps;
     my $navmap = Apache::lonnavmaps::navmap->new();
     my $tree=[];
     my $treeinfo={};
     if (defined($navmap)) {
-        my $it=$navmap->getIterator(undef,undef,undef,1,undef,undef);
+        my $it=$navmap->getIterator(undef,undef,undef,1,1,undef);
         my $curRes;
         my $depth = 0;
         my %parent = ();
@@ -2113,10 +2113,10 @@ sub assessparms {
         my @markers=split(/\&\&\&/,$env{'form.pres_marker'});
         my @values=split(/\&\&\&/,$env{'form.pres_value'});
         my @types=split(/\&\&\&/,$env{'form.pres_type'});
+        my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
+        my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
         for (my $i=0;$i<=$#markers;$i++) {
             if ($markers[$i] =~ /^[\d.]+\&0_availablestudent\&(1|2|3)$/) {
-                my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
-                my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
                 my (@ok_slots,@fail_slots,@del_slots);
                 my $courseopt=&Apache::lonnet::get_courseresdata($cnum,$cdom);
                 my ($level,@all) =
@@ -2146,6 +2146,10 @@ sub assessparms {
                         }
                     }
                 }
+            } elsif ($markers[$i] =~ /_type\&\d+$/) {
+                if (($values[$i] eq 'anonsurvey') || ($values[$i] eq 'anonsurveycred')) {
+                    &Apache::lonnet::update_released_required($Apache::lonnet::needsrelease{'parameter:type:'.$values[$i]});
+                }
             }
             $message.=&storeparm(split(/\&/,$markers[$i]),
                  $values[$i],