--- loncom/auth/lonlogin.pm 2003/08/05 12:52:23 1.44 +++ loncom/auth/lonlogin.pm 2003/08/12 19:46:04 1.45 @@ -1,7 +1,7 @@ # The LearningOnline Network # Login Screen # -# $Id: lonlogin.pm,v 1.44 2003/08/05 12:52:23 www Exp $ +# $Id: lonlogin.pm,v 1.45 2003/08/12 19:46:04 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -108,6 +108,8 @@ sub handler { $otherserver=Apache::lonnet::spareserver($loadpercent,$userloadpercent); } +# ----------------------------------------------------------- Get announcements + my $announcements=&Apache::lonnet::getannounce(); # -------------------------------------------------------- Set login parameters my @hexstr=('0','1','2','3','4','5','6','7', @@ -307,7 +309,7 @@ ENDSERVERFORM - +
@@ -323,7 +325,7 @@ ENDSERVERFORM ENDTOP } else { - $r->print('

The LearningOnline Network with CAPA

Text-based Interface Login

'); + $r->print('

The LearningOnline Network with CAPA

Text-based Interface Login

'.$announcements); } $r->print('
'); unless ($fullgraph) { @@ -386,6 +388,9 @@ ENDLOGIN + +$announcements +