--- loncom/misc/refresh_courseids_db.pl	2012/07/21 21:20:25	1.13
+++ 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.13 2012/07/21 21:20:25 raeburn Exp $
+# $Id: refresh_courseids_db.pl,v 1.16 2013/06/26 21:22:42 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -85,6 +85,8 @@ my @ids=&Apache::lonnet::current_machine
 $env{'allowed.bre'} = 'F';
 
 foreach my $dom (@domains) {
+    $env{'user.domain'} = $dom;
+    $env{'user.name'} = &Apache::lonnet::get_domainconfiguser($dom);
     my %courseshash;
     my %currhash = &Apache::lonnet::courseiddump($dom,'.',1,'.','.','.',1,\@ids,'.');
     my %lastaccess = &Apache::lonnet::courselastaccess($dom,undef,\@ids);
@@ -101,6 +103,8 @@ foreach my $dom (@domains) {
             }
         }
     }
+    delete($env{'user.name'});
+    delete($env{'user.domain'});
 }
 
 delete($env{'allowed.bre'});
@@ -372,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) =