--- loncom/interface/spreadsheet/studentcalc.pm	2003/06/23 19:58:18	1.12
+++ loncom/interface/spreadsheet/studentcalc.pm	2003/07/16 15:57:32	1.14
@@ -1,5 +1,5 @@
 #
-# $Id: studentcalc.pm,v 1.12 2003/06/23 19:58:18 matthew Exp $
+# $Id: studentcalc.pm,v 1.14 2003/07/16 15:57:32 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -144,10 +144,28 @@ sub parent_link {
     return $link;
 }
 
+sub convenience_links {
+    my $self = shift;
+    my ($resource) = @_;
+    my $symb = &Apache::lonnet::escape($resource->{'symb'});
+    my $result = <<"END";
+<a href="/adm/grades?symb=$symb&command=submission" target="LONcatInfo">
+    <img src="/adm/lonMisc/subm_button.gif" border=0 />
+    </a>
+<a href="/adm/grades?symb=$symb&command=gradingmenu" target="LONcatInfo">
+    <img src="/adm/lonMisc/pgrd_button.gif" border=0 />
+    </a>
+<a href="/adm/parmset?symb=$symb" target="LONcatInfo">
+    <img src="/adm/lonMisc/pprm_button.gif" border=0 />
+    </a>
+END
+    return $result;
+}
+
 sub outsheet_html {
     my $self = shift;
     my ($r) = @_;
-    my $importcolor = '#FFFF66';
+    my $importcolor = '#FFFFAA';
     my $exportcolor = '#88FF88';
     ####################################
     # Get the list of assessment files #
@@ -208,7 +226,7 @@ END
         $tableheader =<<"END";
 </p><p>
 <table border="2">
-<tr><th>Row</th><th>Assessment</th>
+<tr><th>Row</th><th>&nbsp;</th><th>Assessment</th>
 END
     } else {
         $tableheader =<<"END";
@@ -242,6 +260,7 @@ END
             my $row_output = '<tr>';
             if ($editing_is_allowed) {
                 $row_output .= '<td>'.$rownum.'</td>';
+                $row_output .= '<td>'.$self->convenience_links($resource).'</td>';
                 $row_output .= '<td>'.
                     '<a href="/adm/assesscalc?sname='.$self->{'name'}.
                     '&sdomain='.$self->{'domain'}.