--- loncom/interface/lonparmset.pm	2010/12/21 14:14:55	1.504
+++ loncom/interface/lonparmset.pm	2011/10/07 15:25:40	1.505.2.1
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.504 2010/12/21 14:14:55 raeburn Exp $
+# $Id: lonparmset.pm,v 1.505.2.1 2011/10/07 15:25:40 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1748,12 +1748,11 @@ sub mapmenu {
         # Info about selectable folders/maps
         $r->print(
             '<div class="LC_info">'
-           .&mt('You can only select those maps and folders which can be currently parameterized.')
-         # .' '.&Apache::loncommon::help_open_topic('...') # Later: Add further help
+           .&mt('You can only select maps and folders which have modifiable settings.')
+           .' '.&Apache::loncommon::help_open_topic('Parameter_Set_Folder')
            .'</div>'
         );
 
-
         $r->print(&Apache::loncommon::start_data_table());
 
         # Display row: "All Maps or Folders"
@@ -2123,7 +2122,7 @@ sub assessparms {
         my ($got_chostname,$chostname,$cmajor,$cminor);
         my $totalstored = 0;
         for (my $i=0;$i<=$#markers;$i++) {
-            my ($needsrelease,$needsnewer);  
+            my ($needsrelease,$needsnewer);
             if ($markers[$i] =~ /^[\d.]+\&0_availablestudent\&(1|2|3)$/) {
                 my (@ok_slots,@fail_slots,@del_slots);
                 my $courseopt=&Apache::lonnet::get_courseresdata($cnum,$cdom);
@@ -2158,7 +2157,7 @@ sub assessparms {
                 $needsrelease =
                     $Apache::lonnet::needsrelease{'parameter:type:'.$values[$i]};
                 if ($needsrelease) {
-                    unless ($got_chostname) { 
+                    unless ($got_chostname) {
                         ($chostname,$cmajor,$cminor) = &questiontype_release_vars();
                         $got_chostname = 1;
                     }
@@ -3123,6 +3122,13 @@ my %strings =
                  [ 'surveycred', 'Survey (credit for submission)']],
      );
 
+sub standard_string_options {
+    my ($string_type) = @_;
+    if (ref($strings{$string_type}) eq 'ARRAY') {
+        return $strings{$string_type};
+    }
+    return;
+}
 
 sub string_selector {
     my ($thistype, $thiskey, $showval) = @_;