version 1.20, 2004/03/01 02:21:57
|
version 1.21, 2004/03/26 19:35:59
|
Line 35 use Apache::lonmsg();
|
Line 35 use Apache::lonmsg();
|
use Apache::loncommon; |
use Apache::loncommon; |
use Apache::lonlocal; |
use Apache::lonlocal; |
|
|
sub handler { |
sub menu { |
my $r = shift; |
my $r=shift; |
&Apache::loncommon::content_type($r,'text/html'); |
my %lt=&Apache::lonlocal::texthash( |
$r->send_http_header; |
|
return OK if $r->header_only; |
|
# |
|
# Start document |
|
# |
|
$r->print(<<END); |
|
<html> |
|
<head> |
|
<title>The LearningOnline Network with CAPA</title> |
|
</head> |
|
END |
|
my %lt=&Apache::lonlocal::texthash( |
|
'vam' => 'View All Messages', |
'vam' => 'View All Messages', |
'vcm' => 'View Critical Messages', |
'vcm' => 'View Critical Messages', |
'smu' => 'Send Message to User(s)', |
'smu' => 'Send Message to User(s)', |
Line 69 END
|
Line 57 END
|
'Course_Broadcast_Message') { |
'Course_Broadcast_Message') { |
$help{$_}=&Apache::loncommon::help_open_topic($_); |
$help{$_}=&Apache::loncommon::help_open_topic($_); |
} |
} |
|
|
# ----------------------------------------------------------------- Breadcrumbs |
|
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
|
&Apache::lonhtmlcommon::add_breadcrumb |
|
({href=>"/adm/communicate", |
|
text=>"Communication/Messages", |
|
faq=>12,bug=>'Communication Tools',}); |
|
|
|
# ---------------------------------------------------------------------- Header |
|
&Apache::lonmsg::header($r); |
|
|
|
# ------------------------------------------------------------------------ Menu |
# ------------------------------------------------------------------------ Menu |
$r->print(<<END); |
$r->print(<<END); |
<table cellspacing="10" cellpadding="2"> |
<table cellspacing="10" cellpadding="2"> |
Line 150 ENDLINK
|
Line 127 ENDLINK
|
} else { |
} else { |
$r->print("<h3>".&mt('You have no unread messages')."</h3>"); |
$r->print("<h3>".&mt('You have no unread messages')."</h3>"); |
} |
} |
|
} |
|
|
|
sub handler { |
|
my $r = shift; |
|
&Apache::loncommon::content_type($r,'text/html'); |
|
$r->send_http_header; |
|
return OK if $r->header_only; |
|
# |
|
# Start document |
|
# |
|
$r->print(<<END); |
|
<html> |
|
<head> |
|
<title>The LearningOnline Network with CAPA</title> |
|
</head> |
|
END |
|
|
|
# ----------------------------------------------------------------- Breadcrumbs |
|
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
|
&Apache::lonhtmlcommon::add_breadcrumb |
|
({href=>"/adm/communicate", |
|
text=>"Communication/Messages", |
|
faq=>12,bug=>'Communication Tools',}); |
|
|
|
# ---------------------------------------------------------------------- Header |
|
&Apache::lonmsg::header($r); |
|
&menu($r); |
return OK; |
return OK; |
} |
} |
|
|