Revision 325

Date:
2013/04/29 21:21:43
Author:
ahitrov
Revision Log:
pre_store bug
Files:

Legend:

 
Added
 
Removed
 
Modified

  • utf8/plugins/users/lib/users/Email.pm

     
    66 66 {
    67 67 my $self = shift;
    68 68
    69 foreach my $attr ( qw(name name_orig) ) {
    70 $self->{$attr} =~ s/^\s+//s;
    71 $self->{$attr} =~ s/\s+$//s;
    72 }
    73
    69 74 my $default_section = $project->s_alias->{user_emails} if ref $project->s_alias eq 'HASH' && exists $project->s_alias->{user_emails};
    70 75 if ( $default_section && !$self->{sections} ) {
    71 76 $self->{sections} = $default_section;

  • utf8/plugins/users/lib/users/UserProfile.pm

     
    3 3 use base "Contenido::Document";
    4 4 use Digest::MD5;
    5 5 use Contenido::Globals;
    6 use Data::Dumper;
    6 7
    7 8 my %CREDENTIAL_FIELDS = (
    8 9 'users::Email' => 'email',
    … …  
    350 351 if ( $state->{users}->use_credentials ) {
    351 352 foreach my $prop ( $self->structure ) {
    352 353 my $name = $prop->{attr};
    353 if ( ref $self->{$name} =~ /^users::OA::/ ) {
    354 if ( ref($self->{$name}) =~ /^users\:\:OA\:\:/ ) {
    354 355 my $obj = $self->{$name};
    355 356 $self->{$name} = $obj->ext_id;
    356 } elsif ( ref $self->{$name} =~ /^users::/ ) {
    357 } elsif ( ref($self->{$name}) =~ /^users\:\:/ ) {
    357 358 my $obj = $self->{$name};
    358 359 $self->{$name} = $obj->name;
    359 360 }