--- loncom/interface/lonbulletin.pm	2004/07/27 23:35:34	1.25
+++ loncom/interface/lonbulletin.pm	2004/07/28 18:53:38	1.26
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Bulletin Board Handler
 #
-# $Id: lonbulletin.pm,v 1.25 2004/07/27 23:35:34 www Exp $
+# $Id: lonbulletin.pm,v 1.26 2004/07/28 18:53:38 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -43,8 +43,6 @@ sub handler {
     return OK if $r->header_only;
     my $target=$ENV{'form.grade_target'};
 
-
-#    &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['previous']);
 # ------------------------------------------------------------ Print the screen
     if ($target ne 'tex') {
 	$r->print(<<ENDDOCUMENT);
@@ -80,13 +78,18 @@ ENDDOCUMENT
 
 # ------------------------------------------------------------ Get Query String
     &Apache::loncommon::get_unprocessed_cgi
-                ($ENV{'QUERY_STRING'},['forcestudent','forceedit','register']);
+                ($ENV{'QUERY_STRING'},['forcestudent','forceedit','register','origpage']);
 # ----------------------------------------------------- Force menu registration
     my $addentries='';
     if ($ENV{'form.register'}) {
-       $addentries=' onLoad="'.&Apache::lonmenu::loadevents().
-	   '" onUnload="'.&Apache::lonmenu::unloadevents().'"';
+       $addentries=' onLoad="'.&Apache::lonmenu::loadevents();
+       if ($ENV{'form.origpage'}) {
+           $addentries .= "document.location='#newpost';";
+       }
+       $addentries .= '" onUnload="'.&Apache::lonmenu::unloadevents().'"';
        $r->print(&Apache::lonmenu::registerurl(1));
+    } elsif ($ENV{'form.origpage'}) {
+         $addentries = "onLoad=\"document.location='#newpost';\"";
     }
 # --------------------------------------------------------------- Force Student
     my $forcestudent='';