[WWcvs] webwork2: add slot for WeBWorK::Authen object.

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

Log Message:
-----------
add slot for WeBWorK::Authen object. we can use it for checking login 
status.

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

Revision Data
-------------
Index: Request.pm
===================================================================
RCS file: /webwork/cvs/system/webwork2/lib/WeBWorK/Request.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -Llib/WeBWorK/Request.pm -Llib/WeBWorK/Request.pm -u -r1.2 -r1.3
--- lib/WeBWorK/Request.pm
+++ lib/WeBWorK/Request.pm
@@ -89,6 +89,19 @@
 	return $self->{db};
 }
 
+=item authen([$new])
+
+Return the authenticator (WeBWorK::Authen) associated with this request. If $new
+is specified, set the authenticator to $new before returning the value.
+
+=cut
+
+sub authen {
+	my $self = shift;
+	$self->{authen} = shift if @_;
+	return $self->{authen};
+}
+
 =item authz([$new])
 
 Return the authorizer (WeBWorK::Authz) associated with this request. If $new is