[LON-CAPA-cvs] cvs: loncom(version_2_11_X) /interface courseprefs.pm

[raeburn]

raeburn		Thu Jun 27 03:09:17 2013 EDT

  Modified files:              (Branch: version_2_11_X)
    /loncom/interface	courseprefs.pm 
  Log:
  - For 2.11
    - Backport 1.59.
  
  
Index: loncom/interface/courseprefs.pm
diff -u loncom/interface/courseprefs.pm:1.49.2.8 loncom/interface/courseprefs.pm:1.49.2.9
--- loncom/interface/courseprefs.pm:1.49.2.8	Thu May 23 14:22:29 2013
+++ loncom/interface/courseprefs.pm	Thu Jun 27 03:09:17 2013
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set configuration settings for a course
 #
-# $Id: courseprefs.pm,v 1.49.2.8 2013/05/23 14:22:29 raeburn Exp $
+# $Id: courseprefs.pm,v 1.49.2.9 2013/06/27 03:09:17 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2239,6 +2239,13 @@
                 if ($key =~ /(\Q$item\E)$/) {
                      if (ref($checkparms{$item}) eq 'ARRAY') {
                          my $value = $resourcedata->{$key};
+                         if ($item eq 'examcode') {
+                             if (&Apache::lonnet::validCODE($value)) {
+                                 $value = 'valid';
+                             } else {
+                                 $value = '';
+                             }
+                         }
                          my ($middle,$scope,$which,$level,$map,$resource);
                          if (grep(/^\Q$value\E$/,@{$checkparms{$item}})) {
                              my $stdtype = &Apache::lonparmset::standard_parameter_types($item);