--- loncom/auth/lonlogin.pm 2003/07/16 20:42:31 1.43 +++ 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.43 2003/07/16 20:42:31 www Exp $ +# $Id: lonlogin.pm,v 1.45 2003/08/12 19:46:04 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -81,6 +81,7 @@ sub handler { my $tabdir = $r->dir_config('lonTabDir'); my $include = $r->dir_config('lonIncludes'); my $expire = $r->dir_config('lonExpire'); + my $version = $r->dir_config('lonVersion'); # --------------------------------------------- Default values for login fields @@ -107,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', @@ -306,7 +309,7 @@ ENDSERVERFORM - +
@@ -322,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) { @@ -385,6 +388,9 @@ ENDLOGIN + +$announcements + @@ -432,7 +438,8 @@ ENDLOGIN    System Administration:
      $sysadm
   Server Administration:
-       $servadm
 
+       $servadm
 
+    $version