--- loncom/interface/loncommon.pm	2005/06/04 19:09:17	1.265
+++ 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.265 2005/06/04 19:09:17 albertel Exp $
+# $Id: loncommon.pm,v 1.266 2005/06/06 19:51:05 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -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