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

[raeburn]

raeburn		Wed Apr 18 18:55:06 2012 EDT

  Modified files:              
    /loncom/auth	checkauthen.pm 
  Log:
  - Clicking on a "full message" link in an e-mail.  Preserve destination if
    log-in is required.
  
  
Index: loncom/auth/checkauthen.pm
diff -u loncom/auth/checkauthen.pm:1.12 loncom/auth/checkauthen.pm:1.13
--- loncom/auth/checkauthen.pm:1.12	Tue Oct  2 01:09:59 2007
+++ loncom/auth/checkauthen.pm	Wed Apr 18 18:55:06 2012
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # checks for a cokkie to authenticate a user
 #
-# $Id: checkauthen.pm,v 1.12 2007/10/02 01:09:59 albertel Exp $
+# $Id: checkauthen.pm,v 1.13 2012/04/18 18:55:06 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -69,7 +69,9 @@
     if ($handle ne '') {
         return OK;
     }
-
+    if (($fail == FORBIDDEN) && ($r->uri eq '/adm/email')) {
+        $env{'form.firsturl'} = $r->uri;
+    }
     return $fail;
 }