add is similar to insert. Take a look at $db->add(); Maybe do a Data::Dumper of what goes into that method to see if everything is being set properly.
146 if ($CFG->{user_validation}) {
147 my $code = (time) . ($$) . (int rand (1000));
148 $user->{Status} = "Not Validated";
149 $user->{Validation} = $code;
150 my $ret = $db->add ($user);
151 if (!$ret) {
152 print $IN->header();
153 print Links::SiteHTML::display ( 'signup_form', { error => $db->error } );
154 return;
155 }
156 }
157 else {
158 $user->{Status} = "Registered";
159 $user->{Validation} = 0;
160 my $ret = $db->add ($user);
Code:
145 # Send validation email if needed. 146 if ($CFG->{user_validation}) {
147 my $code = (time) . ($$) . (int rand (1000));
148 $user->{Status} = "Not Validated";
149 $user->{Validation} = $code;
150 my $ret = $db->add ($user);
151 if (!$ret) {
152 print $IN->header();
153 print Links::SiteHTML::display ( 'signup_form', { error => $db->error } );
154 return;
155 }
156 }
157 else {
158 $user->{Status} = "Registered";
159 $user->{Validation} = 0;
160 my $ret = $db->add ($user);