version 1.29, 2005/05/20 17:00:40
|
version 1.31, 2006/04/08 06:59:34
|
Line 31 package Apache::loncommunicate;
|
Line 31 package Apache::loncommunicate;
|
|
|
use strict; |
use strict; |
use Apache::Constants qw(:common); |
use Apache::Constants qw(:common); |
use Apache::lonmsg(); |
use Apache::lonmsgdisplay(); |
use Apache::loncommon; |
use Apache::loncommon; |
use Apache::lonlocal; |
use Apache::lonlocal; |
use Apache::lonnet; |
use Apache::lonnet; |
Line 97 sub handler {
|
Line 97 sub handler {
|
# |
# |
# Start document |
# Start document |
# |
# |
my $html=&Apache::lonxml::xmlbegin(); |
|
$r->print(<<END); |
|
$html |
|
<head> |
|
<title>The LearningOnline Network with CAPA</title> |
|
</head> |
|
END |
|
|
|
# ----------------------------------------------------------------- Breadcrumbs |
# ----------------------------------------------------------------- Breadcrumbs |
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
Line 113 END
|
Line 106 END
|
faq=>12,bug=>'Communication Tools',}); |
faq=>12,bug=>'Communication Tools',}); |
|
|
# ---------------------------------------------------------------------- Header |
# ---------------------------------------------------------------------- Header |
&Apache::lonmsg::header($r); |
&Apache::lonmsgdisplay::header($r); |
&menu($r); |
&menu($r); |
&Apache::lonmsg::disall($r,'new'); |
&Apache::lonmsgdisplay::disall($r,'new'); |
|
$r->print(&Apache::loncommon::end_page()); |
return OK; |
return OK; |
} |
} |
|
|