--- loncom/interface/loncommon.pm 2012/06/01 12:02:10 1.1075.2.7 +++ loncom/interface/loncommon.pm 2012/05/18 14:27:11 1.1076 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common routines # -# $Id: loncommon.pm,v 1.1075.2.7 2012/06/01 12:02:10 raeburn Exp $ +# $Id: loncommon.pm,v 1.1076 2012/05/18 14:27:11 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -5060,13 +5060,11 @@ sub bodytag { if ($env{'request.noversionuri'} =~ m{^/res/adm/pages/}) { - unless ($env{'request.noversionuri'} =~ m{/res/adm/pages/bookmarkmenu/}) { - if ($dc_info) { - $dc_info = qq|$dc_info|; - } - $bodytag .= qq|
|; - } + if ($dc_info) { + $dc_info = qq|$dc_info|; + } + $bodytag .= qq| |; return $bodytag; } @@ -5165,10 +5163,7 @@ i.e., $env{'internal.head.redirect'} exi sub endbodytag { my ($args) = @_; - my $endbodytag; - unless ((ref($args) eq 'HASH') && ($args->{'notbody'})) { - $endbodytag='