loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.446, 2006/08/18 20:24:54	version 1.448, 2006/08/30 19:36:49
Line 2109 sub noteswrapper {	Line 2109 sub noteswrapper {

sub aboutmewrapper {	sub aboutmewrapper {
my ($link,$username,$domain,$target)=@_;	my ($link,$username,$domain,$target)=@_;
	if (!defined($username) && !defined($domain)) {
	return;
	}
return '<a href="/adm/'.$domain.'/'.$username.'/aboutme"'.	return '<a href="/adm/'.$domain.'/'.$username.'/aboutme"'.
($target?' target="$target"':'').' title="'.&mt('View this users personal page').'">'.$link.'</a>';	($target?' target="$target"':'').' title="'.&mt('View this users personal page').'">'.$link.'</a>';
}	}
Line 2139 sub track_student_link {	Line 2142 sub track_student_link {
$target = '';	$target = '';
}	}
if ($start) { $link.='&start='.$start; }	if ($start) { $link.='&start='.$start; }
return qq{<a href="$link" title="$title" $target>$linktext</a>};
	return qq{<a href="$link" title="$title" $target>$linktext</a>}.
	&help_open_topic('View_recent_activity');
}	}

=pod	=pod
Line 3181 sub standard_css {	Line 3186 sub standard_css {

my $border = ($env{'browser.type'} eq 'explorer') ? '0px 2px 0px 2px'	my $border = ($env{'browser.type'} eq 'explorer') ? '0px 2px 0px 2px'
: '0px 3px 0px 4px';	: '0px 3px 0px 4px';

return <<END;	return <<END;
h1, h2, h3, th { font-family: $sans }	h1, h2, h3, th { font-family: $sans }
a:focus { color: red; background: yellow }	a:focus { color: red; background: yellow }