Diff for /loncom/interface/lonbulletin.pm between versions 1.34 and 1.35

version 1.34, 2006/03/21 21:01:22 version 1.35, 2006/04/10 19:59:53
Line 76  sub handler { Line 76  sub handler {
     &Apache::loncommon::get_unprocessed_cgi      &Apache::loncommon::get_unprocessed_cgi
                 ($ENV{'QUERY_STRING'},['forcestudent','forceedit','register','origpage']);                  ($ENV{'QUERY_STRING'},['forcestudent','forceedit','register','origpage']);
 # ----------------------------------------------------- Force menu registration  # ----------------------------------------------------- Force menu registration
     my $addentries='';      my %addentries;
     if ($env{'form.register'}) {      if ($env{'form.origpage'}) {
        $addentries=' onLoad="'.&Apache::lonmenu::loadevents();   $addentries{'onload'} = "document.location='#newpost';";
        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  # --------------------------------------------------------------- Force Student
     my $forcestudent='';      my $forcestudent='';
Line 101  sub handler { Line 94  sub handler {
  my $start_page =   my $start_page =
     &Apache::loncommon::start_page("Bulletin Board/Discussion",undef,      &Apache::loncommon::start_page("Bulletin Board/Discussion",undef,
    {'function'       => $forcestudent,     {'function'       => $forcestudent,
     'add_entries'    => $addentries,      'add_entries'    => \%addentries,
     'domain'         => $dom,      'domain'         => $dom,
     'force_register' =>      'force_register' =>
  $env{'form.register'}});   $env{'form.register'}});

Removed from v.1.34  
changed lines
  Added in v.1.35


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>