[LON-CAPA-cvs] cvs: loncom /auth lonauth.pm lonlogin.pm

www lon-capa-cvs@mail.lon-capa.org
Wed, 16 Jul 2003 20:42:31 -0000


www		Wed Jul 16 16:42:31 2003 EDT

  Modified files:              
    /loncom/auth	lonauth.pm lonlogin.pm 
  Log:
  Passing of parameters to locate local client-side files.
  
  
Index: loncom/auth/lonauth.pm
diff -u loncom/auth/lonauth.pm:1.52 loncom/auth/lonauth.pm:1.53
--- loncom/auth/lonauth.pm:1.52	Thu Jun  5 22:24:49 2003
+++ loncom/auth/lonauth.pm	Wed Jul 16 16:42:31 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # User Authentication Module
 #
-# $Id: lonauth.pm,v 1.52 2003/06/06 02:24:49 www Exp $
+# $Id: lonauth.pm,v 1.53 2003/07/16 20:42:31 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -126,6 +126,10 @@
 	print $idf "browser.mathml=$clientmathml\n";
 	print $idf "browser.unicode=$clientunicode\n";
 	print $idf "browser.os=$clientos\n";
+        if ($FORM{'localpath'}) {
+           print $idf "browser.localpath=$FORM{'localpath'}\n";
+           print $idf "browser.localres=$FORM{'localres'}\n";
+        }
 	print $idf "request.course.fn=\n";
 	print $idf "request.course.uri=\n";
 	print $idf "request.course.sec=\n";
Index: loncom/auth/lonlogin.pm
diff -u loncom/auth/lonlogin.pm:1.42 loncom/auth/lonlogin.pm:1.43
--- loncom/auth/lonlogin.pm:1.42	Thu May  8 18:23:19 2003
+++ loncom/auth/lonlogin.pm	Wed Jul 16 16:42:31 2003
@@ -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.43 2003/07/16 20:42:31 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -51,7 +51,7 @@
 
     &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;
@@ -263,6 +263,8 @@
    <input type="hidden" name="fontenhance"  value="" />
    <input type="hidden" name="blackwhite"  value="" />
    <input type="hidden" name="remember"  value="" />
+   <input type="hidden" name="localpath" value="$ENV{'form.localpath'}" />
+   <input type="hidden" name="localres" value="$ENV{'form.localres'}" />
   </form>
 ENDSERVERFORM
     if ($fullgraph) { $r->print(<<ENDTOP);