--- loncom/interface/loncommon.pm 2013/12/30 00:34:49 1.1168
+++ 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.1168 2013/12/30 00:34:49 raeburn Exp $
+# $Id: loncommon.pm,v 1.1170 2014/01/03 18:42:21 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -5228,10 +5228,11 @@ sub bodytag {
}
$bodytag .= qq|
$realm $dc_info
|;
- #don't show menus for public users
+ #if directed to not display the secondary menu, don't.
if ($args->{'no_secondary_menu'}) {
return $bodytag;
}
+ #don't show menus for public users
if (!$public){
$bodytag .= Apache::lonmenu::secondary_menu($httphost);
$bodytag .= Apache::lonmenu::serverform();
@@ -14005,6 +14006,9 @@ sub construct_course {
'categories',
'internal.uniquecode'],
$$crsudom,$$crsunum);
+ if ($args->{'textbook'}) {
+ $cenv{'internal.textbook'} = $args->{'textbook'};
+ }
}
#