--- loncom/interface/loncommon.pm	2005/06/03 15:47:29	1.264
+++ 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.264 2005/06/03 15:47:29 www Exp $
+# $Id: loncommon.pm,v 1.266 2005/06/06 19:51:05 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -683,8 +683,8 @@ sub help_open_menu {
     my $template;
     if ($text ne "") {
 	$template .= 
-  "<table bgcolor='#773311' cellspacing='1' cellpadding='1' border='0'><tr>".
-  "<td bgcolor='#886622'><a href=\"$link\"><font color='#FFFFFF' size='2'>$text</font></a>";
+  "<table bgcolor='#CC3300' cellspacing='1' cellpadding='1' border='0'><tr>".
+  "<td bgcolor='#CC6600'><a href=\"$link\"><font color='#FFFFFF' size='2'>$text</font></a>";
     }
     my $nothing=&Apache::lonhtmlcommon::javascript_nothing();
     my $html=&Apache::lonxml::xmlbegin();
@@ -2000,7 +2000,51 @@ sub track_student_link {
     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