version 1.84, 2004/01/29 00:44:06
|
version 1.86, 2004/02/19 21:45:22
|
Line 25
|
Line 25
|
# |
# |
# http://www.lon-capa.org/ |
# http://www.lon-capa.org/ |
# |
# |
# (Directory Indexer |
|
# (Login Screen |
|
# YEAR=1999 |
|
# 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14 Gerd Kortemeyer) |
|
# 11/23 Gerd Kortemeyer) |
|
# YEAR=2000 |
|
# 1/14,03/06,06/01,07/22,07/24,07/25, |
|
# 09/04,09/06,09/28,09/29,09/30,10/2,10/5,10/26,10/28, |
|
# 12/08,12/28, |
|
# YEAR=2001 |
|
# 01/15/01 Gerd Kortemeyer |
|
# 03/02,05/03,05/25,05/30,06/01,07/06,08/06 Gerd Kortemeyer |
|
# 12/29 Gerd Kortemeyer |
|
# |
|
### |
### |
|
|
package Apache::lonroles; |
package Apache::lonroles; |
Line 384 ENDHEADER
|
Line 370 ENDHEADER
|
$tbg='#11CC55'; |
$tbg='#11CC55'; |
$tfont='#002200'; |
$tfont='#002200'; |
$inrole=1; |
$inrole=1; |
|
$countactive++; |
$tremark.=&mt('Currently selected. '); |
$tremark.=&mt('Currently selected. '); |
} |
} |
my $trole; |
my $trole; |
Line 664 ENDHEADER
|
Line 651 ENDHEADER
|
$r->print(&Apache::lonnet::getannounce()); |
$r->print(&Apache::lonnet::getannounce()); |
if ($advanced) { |
if ($advanced) { |
$r->print('<p><small><i>This is LON-CAPA '. |
$r->print('<p><small><i>This is LON-CAPA '. |
$r->dir_config('lonVersion').'</i></small></p>'); |
$r->dir_config('lonVersion').'</i><br />'. |
|
'<a href="/adm/logout">'.&mt('Logout').'</a></small></p>'); |
} |
} |
$r->print("</body></html>\n"); |
$r->print("</body></html>\n"); |
return OK; |
return OK; |