--- loncom/interface/spreadsheet/lonspreadsheet.pm	2003/06/19 16:04:06	1.13
+++ loncom/interface/spreadsheet/lonspreadsheet.pm	2003/06/20 16:55:46	1.14
@@ -1,5 +1,5 @@
 #
-# $Id: lonspreadsheet.pm,v 1.13 2003/06/19 16:04:06 matthew Exp $
+# $Id: lonspreadsheet.pm,v 1.14 2003/06/20 16:55:46 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -238,13 +238,6 @@ sub handler {
         $name   = $ENV{'form.sname'};
         $domain = $ENV{'form.sdomain'};
     }
-    #
-    # Open page, try to prevent browser cache.
-    #
-    $r->content_type('text/html');
-    $r->header_out('Cache-control','no-cache');
-    $r->header_out('Pragma','no-cache');
-    $r->send_http_header;
     ##
     ## Check permissions
     my $allowed_to_edit = &Apache::lonnet::allowed('mgr',
@@ -265,10 +258,10 @@ sub handler {
     # if they are not requesting their own.
     if ($sheettype eq 'classcalc') {
         if (! $allowed_to_view) {
-            $r->print('<h1>Access Permission Denied</h1>'.
-                      '</form></body></html>');
-            return OK;
-        }
+	    $ENV{'user.error.msg'}=
+		$r->uri.":vgr:0:0:Access Permission Denied";
+	    return HTTP_NOT_ACCEPTABLE; 
+	}
     }
     if ((($name   ne $ENV{'user.name'} ) ||
          ($domain ne $ENV{'user.domain'})) && $sheettype ne 'classcalc') {
@@ -278,14 +271,23 @@ sub handler {
             my $stu_sec = &Apache::lonnet::usection($domain,$name,
                                                     $ENV{'request.course.id'});
             if ($stu_sec ne $ENV{'request.course.sec'}) {
-                $r->print
-                    ('<h1>The student requested is not in your section.</h1>'.
-                     '</form></body></html>');
-                return OK;
+		$ENV{'user.error.msg'}=
+		    $r->uri.":vgr:0:0:Requested student not in your section.";
+		return HTTP_NOT_ACCEPTABLE; 
             }
         }
     }
 
+# ================================================================== Good to go
+
+    #
+    # Open page, try to prevent browser cache.
+    #
+    $r->content_type('text/html');
+    $r->header_out('Cache-control','no-cache');
+    $r->header_out('Pragma','no-cache');
+    $r->send_http_header;
+
     #
     # Header....
     #