version 1.265, 2005/06/04 19:09:17
|
version 1.268, 2005/06/30 17:56:28
|
Line 1984 sub syllabuswrapper {
|
Line 1984 sub syllabuswrapper {
|
} |
} |
|
|
sub track_student_link { |
sub track_student_link { |
my ($linktext,$sname,$sdom,$target) = @_; |
my ($linktext,$sname,$sdom,$target,$start) = @_; |
my $link ="/adm/trackstudent"; |
my $link ="/adm/trackstudent?"; |
my $title = 'View recent activity'; |
my $title = 'View recent activity'; |
if (defined($sname) && $sname !~ /^\s*$/ && |
if (defined($sname) && $sname !~ /^\s*$/ && |
defined($sdom) && $sdom !~ /^\s*$/) { |
defined($sdom) && $sdom !~ /^\s*$/) { |
$link .= "?selected_student=$sname:$sdom"; |
$link .= "selected_student=$sname:$sdom"; |
$title .= ' of this student'; |
$title .= ' of this student'; |
} |
} |
if (defined($target) && $target !~ /^\s*$/) { |
if (defined($target) && $target !~ /^\s*$/) { |
$target = qq{target="$target"}; |
$target = qq{target="$target"}; |
} else { |
} else { |
$target = ''; |
$target = ''; |
} |
} |
|
if ($start) { $link.='&start='.$start; } |
return qq{<a href="$link" title="$title" $target>$linktext</a>}; |
return qq{<a href="$link" title="$title" $target>$linktext</a>}; |
} |
} |
|
|
|
|
|
|
=pod |
=pod |
|
|
=back |
=back |