[LON-CAPA-cvs] cvs: loncom /automation batchcreatecourse.pm /interface loncommon.pm

[raeburn]

raeburn		Fri Jan  3 18:42:22 2014 EDT

  Modified files:              
    /loncom/automation	batchcreatecourse.pm 
    /loncom/interface	loncommon.pm 
  Log:
  - Store title of textbook cloned for 'textbook' courses (as internal.textbook)
    in course's environment.db.
  
  
Index: loncom/automation/batchcreatecourse.pm
diff -u loncom/automation/batchcreatecourse.pm:1.39 loncom/automation/batchcreatecourse.pm:1.40
--- loncom/automation/batchcreatecourse.pm:1.39	Wed Dec 25 09:52:47 2013
+++ loncom/automation/batchcreatecourse.pm	Fri Jan  3 18:42:16 2014
@@ -1,5 +1,5 @@
 #
-# $Id: batchcreatecourse.pm,v 1.39 2013/12/25 09:52:47 raeburn Exp $
+# $Id: batchcreatecourse.pm,v 1.40 2014/01/03 18:42:16 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -542,6 +542,9 @@
                openall => $details->{'openall'},
                firstres => $firstres
                };
+        if ($details->{'textbook'}) {
+            $courseargs->{'textbook'} = $details->{'textbook'};
+        }
         my %host_servers = &Apache::lonnet::get_servers($cdom,'library');
         if (! exists($host_servers{$details->{'coursehome'}})) {
             $$logmsg .= &mt('Invalid home server for course').': '.$details->{'coursehome'};
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.1169 loncom/interface/loncommon.pm:1.1170
--- loncom/interface/loncommon.pm:1.1169	Mon Dec 30 01:56:41 2013
+++ loncom/interface/loncommon.pm	Fri Jan  3 18:42:21 2014
@@ -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 @@
                    'categories',
                    'internal.uniquecode'],
                    $$crsudom,$$crsunum);
+        if ($args->{'textbook'}) {
+            $cenv{'internal.textbook'} = $args->{'textbook'};
+        }
     }
 
 #