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");
|