loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.448, 2006/08/30 19:36:49	version 1.450, 2006/09/06 19:08:33
Line 729 sub update_help_link {	Line 729 sub update_help_link {
my $banner_link = "/adm/helpmenu?page=banner&topic=$topic&component_help=$component_help&faq=$faq&bug=$bug&origurl=$origurl&stamp=$timestamp&stayonpage=$stayOnPage";	my $banner_link = "/adm/helpmenu?page=banner&topic=$topic&component_help=$component_help&faq=$faq&bug=$bug&origurl=$origurl&stamp=$timestamp&stayonpage=$stayOnPage";
my $output .= <<"ENDOUTPUT";	my $output .= <<"ENDOUTPUT";
<script type="text/javascript">	<script type="text/javascript">
// <!-- BEGIN LON-CAPA Internal
banner_link = '$banner_link';	banner_link = '$banner_link';
// END LON-CAPA Internal -->
</script>	</script>
ENDOUTPUT	ENDOUTPUT
return $output;	return $output;
Line 3705 sub headtag {	Line 3703 sub headtag {
my $bgcolor = $args->{'bgcolor'} \|\| &designparm($function.'.pgbg',$domain);	my $bgcolor = $args->{'bgcolor'} \|\| &designparm($function.'.pgbg',$domain);
my $url = join(':',$env{'user.name'},$env{'user.domain'},	my $url = join(':',$env{'user.name'},$env{'user.domain'},
#time(),	#time(),
	$Apache::lonnet::perlvar{'lonVersion'},

$env{'environment.color.timestamp'},	$env{'environment.color.timestamp'},
$function,$domain,$bgcolor);	$function,$domain,$bgcolor);