|
|
Please join our mailing list and stay up to the minute with ITS news and activities!
|
Please correct and resubmit.
"; } elsif ( $form->{people_email} eq "" ) { } else { $form->{people_username} = $form->{people_email}; $form->{people_password} = $form->{people_lastname} if ($form->{people_password} eq ""); my @names = (); my @values = (); foreach my $field (keys %$form){ next if ($field !~ /people/); push @names,$field; push @values,$dbh->quote($form->{$field}); } push @names,"people_lastmodified"; push @values,"now()"; my $cmd = "insert into people (" . join(",",@names) . ") values (" . join(",",@values) . ");"; $dbh->do($cmd); if ($dbh->err == 1062){ print "
"; print "Your email address is already in use. Please use a different email address
or contact the webmaster
"; } elsif ($dbh->errstr ne ""){ print "
"; print "Errors on insert
Error number: (".$dbh->err.")
" .$dbh->errstr."
"; } else { print "
"; print "New member successfully added. An email message has been send to the email address shown below.
"; print "
"; $Response->Include( "admin/doemail.htm", [$form->{people_email},$form->{people_username},$form->{people_password}] ); print "Click here to return to the main page.
"; for my $key ( keys %{$Request->{Form}} ) { delete $Request->Form->{$key}; } } } } print "
"; %>
