--- loncom/interface/loncommon.pm	2006/03/21 20:36:15	1.317
+++ loncom/interface/loncommon.pm	2006/03/21 21:01:22	1.318
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.317 2006/03/21 20:36:15 albertel Exp $
+# $Id: loncommon.pm,v 1.318 2006/03/21 21:01:22 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3080,6 +3080,7 @@ Inputs: $title - optional title for the
 
 sub start_page {
     my ($title,$head_extra,$args) = @_;
+    #&Apache::lonnet::logthis("start_page ".join(':',caller(0)));
     my %head_args;
     if (defined($args->{'redirect'})) {
 	$head_args{'redirect'} = $args->{'redirect'};
@@ -3116,6 +3117,7 @@ Inputs:         $args - additional optio
 
 sub end_page {
     my ($args) = @_;
+    #&Apache::lonnet::logthis("end_page ".join(':',caller(0)));
     $env{'internal.end_page'}++;
     my $result = &endbodytag()."\n</html>";
     if ($args->{'js_ready'}) {
@@ -3138,11 +3140,13 @@ sub validate_page {
     if (  exists($env{'internal.start_page'})
 	  &&     $env{'internal.start_page'} > 1) {
 	&Apache::lonnet::logthis('start_page called multiple times '.
+				 $env{'internal.start_page'}.' '.
 				 $ENV{'request.filename'});
     }
     if (  exists($env{'internal.end_page'})
 	  &&     $env{'internal.end_page'} > 1) {
 	&Apache::lonnet::logthis('end_page called multiple times '.
+				 $env{'internal.end_page'}.' '.
 				 $env{'request.filename'});
     }
     if (     exists($env{'internal.start_page'})
@@ -3157,6 +3161,18 @@ sub validate_page {
     }
 }
 
+sub simple_error_page {
+    my ($r,$title,$msg) = @_;
+    my $page =
+	&Apache::loncommon::start_page($title).
+	&mt($msg).
+	&Apache::loncommon::end_page();
+    if (ref($r)) {
+	$r->print($page);
+	return;
+    }
+    return $page;
+}
 ###############################################
 
 =pod