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

[raeburn]

raeburn		Fri Mar  7 21:53:26 2008 EDT

  Modified files:              
    /loncom/auth	lonlogin.pm 
  Log:
  - Checked posted form submissions for an element named 'firsturl'.
  - Used to direct the user to a self-enrollment for a course after log-in.
  
  
Index: loncom/auth/lonlogin.pm
diff -u loncom/auth/lonlogin.pm:1.101 loncom/auth/lonlogin.pm:1.102
--- loncom/auth/lonlogin.pm:1.101	Sun Feb 24 18:18:37 2008
+++ loncom/auth/lonlogin.pm	Fri Mar  7 21:53:25 2008
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Login Screen
 #
-# $Id: lonlogin.pm,v 1.101 2008/02/24 23:18:37 raeburn Exp $
+# $Id: lonlogin.pm,v 1.102 2008/03/08 02:53:25 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -47,6 +47,9 @@
 	      $ENV{'REDIRECT_QUERY_STRING'}),
 	 ['interface','username','domain','firsturl','localpath','localres',
 	  'token']);
+    if (!defined($env{'form.firsturl'})) {
+        &Apache::lonacc::get_posted_cgi($r,['firsturl']);
+    }
 
 # -- check if they are a migrating user
     if (defined($env{'form.token'})) {