--- loncom/auth/lonlogin.pm 2003/08/26 19:48:41 1.44.2.2 +++ loncom/auth/lonlogin.pm 2003/08/26 19:41:53 1.47 @@ -1,7 +1,7 @@ # The LearningOnline Network # Login Screen # -# $Id: lonlogin.pm,v 1.44.2.2 2003/08/26 19:48:41 albertel Exp $ +# $Id: lonlogin.pm,v 1.47 2003/08/26 19:41:53 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -113,6 +113,8 @@ sub handler { if ($unloaded) { $otherserver=$unloaded; } } +# ----------------------------------------------------------- Get announcements + my $announcements=&Apache::lonnet::getannounce(); # -------------------------------------------------------- Set login parameters my @hexstr=('0','1','2','3','4','5','6','7', @@ -312,7 +314,7 @@ ENDSERVERFORM - +
@@ -328,7 +330,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) { @@ -391,6 +393,9 @@ ENDLOGIN + +$announcements +