[WWcvs] webwork2: store authenticator in $r.

[Sam H. v. a. <we...@ma...>]

Log Message:
-----------
store authenticator in $r.

Modified Files:
--------------
    webwork2/lib:
        WeBWorK.pm

Revision Data
-------------
Index: WeBWorK.pm
===================================================================
RCS file: /webwork/cvs/system/webwork2/lib/WeBWorK.pm,v
retrieving revision 1.77
retrieving revision 1.78
diff -Llib/WeBWorK.pm -Llib/WeBWorK.pm -u -r1.77 -r1.78
--- lib/WeBWorK.pm
+++ lib/WeBWorK.pm
@@ -223,6 +223,7 @@
 		
 		debug("...and now we can authenticate the remote user...\n");
 		my $authen = new WeBWorK::Authen($r);
+		$r->authen($authen);
 		my $authenOK = $authen->verify;
 		if ($authenOK) {
 			my $userID = $r->param("user");