[BACK]Return to lonbulletin.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

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

version 1.33, 2006/03/21 20:41:40 version 1.35, 2006/04/10 19:59:53
Line 50  sub handler { Line 50  sub handler {
     my (undef,undef,undef,undef,$marker)=split(/\//,$r->uri);      my (undef,undef,undef,undef,$marker)=split(/\//,$r->uri);
 # Is this even in a course?  # Is this even in a course?
     if (!$env{'request.course.id'}) {      if (!$env{'request.course.id'}) {
  $r->print(&Apache::loncommon::start_page('Not in a course').   &Apache::loncommon::simple_error_page($r,'Not in a course',
   &mt('Not in a course').        'Not in a course');
   &Apache::loncommon::end_page());  
         return OK;          return OK;
     }      }
   
     $marker=~s/\D//g;      $marker=~s/\D//g;
   
     if (!$marker) {      if (!$marker) {
  $r->print(&Apache::loncommon::start_page('Invalid Call').   &Apache::loncommon::simple_error_page($r,'Invalid Call',
   &mt('Invalid Call').        'Invalid Call');
   &Apache::loncommon::end_page());  
         return OK;          return OK;
     }      }
   
Line 78  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 103  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.33  
changed lines
  Added in v.1.35

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