--- loncom/auth/lonlogin.pm 2003/08/26 19:47:33 1.44.2.1 +++ loncom/auth/lonlogin.pm 2003/08/25 15:24:43 1.46 @@ -1,7 +1,7 @@ # The LearningOnline Network # Login Screen # -# $Id: lonlogin.pm,v 1.44.2.1 2003/08/26 19:47:33 albertel Exp $ +# $Id: lonlogin.pm,v 1.46 2003/08/25 15:24:43 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -112,6 +112,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', @@ -311,7 +313,7 @@ ENDSERVERFORM - +
@@ -327,7 +329,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) { @@ -390,6 +392,9 @@ ENDLOGIN + +$announcements +