Tatsuki SUGIURA
sugi****@users*****
2006年 7月 20日 (木) 18:17:54 JST
Index: slashjp/plugins/Login/login.pl diff -u slashjp/plugins/Login/login.pl:1.2 slashjp/plugins/Login/login.pl:1.2.2.1 --- slashjp/plugins/Login/login.pl:1.2 Fri Dec 31 21:36:50 2004 +++ slashjp/plugins/Login/login.pl Thu Jul 20 18:17:53 2006 @@ -2,7 +2,7 @@ # This code is a part of Slash, and is released under the GPL. # Copyright 1997-2004 by Open Source Development Network. See README # and COPYING for more information, or see http://slashcode.com/. -# $Id: login.pl,v 1.2 2004/12/31 12:36:50 oliver Exp $ +# $Id: login.pl,v 1.2.2.1 2006/07/20 09:17:53 sugi Exp $ use strict; use Slash 2.003; @@ -12,7 +12,7 @@ use Slash::XML; use vars qw($VERSION); -($VERSION) = ' $Revision: 1.2 $ ' =~ /\$Revision:\s+([^\s]+)/; +($VERSION) = ' $Revision: 1.2.2.1 $ ' =~ /\$Revision:\s+([^\s]+)/; sub main { my $slashdb = getCurrentDB(); @@ -59,7 +59,7 @@ _validFormkey('generate_formkey') or return; header(getData('newuserformhead')) or return; - slashDisplay('newUserForm', { note => $note }); + slashDisplay('newUserForm', { note => $note, form => $form }); footer(); } @@ -80,7 +80,10 @@ my @note; my $error = 0; - if (!$form->{email} || !emailValid($form->{email})) { + if (!$form->{agree_priv_cont}) { + push @note, getData('not_agree_priv_cont'); + $error = 1; + } elsif (!$form->{email} || !emailValid($form->{email})) { push @note, getData('email_invalid'); $error = 1; } elsif ($form->{email} ne $form->{email2}) {
スラド