--- loncom/interface/loncommon.pm 2005/06/06 20:31:24 1.267 +++ loncom/interface/loncommon.pm 2005/06/30 17:56:28 1.268 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common routines # -# $Id: loncommon.pm,v 1.267 2005/06/06 20:31:24 www Exp $ +# $Id: loncommon.pm,v 1.268 2005/06/30 17:56:28 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1984,19 +1984,20 @@ sub syllabuswrapper { } sub track_student_link { - my ($linktext,$sname,$sdom,$target) = @_; - my $link ="/adm/trackstudent"; + my ($linktext,$sname,$sdom,$target,$start) = @_; + my $link ="/adm/trackstudent?"; my $title = 'View recent activity'; if (defined($sname) && $sname !~ /^\s*$/ && defined($sdom) && $sdom !~ /^\s*$/) { - $link .= "?selected_student=$sname:$sdom"; + $link .= "selected_student=$sname:$sdom"; $title .= ' of this student'; - } + } if (defined($target) && $target !~ /^\s*$/) { $target = qq{target="$target"}; } else { $target = ''; } + if ($start) { $link.='&start='.$start; } return qq{$linktext}; }