--- loncom/interface/lonmenu.pm 2006/03/16 22:12:17 1.166 +++ loncom/interface/lonmenu.pm 2006/04/07 21:56:01 1.170 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines to control the menu # -# $Id: lonmenu.pm,v 1.166 2006/03/16 22:12:17 albertel Exp $ +# $Id: lonmenu.pm,v 1.170 2006/04/07 21:56:01 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -279,9 +279,9 @@ $groups Logo LON-CAPA -$form +$form @@ -1177,12 +1177,18 @@ function catalog_info() { function chat_win() { lonchat=window.open('/res/adm/pages/chatroom.html',"LONchat",'height=320,width=280,resizable=yes,location=no,menubar=no,toolbar=no'); } + +function group_chat(group) { + var url = '/adm/groupchat?group='+group; + var winName = 'LONchat_'+group; + grpchat=window.open(url,winName,'height=320,width=280,resizable=yes,location=no,menubar=no,toolbar=no'); +} ENDUTILITY } sub serverform { return(< +
@@ -1193,14 +1199,14 @@ ENDSERVERFORM sub constspaceform { return(< + -
+
-
+ @@ -1264,7 +1270,7 @@ ENDSCRIPT $env{'browser.interface'}='faketextual'; $env{'environment.remote'}='off'; } - $r->print(&Apache::loncommon::start_page('Main Menu')); + $r->print(&Apache::loncommon::start_page('Main Menu',$script_tag)); $r->print(''.&inlinemenu().'
'.$form); $r->print(&Apache::loncommon::end_page()); return OK;