--- loncom/interface/loncommon.pm	2006/04/04 15:11:26	1.325
+++ loncom/interface/loncommon.pm	2006/04/07 21:56:00	1.327
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.325 2006/04/04 15:11:26 albertel Exp $
+# $Id: loncommon.pm,v 1.327 2006/04/07 21:56:00 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -58,7 +58,6 @@ use strict;
 use Apache::lonnet;
 use GDBM_File;
 use POSIX qw(strftime mktime);
-use Apache::Constants qw(:common :http :methods);
 use Apache::lonmenu();
 use Apache::lonlocal;
 use HTML::Entities;
@@ -2737,7 +2736,9 @@ Inputs:
 =item * $forcereg, if page should register as content page (relevant for 
             text interface only)
 
-=item * $customtitle, overrides the $title in some way ????
+=item * $customtitle, alternate text to use instead of $title
+                      in the title box that appears, this text
+                      is not auto translated like the $title is
 
 =item * $notopbar, if true, keep the 'what is this' info but remove the
                    navigational links
@@ -3082,6 +3083,9 @@ Inputs: $title - optional title for the
                                     a html attribute
                   force_register -> if is true will turn on the &bodytag()
                                     $forcereg arg
+                  body_title     -> alternate text to use instead of $title
+                                    in the title box that appears, this text
+                                    is not auto translated like the $title is
 
 =back
 
@@ -3104,7 +3108,7 @@ sub start_page {
 	&bodytag($title, 
 		 $args->{'function'},       $args->{'add_entries'},
 		 $args->{'only_body'},      $args->{'domain'},
-		 $args->{'force_register'}, undef,
+		 $args->{'force_register'}, $args->{'body_title'},
 		 $args->{'no_nav_bar'},     $args->{'bgcolor'});
     if ($args->{'js_ready'}) {
 	$result = &js_ready($result);
@@ -3197,7 +3201,7 @@ sub simple_error_page {
 	&Apache::loncommon::end_page();
     if (ref($r)) {
 	$r->print($page);
-	return OK;
+	return;
     }
     return $page;
 }