--- loncom/auth/lonauth.pm	2005/07/07 06:18:37	1.69
+++ loncom/auth/lonauth.pm	2006/01/19 22:14:38	1.73
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # User Authentication Module
 #
-# $Id: lonauth.pm,v 1.69 2005/07/07 06:18:37 albertel Exp $
+# $Id: lonauth.pm,v 1.73 2006/01/19 22:14:38 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -40,6 +40,7 @@ use Apache::lonnet;
 use Apache::lonmenu();
 use Fcntl qw(:flock);
 use Apache::lonlocal;
+use POSIX qw(strftime);
 
 my %FORM;
 
@@ -113,6 +114,8 @@ sub success {
     my %userenv=Apache::lonnet::dump('environment',$domain,$username);
     my ($tmp) = keys(%userenv);
     if ($tmp !~ /^(con_lost|error|no_such_host)/i) {
+	# default remote control to off
+	if ($userenv{'remote'} ne 'on') { $userenv{'remote'} = 'off'; }
 	foreach my $key (keys(%userenv)) {
 	    $userenv.="environment.$key=$userenv{$key}\n";
 	}
@@ -152,6 +155,9 @@ sub success {
            print $idf "browser.localpath=$FORM{'localpath'}\n";
            print $idf "browser.localres=$FORM{'localres'}\n";
         }
+        print $idf "server.domain=".$r->dir_config('lonDefDomain')."\n";
+        my $timezone=POSIX::strftime("%Z",localtime(time));
+        print $idf "server.timezone=$timezone\n";
 	print $idf "request.course.fn=\n";
 	print $idf "request.course.uri=\n";
 	print $idf "request.course.sec=\n";
@@ -195,7 +201,8 @@ sub success {
 
 # ------------------------------------------------------------ Get cookie ready
 
-    if ($public) { return $cookie; }
+    if ($public or $lowerurl eq 'noredirect') { return $cookie; }
+
     $cookie="lonID=$cookie; path=/";
 # -------------------------------------------------------- Menu script and info
     my $windowinfo=&Apache::lonmenu::open($clientos);