version 1.19, 2004/01/15 03:53:12
|
version 1.21, 2004/03/26 19:35:59
|
Line 25
|
Line 25
|
# |
# |
# http://www.lon-capa.org/ |
# http://www.lon-capa.org/ |
# |
# |
# (Internal Server Error Handler |
### |
# |
|
# (Login Screen |
|
# 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14, |
|
# 1/14/00,5/29,5/30,6/1,6/29,7/1,11/9 Gerd Kortemeyer) |
|
# |
|
# 3/1/1 Gerd Kortemeyer) |
|
# |
|
# 3/1,2/6,7/27,8/3,8/15, |
|
# 11/5/01 Gerd Kortemeyer |
|
# |
|
package Apache::loncommunicate; |
package Apache::loncommunicate; |
|
|
use strict; |
use strict; |
Line 44 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 78 END
|
Line 57 END
|
'Course_Broadcast_Message') { |
'Course_Broadcast_Message') { |
$help{$_}=&Apache::loncommon::help_open_topic($_); |
$help{$_}=&Apache::loncommon::help_open_topic($_); |
} |
} |
|
# ------------------------------------------------------------------------ Menu |
$r->print(&Apache::loncommon::bodytag("Communication and Messages"). |
|
&Apache::loncommon::help_open_faq(12). |
|
&Apache::loncommon::help_open_bug('Communication Tools')); |
|
$r->print(<<END); |
$r->print(<<END); |
<table cellspacing="10" cellpadding="2"> |
<table cellspacing="10" cellpadding="2"> |
<tr><td bgcolor="#FFFFAA"> |
<tr><td bgcolor="#FFFFAA"> |
Line 133 END
|
Line 109 END
|
} |
} |
if ($#newmsgs >= 0) { |
if ($#newmsgs >= 0) { |
$r->print(<<TABLEHEAD); |
$r->print(<<TABLEHEAD); |
<h3>$lt{'nm'}</h3> |
<h2>$lt{'nm'}</h2> |
<table border=2><tr><th> </th> |
<table border=2><tr><th> </th> |
<th>$lt{'da'}</th><th>$lt{'us'}</th><th>$lt{'do'}</th><th>$lt{'su'}</th></tr> |
<th>$lt{'da'}</th><th>$lt{'us'}</th><th>$lt{'do'}</th><th>$lt{'su'}</th></tr> |
TABLEHEAD |
TABLEHEAD |
Line 151 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; |
} |
} |
|
|