[Openinteract-commits] CVS: OpenInteract2/pkg/base_user/OpenInteract2/Action User.pm,1.19,1.20

[Chris W. <la...@us...>]

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