--- loncom/interface/loncommon.pm	2009/08/19 19:43:38	1.886
+++ loncom/interface/loncommon.pm	2009/08/28 22:47:07	1.887
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.886 2009/08/19 19:43:38 raeburn Exp $
+# $Id: loncommon.pm,v 1.887 2009/08/28 22:47:07 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2971,7 +2971,7 @@ sub syllabuswrapper {
 # -----------------------------------------------------------------------------
 
 sub track_student_link {
-    my ($linktext,$sname,$sdom,$target,$start) = @_;
+    my ($linktext,$sname,$sdom,$target,$start,$only_body) = @_;
     my $link ="/adm/trackstudent?";
     my $title = 'View recent activity';
     if (defined($sname) && $sname !~ /^\s*$/ &&
@@ -2985,6 +2985,7 @@ sub track_student_link {
         $target = '';
     }
     if ($start) { $link.='&start='.$start; }
+    if ($only_body) { $link .= '&only_body=1'; }
     $title = &mt($title);
     $linktext = &mt($linktext);
     return qq{<a href="$link" title="$title" $target>$linktext</a>}.