--- loncom/auth/lonlogin.pm 2003/05/08 22:23:19 1.42
+++ loncom/auth/lonlogin.pm 2003/08/05 12:52:23 1.44
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Login Screen
#
-# $Id: lonlogin.pm,v 1.42 2003/05/08 22:23:19 albertel Exp $
+# $Id: lonlogin.pm,v 1.44 2003/08/05 12:52:23 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -51,7 +51,7 @@ sub handler {
&Apache::loncommon::get_unprocessed_cgi
($ENV{'QUERY_STRING'}.'&'.$ENV{'request.querystring'},
- ['interface','username','domain','firsturl']);
+ ['interface','username','domain','firsturl','localpath','localres']);
# ----------------------------------------------------------- Process Interface
$ENV{'form.interface'}=~s/\W//g;
@@ -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
@@ -263,6 +264,8 @@ ENDSCRIPT
+
+
ENDSERVERFORM
if ($fullgraph) { $r->print(< System Administration:
$sysadm
Server Administration:
- $servadm
+ $servadm
+ $version