version 1.19, 2004/01/15 03:53:12
|
version 1.20, 2004/03/01 02:21:57
|
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 79 END
|
Line 70 END
|
$help{$_}=&Apache::loncommon::help_open_topic($_); |
$help{$_}=&Apache::loncommon::help_open_topic($_); |
} |
} |
|
|
$r->print(&Apache::loncommon::bodytag("Communication and Messages"). |
# ----------------------------------------------------------------- Breadcrumbs |
&Apache::loncommon::help_open_faq(12). |
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
&Apache::loncommon::help_open_bug('Communication Tools')); |
&Apache::lonhtmlcommon::add_breadcrumb |
|
({href=>"/adm/communicate", |
|
text=>"Communication/Messages", |
|
faq=>12,bug=>'Communication Tools',}); |
|
|
|
# ---------------------------------------------------------------------- Header |
|
&Apache::lonmsg::header($r); |
|
|
|
# ------------------------------------------------------------------------ Menu |
$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 132 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 |