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

Diff for /loncom/interface/lonchat.pm between versions 1.12 and 1.15

version 1.12, 2006/03/29 19:56:28 version 1.15, 2006/07/17 16:10:57
Line 44  sub handler { Line 44  sub handler {
     if (defined($env{'form.group'})) {      if (defined($env{'form.group'})) {
         $group = $env{'form.group'};          $group = $env{'form.group'};
         $group_elem = '<input type="hidden" name="group" value="'.$group.'" />';           $group_elem = '<input type="hidden" name="group" value="'.$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'}.($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:'')))) {
             return HTTP_NOT_ACCEPTABLE;              return HTTP_NOT_ACCEPTABLE;
         }          }
     } else {      } else {
Line 61  sub handler { Line 62  sub handler {
     }      }
 # --------------------------------------------------- Print login screen header  # --------------------------------------------------- Print login screen header
     my $latexHelp = Apache::loncommon::helpLatexCheatsheet();      my $latexHelp = Apache::loncommon::helpLatexCheatsheet();
     my $loaditems = 'onLoad="this.document.chatentry.newchat.focus();"';      my %loaditems = (onload => 'this.document.chatentry.newchat.focus();');
     my $start_page =       my $start_page = 
  &Apache::loncommon::start_page('Chat',undef,   &Apache::loncommon::start_page('Chat',undef,
        {'only_body'   => 1,         {'only_body'   => 1,
  'add_entries' => $loaditems,});   'add_entries' => \%loaditems,});
     my $end_page = &Apache::loncommon::end_page();      my $end_page = &Apache::loncommon::end_page();
     $r->print(<<ENDDOCUMENT);      $r->print(<<ENDDOCUMENT);
 $start_page  $start_page
Removed from v.1.12  
changed lines
  Added in v.1.15

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