[LON-CAPA-cvs] cvs: loncom /interface longroupchat.pm

albertel lon-capa-cvs@mail.lon-capa.org
Wed, 29 Mar 2006 21:14:24 -0000 

albertel		Wed Mar 29 16:14:24 2006 EDT

  Modified files:              
    /loncom/interface	longroupchat.pm 
  Log:
  - style police
  
  
Index: loncom/interface/longroupchat.pm
diff -u loncom/interface/longroupchat.pm:1.1 loncom/interface/longroupchat.pm:1.2
--- loncom/interface/longroupchat.pm:1.1	Wed Mar 29 14:56:28 2006
+++ loncom/interface/longroupchat.pm	Wed Mar 29 16:14:23 2006
@@ -31,7 +31,7 @@
 use Apache::lonlocal;
 
 sub handler {
-    my $r = shift;
+    my ($r) = @_;
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['group']);
     my $group = $env{'form.group'};
     my $grouptitle;
@@ -40,19 +40,19 @@
         my $cdom=$env{'course.'.$env{'request.course.id'}.'.domain'};
         my %curr_groups;
         my $numgroups = &Apache::loncommon::coursegroups(\%curr_groups,$cdom,
-                        $cnum,$group);
+							 $cnum,$group);
         if ($numgroups) {
-            my %group_info =  &Apache::loncommon::get_group_settings(
-                              $curr_groups{$group});
-            $grouptitle = &mt('Group Chat:').' '.&Apache::lonnet::unescape(
-                          $group_info{description});
+            my %group_info = 
+		&Apache::loncommon::get_group_settings($curr_groups{$group});
+            $grouptitle = &mt('Group Chat:').' '.
+		&Apache::lonnet::unescape($group_info{description});
         }
     }
+    my $html = &Apache::lonxml::xmlbegin();
+    my $head = &Apache::loncommon::head($grouptitle);
     $r->print(<<"END");
-<html>
-<head>
-<title>$grouptitle</title>
-</head>
+$html
+$head
 <frameset border="0" rows="80,100,*">
 <frame name="chatacc" src="/adm/chatfetch?group=$group">
 <frame name="chatpost" src="/adm/chat?group=$group">