--- loncom/interface/loncommon.pm 2005/05/30 19:50:43 1.263 +++ loncom/interface/loncommon.pm 2005/06/06 19:51:05 1.266 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common routines # -# $Id: loncommon.pm,v 1.263 2005/05/30 19:50:43 www Exp $ +# $Id: loncommon.pm,v 1.266 2005/06/06 19:51:05 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -673,7 +673,6 @@ sub help_open_menu { foreach (\$color,\$function,\$topic,\$component_help,\$faq,\$bug,\$origurl) { $$_ = &Apache::lonnet::escape($$_); } - if (!$stayOnPage) { $link = "javascript:helpMenu('open')"; } else { @@ -684,8 +683,8 @@ sub help_open_menu { my $template; if ($text ne "") { $template .= - "". - "
$text"; + "". + "
$text"; } my $nothing=&Apache::lonhtmlcommon::javascript_nothing(); my $html=&Apache::lonxml::xmlbegin(); @@ -713,9 +712,9 @@ function helpMenu(target) { return; } function writeHelp(caller) { - caller.document.write('$htmlLON-CAPA Help Menu') - caller.document.write("") - caller.document.write("") + caller.document.writeln('$htmlLON-CAPA Help Menu') + caller.document.writeln("") + caller.document.writeln("") caller.document.close() caller.focus() } @@ -2001,7 +2000,51 @@ sub track_student_link { return qq{$linktext}; } +# --------------------------------------------------------- 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{$linktext}; +} + +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{$linktext}; +} =pod