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

[albertel]

albertel		Tue Apr 11 15:06:16 2006 EDT

  Modified files:              
    /loncom/interface	longroupchat.pm 
  Log:
  - start_page + frameset
  
  
Index: loncom/interface/longroupchat.pm
diff -u loncom/interface/longroupchat.pm:1.2 loncom/interface/longroupchat.pm:1.3
--- loncom/interface/longroupchat.pm:1.2	Wed Mar 29 16:14:23 2006
+++ loncom/interface/longroupchat.pm	Tue Apr 11 15:06:15 2006
@@ -49,16 +49,21 @@
         }
     }
     my $html = &Apache::lonxml::xmlbegin();
-    my $head = &Apache::loncommon::head($grouptitle);
+    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");
-$html
-$head
-<frameset border="0" rows="80,100,*">
+$start_page
 <frame name="chatacc" src="/adm/chatfetch?group=$group">
 <frame name="chatpost" src="/adm/chat?group=$group">
 <frame name="chatout" src="/adm/rat/empty.html">
-</frameset>
-</html>
+$end_page
 END
 
 }