--- loncom/interface/loncommon.pm 2006/08/22 17:15:19 1.447 +++ loncom/interface/loncommon.pm 2006/09/12 19:03:15 1.452 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common routines # -# $Id: loncommon.pm,v 1.447 2006/08/22 17:15:19 raeburn Exp $ +# $Id: loncommon.pm,v 1.452 2006/09/12 19:03:15 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; @@ -2142,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 @@ -3184,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);