--- 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);