--- loncom/misc/refresh_courseids_db.pl	2013/05/27 17:24:11	1.15
+++ loncom/misc/refresh_courseids_db.pl	2013/06/26 21:22:42	1.16
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 # The LearningOnline Network
 #
-# $Id: refresh_courseids_db.pl,v 1.15 2013/05/27 17:24:11 bisitz Exp $
+# $Id: refresh_courseids_db.pl,v 1.16 2013/06/26 21:22:42 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -376,6 +376,13 @@ sub parameter_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 = '';
+                            }
+                        }
                         if (grep(/^\Q$value\E$/,@{$checkparms{$item}})) {
                             my ($major,$minor) = split(/\./,$Apache::lonnet::needsrelease{'parameter:'.$item.':'.$value});
                             ($reqdmajor,$reqdminor) =