loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.437, 2006/07/25 15:52:58	version 1.438, 2006/07/28 06:09:34
Line 2875 sub bodytag {	Line 2875 sub bodytag {
'alink' => &designparm($function.'.alink',$domain),	'alink' => &designparm($function.'.alink',$domain),
'vlink' => &designparm($function.'.vlink',$domain),	'vlink' => &designparm($function.'.vlink',$domain),
'link' => &designparm($function.'.link',$domain),);	'link' => &designparm($function.'.link',$domain),);
@$addentries{keys(%design)} = @design{keys(%design)};	@design{keys(%$addentries)} = @$addentries{keys(%$addentries)};

# role and realm	# role and realm
my ($role,$realm) = split(/\./,$env{'request.role'},2);	my ($role,$realm) = split(/\./,$env{'request.role'},2);
Line 2900 sub bodytag {	Line 2900 sub bodytag {
my $lonhttpdPort=$Apache::lonnet::perlvar{'lonhttpdPort'};	my $lonhttpdPort=$Apache::lonnet::perlvar{'lonhttpdPort'};
if (!defined($lonhttpdPort)) { $lonhttpdPort='8080'; }	if (!defined($lonhttpdPort)) { $lonhttpdPort='8080'; }

my $extra_body_attr = &make_attr_string($forcereg,$addentries);	my $extra_body_attr = &make_attr_string($forcereg,\%design);

# construct main body tag	# construct main body tag
my $bodytag = "<body $extra_body_attr>".	my $bodytag = "<body $extra_body_attr>".