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

[albertel]

albertel		Fri Jun  2 17:23:50 2006 EDT

  Modified files:              
    /loncom/auth	lonauth.pm 
  Log:
  - make use of new hash interface
  - user environment needs environment. prefix
  - esacpe user info when first inserted into env
  
  
Index: loncom/auth/lonauth.pm
diff -u loncom/auth/lonauth.pm:1.78 loncom/auth/lonauth.pm:1.79
--- loncom/auth/lonauth.pm:1.78	Fri Jun  2 16:22:26 2006
+++ loncom/auth/lonauth.pm	Fri Jun  2 17:23:49 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # User Authentication Module
 #
-# $Id: lonauth.pm,v 1.78 2006/06/02 20:22:26 albertel Exp $
+# $Id: lonauth.pm,v 1.79 2006/06/02 21:23:49 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -88,7 +88,7 @@
     
 # Initialize roles
 
-	$userroles=Apache::lonnet::rolesinit($domain,$username,$authhost);
+	$userroles=&Apache::lonnet::rolesinit($domain,$username,$authhost);
     }
 # ------------------------------------ Check browser type and MathML capability
 
@@ -182,9 +182,11 @@
 	    print $idf (&escape($key).'='.&escape($value)."\n");
 	}
 	while (my ($key,$value) = each(%userenv)) {
+	    print $idf (&escape('environment.'.$key).'='.&escape($value)."\n");
+	}
+	while (my ($key,$value) = each(%{$userroles})) {
 	    print $idf (&escape($key).'='.&escape($value)."\n");
 	}
-	if ($userroles ne '') { print $idf "$userroles"; }
 	close($idf);
     }
     $env{'request.role'}='cm';