--- 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'}; + } } #