--- loncom/interface/loncommon.pm	2013/12/30 01:56:41	1.1169
+++ loncom/interface/loncommon.pm	2014/01/03 18:42:21	1.1170
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.1169 2013/12/30 01:56:41 raeburn Exp $
+# $Id: loncommon.pm,v 1.1170 2014/01/03 18:42:21 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -14006,6 +14006,9 @@ sub construct_course {
                    'categories',
                    'internal.uniquecode'],
                    $$crsudom,$$crsunum);
+        if ($args->{'textbook'}) {
+            $cenv{'internal.textbook'} = $args->{'textbook'};
+        }
     }
 
 #