--- loncom/interface/loncommon.pm	2013/12/30 02:15:02	1.1075.2.62
+++ loncom/interface/loncommon.pm	2014/01/03 20:04:35	1.1075.2.63
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.1075.2.62 2013/12/30 02:15:02 raeburn Exp $
+# $Id: loncommon.pm,v 1.1075.2.63 2014/01/03 20:04:35 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -14004,6 +14004,9 @@ sub construct_course {
                    'categories',
                    'internal.uniquecode'],
                    $$crsudom,$$crsunum);
+        if ($args->{'textbook'}) {
+            $cenv{'internal.textbook'} = $args->{'textbook'};
+        }
     }
 
 #