--- loncom/interface/loncommon.pm 2006/08/18 20:24:54 1.446 +++ loncom/interface/loncommon.pm 2006/09/06 19:08:33 1.450 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common routines # -# $Id: loncommon.pm,v 1.446 2006/08/18 20:24:54 albertel Exp $ +# $Id: loncommon.pm,v 1.450 2006/09/06 19:08:33 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -729,9 +729,7 @@ 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 $output .= <<"ENDOUTPUT"; ENDOUTPUT return $output; @@ -2109,6 +2107,9 @@ sub noteswrapper { sub aboutmewrapper { my ($link,$username,$domain,$target)=@_; + if (!defined($username) && !defined($domain)) { + return; + } return ''.$link.''; } @@ -2139,7 +2140,9 @@ sub track_student_link { $target = ''; } if ($start) { $link.='&start='.$start; } - return qq{$linktext}; + + return qq{$linktext}. + &help_open_topic('View_recent_activity'); } =pod @@ -3181,6 +3184,7 @@ sub standard_css { my $border = ($env{'browser.type'} eq 'explorer') ? '0px 2px 0px 2px' : '0px 3px 0px 4px'; + return <{'bgcolor'} || &designparm($function.'.pgbg',$domain); my $url = join(':',$env{'user.name'},$env{'user.domain'}, #time(), + $Apache::lonnet::perlvar{'lonVersion'}, + $env{'environment.color.timestamp'}, $function,$domain,$bgcolor);