Update of /cvsroot/openinteract/OpenInteract2/pkg/base_user/OpenInteract2/Action
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10852/base_user/OpenInteract2/Action
Modified Files:
User.pm
Log Message:
allow base_user to handle 'login_name' in action parameter insetad of using 'user_id' from request (see OI2::ActionResolver::UserDir)
Index: User.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/pkg/base_user/OpenInteract2/Action/User.pm,v
retrieving revision 1.19
retrieving revision 1.20
diff -C2 -d -r1.19 -r1.20
*** User.pm 5 Dec 2004 08:51:21 -0000 1.19
--- User.pm 25 Feb 2005 00:11:39 -0000 1.20
***************
*** 82,85 ****
--- 82,109 ----
+ # override to deal with 'login_name' instead of 'user_id' being used...
+ sub display {
+ my ( $self ) = @_;
+ $self->_check_params_for_login_name();
+ return $self->SUPER::display();
+ }
+
+ sub display_form {
+ my ( $self ) = @_;
+ $self->_check_params_for_login_name();
+ return $self->SUPER::display_form();
+ }
+
+ sub _check_params_for_login_name {
+ my ( $self ) = @_;
+ my $user_id = CTX->request->param( 'user_id' );
+ if ( ! $user_id and my $login = $self->param( 'login_name' ) ) {
+ my $user = CTX->lookup_object( 'user' )->fetch_by_login_name( $login );
+ if ( $user ) {
+ $self->param( c_object => $user );
+ }
+ }
+ }
+
########################################
# COMMON CUSTOMIZATIONS
|
