version 1.265, 2005/06/04 19:09:17
|
version 1.266, 2005/06/06 19:51:05
|
Line 2000 sub track_student_link {
|
Line 2000 sub track_student_link {
|
return qq{<a href="$link" title="$title" $target>$linktext</a>}; |
return qq{<a href="$link" title="$title" $target>$linktext</a>}; |
} |
} |
|
|
|
# --------------------------------------------------------- Links into grading, etc |
|
|
|
sub parm_direct_link { |
|
my ($linktext,$sname,$sdom,$symb,$target)=@_; |
|
unless ($sname) { return ''; } |
|
unless ($sdom) { return ''; } |
|
unless ($symb) { return ''; } |
|
|
|
my $link ="/adm/parmset"; |
|
my $title = 'Change parameters'; |
|
if (defined($sname) && $sname !~ /^\s*$/ && |
|
defined($sdom) && $sdom !~ /^\s*$/) { |
|
$link .= "?uname=$sname&udom=$sdom&action=settable&symb=". |
|
&Apache::lonnet::escape($symb); |
|
} |
|
if (defined($target) && $target !~ /^\s*$/) { |
|
$target = qq{target="$target"}; |
|
} else { |
|
$target = ''; |
|
} |
|
return qq{<a href="$link" title="$title" $target>$linktext</a>}; |
|
} |
|
|
|
sub grds_direct_link { |
|
my ($linktext,$sname,$sdom,$symb,$target)=@_; |
|
unless ($sname) { return ''; } |
|
unless ($sdom) { return ''; } |
|
unless ($symb) { return ''; } |
|
my $url=(&Apache::lonnet::decode_symb($symb))[2]; |
|
my $link ="/adm/grades"; |
|
my $title = 'Change grades'; |
|
if (defined($sname) && $sname !~ /^\s*$/ && |
|
defined($sdom) && $sdom !~ /^\s*$/) { |
|
$link .= "?stuinfo=$sname:$sdom&symb=". |
|
&Apache::lonnet::escape($symb)."&url=". |
|
&Apache::lonnet::escape($url). |
|
"&showgrading=yes&lastsub=all&vProp=yes&vAns=yes&command=processGroup"; |
|
} |
|
if (defined($target) && $target !~ /^\s*$/) { |
|
$target = qq{target="$target"}; |
|
} else { |
|
$target = ''; |
|
} |
|
return qq{<a href="$link" title="$title" $target>$linktext</a>}; |
|
} |
|
|
=pod |
=pod |
|
|