Tadashi Okoshi
slash****@users*****
2005年 10月 25日 (火) 00:07:52 JST
Index: affelio/lib/Affelio/misc/InitAffelio.pm
diff -u affelio/lib/Affelio/misc/InitAffelio.pm:1.4 affelio/lib/Affelio/misc/InitAffelio.pm:1.5
--- affelio/lib/Affelio/misc/InitAffelio.pm:1.4 Mon Oct 24 22:11:23 2005
+++ affelio/lib/Affelio/misc/InitAffelio.pm Tue Oct 25 00:07:51 2005
@@ -16,7 +16,7 @@
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
#
-# $Id: InitAffelio.pm,v 1.4 2005/10/24 13:11:23 slash5234 Exp $
+# $Id: InitAffelio.pm,v 1.5 2005/10/24 15:07:51 slash5234 Exp $
package Affelio::misc::InitAffelio;
{
@@ -387,7 +387,7 @@
################################
my $gid;
try{
- $gid = $af->{gm}->add_group($g_lh->maketext("_SETUP_group_dear_friend"));
+ $gid = $af->{gm}->add_group($af->{lh}->maketext("_SETUP_group_dear_friend"));
}catch Error with{
my $e = shift;
throw Affelio::exception::Exception("adding dear Grp: $@");
Index: affelio/lib/Affelio/misc/WebInput.pm
diff -u affelio/lib/Affelio/misc/WebInput.pm:1.7 affelio/lib/Affelio/misc/WebInput.pm:1.8
--- affelio/lib/Affelio/misc/WebInput.pm:1.7 Mon Oct 24 22:11:39 2005
+++ affelio/lib/Affelio/misc/WebInput.pm Tue Oct 25 00:07:51 2005
@@ -14,7 +14,7 @@
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
#
-# $Id: WebInput.pm,v 1.7 2005/10/24 13:11:39 slash5234 Exp $
+# $Id: WebInput.pm,v 1.8 2005/10/24 15:07:51 slash5234 Exp $
use strict;
package Affelio::misc::WebInput;
@@ -57,7 +57,7 @@
my $self = shift;
my $in = shift;
- $in =~ /([A-Za-z0-9\.\+\@\_]*)/;
+ $in =~ /([A-Za-z0-9\.\+\_\-\@]*)/;
return ($1);
}