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

Diff for /loncom/interface/longroupchat.pm between versions 1.1 and 1.4

version 1.1, 2006/03/29 19:56:28 version 1.4, 2006/04/13 20:56:54
Line 31  use Apache::loncommon; Line 31  use Apache::loncommon;
 use Apache::lonlocal;  use Apache::lonlocal;
   
 sub handler {  sub handler {
     my $r = shift;      my ($r) = @_;
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['group']);      &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['group']);
     my $group = $env{'form.group'};      my $group = $env{'form.group'};
     my $grouptitle;      my $grouptitle;
Line 40  sub handler { Line 40  sub handler {
         my $cdom=$env{'course.'.$env{'request.course.id'}.'.domain'};          my $cdom=$env{'course.'.$env{'request.course.id'}.'.domain'};
         my %curr_groups;          my %curr_groups;
         my $numgroups = &Apache::loncommon::coursegroups(\%curr_groups,$cdom,          my $numgroups = &Apache::loncommon::coursegroups(\%curr_groups,$cdom,
                         $cnum,$group);   $cnum,$group);
         if ($numgroups) {          if ($numgroups) {
             my %group_info =  &Apache::loncommon::get_group_settings(              my %group_info = 
                               $curr_groups{$group});   &Apache::loncommon::get_group_settings($curr_groups{$group});
             $grouptitle = &mt('Group Chat:').' '.&Apache::lonnet::unescape(              $grouptitle = &mt('Group Chat:').' '.
                           $group_info{description});   &Apache::lonnet::unescape($group_info{description});
         }          }
     }      }
   
       my $start_page =
    &Apache::loncommon::start_page($grouptitle,undef,
          {'frameset'    => 1,
    'add_entries' => {
       'rows'   => "80,100,*",
       'border' => "0"},});
       my $end_page =
    &Apache::loncommon::end_page({'frameset' => 1});
   
     $r->print(<<"END");      $r->print(<<"END");
 <html>  $start_page
 <head>  
 <title>$grouptitle</title>  
 </head>  
 <frameset border="0" rows="80,100,*">  
 <frame name="chatacc" src="/adm/chatfetch?group=$group">  <frame name="chatacc" src="/adm/chatfetch?group=$group">
 <frame name="chatpost" src="/adm/chat?group=$group">  <frame name="chatpost" src="/adm/chat?group=$group">
 <frame name="chatout" src="/adm/rat/empty.html">  <frame name="chatout" src="/adm/rat/empty.html">
 </frameset>  $end_page
 </html>  
 END  END
   
 }  }
Removed from v.1.1  
changed lines
  Added in v.1.4

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