--- loncom/interface/loncommon.pm	2013/12/25 09:52:42	1.1166
+++ loncom/interface/loncommon.pm	2013/12/25 20:43:46	1.1167
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.1166 2013/12/25 09:52:42 raeburn Exp $
+# $Id: loncommon.pm,v 1.1167 2013/12/25 20:43:46 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -14168,12 +14168,18 @@ sub construct_course {
     }
 
 #
-# course should have uniquecode (available to course requester).
+#  generate and store uniquecode (available to course requester), if course should have one.
 #
     if ($args->{'uniquecode'}) {
         my ($code,$error) = &make_unique_code($$crsudom,$$crsunum);
         if ($code) {
             $cenv{'internal.uniquecode'} = $code;
+            my %crsinfo =
+                &Apache::lonnet::courseiddump($$crsudom,'.',1,'.','.',$$crsunum,undef,undef,'.');
+            if (ref($crsinfo{$$crsudom.'_'.$$crsunum}) eq 'HASH') {
+                $crsinfo{$$crsudom.'_'.$$crsunum}{'uniquecode'} = $code;
+                my $putres = &Apache::lonnet::courseidput($$crsudom,\%crsinfo,$crsuhome,'notime');
+            } 
             if (ref($coderef)) {
                 $$coderef = $code;
             }