--- loncom/interface/lonparmset.pm	2010/12/21 14:14:55	1.504
+++ loncom/interface/lonparmset.pm	2010/12/24 16:48:46	1.505
@@ -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 2010/12/24 16:48:46 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2123,7 +2123,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 +2158,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 +3123,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) = @_;