Committer: ssafronova
LJSUP-6515: Custom Userheads - LJSUP-6597: Send as a gift: no need to apply userhead, LJSUP-6595: need to add variablesU trunk/bin/upgrading/en_LJ.dat U trunk/cgi-bin/LJ/Pay/Payment/PayItem/Addon.pm U trunk/cgi-bin/LJ/Pay/Payment/PayItem/UserHead.pm
Modified: trunk/bin/upgrading/en_LJ.dat =================================================================== --- trunk/bin/upgrading/en_LJ.dat 2010-08-26 08:17:36 UTC (rev 9410) +++ trunk/bin/upgrading/en_LJ.dat 2010-08-26 09:22:32 UTC (rev 9411) @@ -3886,6 +3886,8 @@ pay.cart.method_group.fast=Takes a few minutes... +pay.cart.method_group.other= + pay.cart.method_group.slow=Takes a few days... pay.cart.nocharge=No charge. Modified: trunk/cgi-bin/LJ/Pay/Payment/PayItem/Addon.pm =================================================================== --- trunk/cgi-bin/LJ/Pay/Payment/PayItem/Addon.pm 2010-08-26 08:17:36 UTC (rev 9410) +++ trunk/cgi-bin/LJ/Pay/Payment/PayItem/Addon.pm 2010-08-26 09:22:32 UTC (rev 9411) @@ -832,6 +832,16 @@ $note_rec_change->($rcpt_u, $payment); # send notification email to user + my ($subj, $msg) = $self->_delivering_message($rcpt_u); + + warn "[$item_id]: _deliver_item is ok" if $::VERBOSE>1; + return (1, $subj, $msg); +} + +sub _delivering_message { + my $self = shift; + my $rcpt_u = shift; + my $name = $self->product_name; my $msg = "Your $LJ::SITENAMESHORT account for user \"$rcpt_u->{'user'}\" has been "; @@ -844,9 +854,7 @@ $msg .= "Thank you for supporting the site,\n"; $msg .= "$LJ::SITENAMESHORT Team\n"; - - warn "[$item_id]: _deliver_item is ok" if $::VERBOSE>1; - return (1, $name, $msg); + return ($name, $msg); } sub get_item_base_price { Modified: trunk/cgi-bin/LJ/Pay/Payment/PayItem/UserHead.pm =================================================================== --- trunk/cgi-bin/LJ/Pay/Payment/PayItem/UserHead.pm 2010-08-26 08:17:36 UTC (rev 9410) +++ trunk/cgi-bin/LJ/Pay/Payment/PayItem/UserHead.pm 2010-08-26 09:22:32 UTC (rev 9411) @@ -100,5 +100,17 @@ $u->set_custom_usericon (undef); } +sub _delivering_message { + my $self = shift; + my $rcpt_u = shift; + + my $msg = "Please visit your Edit Profile page to view your new userhead.\n\n"; + $msg .= "$LJ::SITEROOT/manage/profile/\n\n"; + $msg .= "Sincerely,\n"; + $msg .= "The $LJ::SITENAMESHORT Team\n"; + + return ("You have received a userhead to your $LJ::SITENAMESHORT", $msg); +} + 1;