ssafronova (ssafronova) wrote in changelog,
ssafronova
ssafronova
changelog

[livejournal] r18316: LJSUP-5494: Re-registered first validate...

Committer: ssafronova
LJSUP-5494: Re-registered first validated email cannot remove newer email addresses
U   trunk/cgi-bin/LJ/User.pm
Modified: trunk/cgi-bin/LJ/User.pm
===================================================================
--- trunk/cgi-bin/LJ/User.pm	2011-02-16 07:35:55 UTC (rev 18315)
+++ trunk/cgi-bin/LJ/User.pm	2011-02-16 07:36:47 UTC (rev 18316)
@@ -2646,9 +2646,11 @@
 # checks whether user is allowed to remove the given email from their history
 # and this way, disable themselves from sending a password reset to that address
 sub can_delete_email {
-    my ($u, $addr) = @_;
+    my ($u, $email) = @_;
 
     my $chains = $u->emails_chained_info;
+    my $addr = ref $email ? $email->{email} : $email;
+    $addr = lc $addr;
 
     # reformat as email => parameters hash
     my %chains = map { lc($_->{email}) => $_ } @$chains;
@@ -2656,7 +2658,7 @@
     my $current = lc $u->email_raw;
     my $edge_age = $chains{$current}->{starting};
 
-    my $aim_value = $chains{lc $addr->{email} }->{starting};
+    my $aim_value = $chains{$addr}->{starting};
 
     return 0 unless defined $edge_age and $aim_value;
     return $aim_value > $edge_age;

Tags: livejournal, pm, ssafronova
Subscribe
  • Post a new comment

    Error

    Anonymous comments are disabled in this journal

    default userpic

    Your reply will be screened

    Your IP address will be recorded 

  • 0 comments