--- loncom/interface/loncommon.pm 2003/02/25 21:54:14 1.85 +++ loncom/interface/loncommon.pm 2003/03/03 13:03:58 1.86 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common routines # -# $Id: loncommon.pm,v 1.85 2003/02/25 21:54:14 albertel Exp $ +# $Id: loncommon.pm,v 1.86 2003/03/03 13:03:58 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1530,6 +1530,8 @@ Inputs: $addentries, extra parameters for the tag. $bodyonly, if defined, only return the tag. $domain, if defined, force a given domain. + $forcereg, if page should register as content page (relevant for + text interface only) Returns: A uniform header for LON-CAPA web pages. If $bodyonly is nonzero, a string containing a tag will be returned. @@ -1543,7 +1545,7 @@ other decorations will be returned. ############################################### sub bodytag { - my ($title,$function,$addentries,$bodyonly,$domain)=@_; + my ($title,$function,$addentries,$bodyonly,$domain,$forcereg)=@_; unless ($function) { $function='student'; if ($ENV{'request.role'}=~/^(cc|in|ta|ep)/) { @@ -1587,7 +1589,8 @@ END if ($bodyonly) { return $bodytag; } elsif ($ENV{'browser.interface'} eq 'textual') { - return $bodytag.&Apache::lonmenu::menubuttons(undef,'web'). + return $bodytag.&Apache::lonmenu::menubuttons($forcereg,'web', + $forcereg). '

LON-CAPA: '.$title.'

'; } else { return(<