--- loncom/interface/courseprefs.pm	2013/05/23 14:22:29	1.49.2.8
+++ loncom/interface/courseprefs.pm	2013/06/27 03:09:17	1.49.2.9
@@ -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 @@ sub display_loncaparev_constraints {
                 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);