--- loncom/interface/loncommon.pm 2009/05/28 12:39:23 1.830
+++ loncom/interface/loncommon.pm 2009/05/28 15:19:54 1.831
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# a pile of common routines
#
-# $Id: loncommon.pm,v 1.830 2009/05/28 12:39:23 bisitz Exp $
+# $Id: loncommon.pm,v 1.831 2009/05/28 15:19:54 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -4274,10 +4274,6 @@ Inputs:
=item * $forcereg, if page should register as content page (relevant for
text interface only)
-=item * $customtitle, alternate text to use instead of $title
- in the title box that appears, this text
- is not auto translated like the $title is
-
=item * $no_nav_bar, if true, keep the 'what is this' info but remove the
navigational links
@@ -4302,7 +4298,7 @@ other decorations will be returned.
=cut
sub bodytag {
- my ($title,$function,$addentries,$bodyonly,$domain,$forcereg,$customtitle,
+ my ($title,$function,$addentries,$bodyonly,$domain,$forcereg,
$no_nav_bar,$bgcolor,$no_inline_link,$args)=@_;
if (!$args->{'no_auto_mt_title'}) { $title = &mt($title); }
@@ -4373,9 +4369,6 @@ $realm
ENDROLE
my $titleinfo = '
'.$title.'
';
- if ($customtitle) {
- $titleinfo = $customtitle;
- }
#
# Extra info if you are the DC
my $dc_info = '';
@@ -4394,7 +4387,7 @@ ENDROLE
$forcereg=1;
}
- if (!$customtitle && $env{'request.state'} eq 'construct') {
+ if ($env{'request.state'} eq 'construct') {
$titleinfo = &CSTR_pageheader(); #FIXME: Will be removed once all scripts have their own calls
}
@@ -6488,9 +6481,6 @@ $args - additional optional args support
a html attribute
force_register -> if is true will turn on the &bodytag()
$forcereg arg
- body_title -> alternate text to use instead of $title
- in the title box that appears, this text
- is not auto translated like the $title is
frameset -> if true will start with a