--- loncom/interface/lonbulletin.pm	2004/07/27 23:35:34	1.25
+++ loncom/interface/lonbulletin.pm	2004/08/18 21:14:00	1.27
@@ -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.27 2004/08/18 21:14:00 albertel 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='';
@@ -109,7 +112,7 @@ ENDDOCUMENT
     if (($syllabus{'uploaded.lastmodified'}) && (!$forceedit)) {
  	$forcestudent='student';
     }
-
+    if ($target ne 'tex') { $r->print('<table><tr><td>'); }
       if ($forcestudent or $target eq 'tex') { $allowed=0; }
  
       if ($allowed) {
@@ -213,6 +216,7 @@ ENDDOCUMENT
     } else {
        $r->print('<p>'.&mt('No page information provided.').'</p>');
     }
+    if ($target ne 'tex') { $r->print('</td></tr></table>'); }
     if ($target ne 'tex') {
 	$r->print(&Apache::lonfeedback::list_discussion
 	           ('board','OPEN','bulletin___'.$marker.'___'.