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

Diff for /loncom/interface/lonchatfetch.pm between versions 1.28 and 1.31

version 1.28, 2006/06/28 23:56:09 version 1.31, 2006/07/17 16:10:57
Line 50  sub handler { Line 50  sub handler {
         $group = $env{'form.group'};          $group = $env{'form.group'};
         if ((! &Apache::lonnet::allowed('pgc',$env{'request.course.id'}.'/'.          if ((! &Apache::lonnet::allowed('pgc',$env{'request.course.id'}.'/'.
        $group)) &&         $group)) &&
            (! &Apache::lonnet::allowed('vcg',$env{'request.course.id'}))) {             (! &Apache::lonnet::allowed('vcg',$env{'request.course.id'}.
            ($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:'')))) {
             return HTTP_NOT_ACCEPTABLE;              return HTTP_NOT_ACCEPTABLE;
         }          }
         my %curr_groups = &Apache::longroup::coursegroups($cdom,$cnum,$group);          my %curr_groups = &Apache::longroup::coursegroups($cdom,$cnum,$group);
Line 108  sub handler { Line 109  sub handler {
    {'only_body' => 1,     {'only_body' => 1,
     'bgcolor'   => '#FFFFFF',      'bgcolor'   => '#FFFFFF',
     'js_ready'  => 1,});      'js_ready'  => 1,});
  # removing the CSS reference for now  
  # see BUG# 4839  
         # to fix, need to either write the whole webpage to the bottom frame  
         # everytime or store the page in a js variable somewhere.  
  # although in tryng both of these ideas, the .scroll to   
  # the bottom seems to fail.  
  $newstuff =~ s|(<link.*?/>)||;  
     }      }
     my @participants=();      my @participants=();
     foreach (@entries) {      foreach (@entries) {
Line 183  sub handler { Line 177  sub handler {
     }      }
     my $start_page =       my $start_page = 
  &Apache::loncommon::start_page('Chat',undef,   &Apache::loncommon::start_page('Chat',undef,
        {'redirect'  => [5,$refresh_cmd],         {'redirect'  => [5,$refresh_cmd,1],
  'only_body' => 1,});   'only_body' => 1,});
     my $end_page = &Apache::loncommon::end_page();      my $end_page = &Apache::loncommon::end_page();
     $r->print(<<ENDDOCUMENT);      $r->print(<<ENDDOCUMENT);
Removed from v.1.28  
changed lines
  Added in v.1.31

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