[haver-commits] r875 - trunk/perl/server/lib/Haver/Server/Wheel

[haver]

Author: dylan
Date: 2005-07-18 10:47:37 -0400 (Mon, 18 Jul 2005)
New Revision: 875

Modified:
   trunk/perl/server/lib/Haver/Server/Wheel/Reg.pm
Log:
D'oh. Stupid forgetting to declare and assign $user...


Modified: trunk/perl/server/lib/Haver/Server/Wheel/Reg.pm
===================================================================
--- trunk/perl/server/lib/Haver/Server/Wheel/Reg.pm     2005-07-18 14:46:27 UTC 
(rev 874)
+++ trunk/perl/server/lib/Haver/Server/Wheel/Reg.pm     2005-07-18 14:47:37 UTC 
(rev 875)
@@ -43,17 +43,19 @@
 sub msg_REG_PASSCODE {
        my ($kernel, $heap, $args) = @_[KERNEL, HEAP, ARG0];
        my ($passcode) = @$args;
+       my $user = $heap->{user};
 
        $user->passcode($passcode);
-       $heap->{client}->put(['REG:PASSCODE', $heap->{user}->name]);
+       $heap->{client}->put(['REG:PASSCODE', $user->name]);
 }
 
 sub msg_REG_EMAIL {
        my ($kernel, $heap, $args) = @_[KERNEL, HEAP, ARG0];
        my ($email) = @$args;
+       my $user = $heap->{user};
 
        $user->email($email);
-       $heap->{client}->put(['REG:EMAIL', $heap->{user}->name, $email]);
+       $heap->{client}->put(['REG:EMAIL', $user->name, $email]);
 }