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
|
